ارتباط php و بیسیک

[mohamadsa432 0]

سلام خدمت کلیه دوستان

من یک برنامه نوشتم و از طریف فایل php ، برنامه را به جدول دیتابیس وصل کردم .

تنها مشکلی که دارم اینه که مقادیری که از ادیت تکست گرفتم رو به دیتابیس منتقل نمیکنه و فقط رکورد خالی در دیتابیس ایجاد می شود .

 

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.
	Dim ht As HttpJob
	Private Button1 As Button
	Private Button2 As Button
	Private EditText1 As EditText
	Private EditText2 As EditText
End Sub

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	Activity.LoadLayout("ertebat")
	ht.Initialize("sabt" , Me)
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub


Sub Button1_Click
	StartActivity("first")
	Activity.Finish
End Sub


Sub Button2_Click
	ToastMessageShow("پیام شما ثبت شد",True)
	StartActivity("first")
	Activity.Finish

	Dim send As String
	send ="name="&EditText1.Text&"&famil="&EditText2.Text
	ht.PostString("http://r-salehi.ir/mo2.php?",send)
	
End Sub

Sub JobDone (Job As HttpJob)
	If Job.Success = True Then
		Msgbox(Job.GetString,"Success")
	Else
		ToastMessageShow("خطا در برقراری اتصال" , False)
	End If
End Sub

 

[Salar82 919]

سلام دوست عزیز

فک کنم مشکلتون بخاطر این هست که موقع پست، شما داده هاتون رو از طریق جیسون ارسال نکردید(البته بستگی به کدهای سمت سرورتون هم داره).

برای این کار، از روش زیر میتونید استفاده کنید:

1- اول از همه یه متغیر از نوع map تعریف میکنید و مقادیر رو داخل اون ذخیره کنید:

Dim m As Map = CreateMap("Name":EditText1.Text , "Famil":EditText2.Text)

 

2- بعد تیک کتابخونه JSON رو بزنید و یه متغیر از JSONGenerator تعریف کنید و موقع Initialize، همون متغیر map رو بهش بدید.

Dim j As JSONGenerator
j.Initialize(m)

 

3- و در آخر موقع پست اطلاعات، به سبک زیر عمل کنید:

ht.PostString("Link" , j.ToString)' {"Name":"Value1","Famil":"Value2"}

 

موفق باشید

 

[fun_code 216]

در 3 ساعت قبل، mohamadsa432 گفته است :

Sub Button2_Click ToastMessageShow("پیام شما ثبت شد",True) StartActivity("first") Activity.Finish Dim send As String send ="name="&EditText1.Text&"&famil="&EditText2.Text ht.PostString("http://r-salehi.ir/mo2.php?",send) End Sub

سلام

در این بخش کد دو مورد دیدم که شاید به اصلاح اون مشکلتون برطرف بشه.

Sub Button2_Click
	ToastMessageShow("پیام شما ثبت شد",True)
	StartActivity("first")
	Activity.Finish

	Dim send As String
	send ="name="&EditText1.Text&"&famil="&EditText2.Text
	ht.PostString("http://r-salehi.ir/mo2.php?",send)
	
End Sub

سه خط اول رو حذف و در رویداد JobDone و در صورت موفق بودن عملیات بنویسید .

اگر در کدنویسی PHP از متد پست برای دریافت مقادیر استفاده میکنید نیازی نیست از کارکتر ؟ پس از نام فایل php استفاده کنید. این کارکتر در متد GET استفاده می شود.