ارسال اطلاعات به دیتابیس آنلاین

عرض سلام و خسته نباشید

بنده با استفاده از آموزش های بپرسم ، تونستم یک دیتابیس در هاست ایجاد کنم و فایل php  رو نیز ساخته و آپلود کردم ، در بیسیک نیز ، عین آموزشهارو انجام دادم و مراحلش رو تکمیل کردم ، مشکلی که الان دارم اینه که وقتی مثلا برای تست یک یوزر و پسورد وارد میکنم ، در دیتابیس ، هیچ چیزی ذخیره نمیشه ، ممنون میشم راهنمایی بفرمایید

کدهای فایل php:

<?php
$servername = "localhost";
$username = "******";
 $password = "******";

// Create connection
 $conn = mysql_connect($servername, $username, $password);
 
// Check connection
  if (!$conn) {
    die("Connection failed: " . mysql_connect_error());
}
echo "Connected successfully";
mysql_select_db('********',$conn);
	mysql_set_charset('utf8');
	$username=$_POST['username'];
$password=$_POST['password'];
if($conn){
		$result = "INSERT INTO tabel1(username,password) VALUES('$username','$password')";
		
		if(mysql_query($result)){
			
			echo "Done";
			
		}else{echo "Error";}
}
?>

;کدهای اکتیویتی main  در بیسیک 4 آندروید:

#Region  Project Attributes 
	#ApplicationLabel: B4A Example
	#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.

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 btn_register As Button
	Private text_user As EditText
	Private text_pass  As EditText
	Private Label1 As Label
	Private Label2 As Label
	Dim ht As HttpJob
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")
Label1.Text="نام کاربری"
Label2.Text="رمز عبور"
btn_register.Text="register"
ht.Initialize("register",Me)
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub


Sub btn_register_Click
	Dim send As String
	send = "username="&text_user.Text&"&password="&text_pass.Text
	ht.PostString("**************registerdata.php",send)
End Sub
Sub Jobdone (job As HttpJob)
	If job.Success = True Then
		Msgbox(job.GetString,"Success")
	Else
		ToastMessageShow("خطا در برقراری اتصال" , False)
	End If
	
	
'
'	If job.Success=True Then
'		Select job.JobName
'			Case "send"
'				If job.GetString.Contains("ok") = True Then
'					ToastMessageShow("با موفقیت ارسال شد",False)
'					Else
'					ToastMessageShow("خطا در ارسال",False)
'				End If
'		End Select
'	End If
End Sub