عدم درج رکورد جدید در بانک اطلاعاتی

با اهداء سلام به همه و تشکر از آموزش ها و پاسخ گویی مدیر محترم سایت

من در بحث بانک اطلاعاتی و هاست مشکل دارم. کدهای B4A و کدهای PHP رو طبق راهنمایی های سایت و دیگر منابع اطلاعاتی به درستی انجام دادم و بانک اطلاعاتی به صورت استفاده در مرورگر به راحتی کار می کنه و رکورد جدید به بانک اضافه می شه.

اما در B4A و با استفاده از متدهای PostString و نیز Download کار درست پیش نمی رود. متد GetString هم یک صفحه بلند مخلوطی از کدهای html و جاوا و … رو می یاره.

کل کد ها بدون خطا اجرا می شوند اما رکوردی به بانک اضافه نمی شود.

اگر در b4a از کنترل webview استفاده کنم به راحتی برنامه کار می کنه و خروجی داره اما با متدهای اصلی کار پیش نمی رود. لطفا دوستان راهنمایی بفرمایند. با تشکر

کدهای b4a

#Region  Project Attributes 
	#ApplicationLabel: DataBase
	#VersionCode: 1
	#VersionName: 
	'SupportedOrientations possible values: unspecified, landscape or portrait.
	#SupportedOrientations: unspecified
	#CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: True
#End Region

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.
	Dim l,k As String
	Dim job1,job4 As HttpJob
End Sub

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

	Private Button3 As Button
	Private WebView1 As WebView
	Private Label3 As Label
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("Layout1")
	
	job1.Initialize("job1",Me)	
	job4.Initialize("job4",Me)
	
	l="http://yolancomonoro.gigfa.com/Register.php"
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Button1_Click
	Dim s As String
	s ="username="&EditText1.Text&"&password="&EditText2.Text
	job1.PostString(l,s)
End Sub
	
Sub Jobdone (job As HttpJob)
	If job.Success = True Then
		ToastMessageShow(job.JobName,True)		
		ToastMessageShow("عملیات با موفقیت انجام شد." ,True)
		Label3.Text=job4.GetString
	Else
		ToastMessageShow(" خطا در برقراری اتصال ",False)		
		ToastMessageShow(job.ErrorMessage,True)
	End If
	job.Release
End Sub

Sub Button3_Click
    Dim job4 As HttpJob
    job4.Initialize("job4", Me)
    job4.download2("http://yolancomonoro.gigfa.com/Register.php", Array As String ("username", "cow", "password", "Bee"))	
End Sub

Sub Button2_Click
    WebView1.LoadUrl(l&"?"&s)
End Sub