آپدیت و حذف اطلاعات دیتابیس آنلاین

سوال

سلام دوستان

خسته نباشید

من یه دیتابیس انلاین دارم که اطلاعاتو میتونم ازش بخونم حتی با لانگ کلیک روی اسم کاربر وارد صفحه ویرایشم میشم اما نمیدونم چطور باید کد ویرایشو بنویسم که اطلاعاتم آسیب نبینه، الان که ذخیره رو برای بروزرسانی میزنم اطلاعاتم همگی پاک میشن
میشه برای ویرایش و حذف داده از دیتابیس آنلاین، کدنویسیشو بهم یاد بدید؟

یا اگر سورسی دارید بهم بدید؟

حل شد 0
, 2021-01-02T10:38:20+03:30 2 پاسخ کاربر 0

پاسخ ها ( 2 )

  1. morteza
    2
    2021-01-03T10:31:20+03:30
    پاسخ

    سلام.

    باید از متد postString کتابخانه httputils استفاده کنی.

    اطلاعاتو که ارسال کردی، بعد با فایل php اونو میگیری و اطلاعات داخل جدول رو با دستور update بروزرسانی میکنی.

    • hamedkhakee
      1
      2021-01-03T13:27:36+03:30
      پاسخ

      روندشو میدونم
      کد نویسی بیسیکشو هر چقدر امتحان کردم جور درنیومد
      توی کد نویسی کمک می خوام که با سورس یا آموزش ساده بتونم پیاده کنم

      کدهای خودم نتیجه ندادن

       

  2. hamedkhakee
    0
    2021-01-04T23:00:44+03:30
    پاسخ 
    #Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: false
#End Region

Sub Process_Globals
	Dim user_id As String
	

End Sub

Sub Globals

	Dim ime As IME

	Dim ff As PhoneEvents
	Dim top As Int=1%x
	Dim p As Panel
	Dim jp As JSONParser
	
	Private slvaza As ScrollView
	Private lblcancel As Label
	Private lblsave As Label


	Private txtfamili As EditText
	Private txtnam As EditText
	Private txtozvkod As EditText
	Private txtsemat As EditText
	Private txtbirth As EditText
	Private txtshenas As EditText
	Private txtkodemeli As EditText
	Private txtsadere As EditText
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("frm_aza_kol_update_slv")
	ff.Initialize("ff")
	
	Main.ht1.Initialize("ht1",Me)
	ProgressDialogShow("درحال برقراری با سرور. لطفا صبر کنید...")
	Main.ht1.Download("http://golrizan.ir/m_koleaza.php")
	
	Main.ht2.Initialize("ht_update",Me)


End Sub

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' تعریف رویداد بررسی اتصال اینترنت
Sub ff_ConnectivityChanged (NetworkType As String, State As String, Intent As Intent)
	If State = "CONNECTED" Then
	Else
		Msgbox("Please check internet","")
	End If
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' تعریف دکمه بازگشت سخت افزاری
Sub Activity_KeyPress (KeyCode As Int) As Boolean 'Return True to consume the event
	If KeyCode = KeyCodes.KEYCODE_BACK Then
		Activity.Finish
		StartActivity(frm_aza_mainpage)
	End If
	Return True
End Sub

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' تعریف جاب دان
Sub jobdone (job As HttpJob)
	
#region update
		Try
	If job.Success=True Then
		ProgressDialogHide
		If job.Success=True Then
			If job.jobname = "ht1" Then
				jp.Initialize(job.GetString)
				Main.list=jp.NextArray
				Dim p As Panel
				p.Initialize("p")
				slvaza.Panel.AddView(p,0%x,top,95%x,60%y)
				p.LoadLayout("frm_aza_kol_update")
				p.Height=190%y
				top=top+190%y+0%x
					
				user_id=Main.map_title.Get("user_id")
				txtfamili.Text=Main.map_title.Get("famili")
				txtnam.Text=Main.map_title.Get("nam")
				txtozvkod.Text=Main.map_title.Get("ozvkod")
				txtsemat.Text=Main.map_title.Get("semat")
				txtbirth.Text=Main.map_title.Get("birth")
				txtshenas.Text=Main.map_title.Get("shenas")
				txtkodemeli.Text=Main.map_title.Get("kodemeli")
				txtsadere.Text=Main.map_title.Get("sadere")
				slvaza.Panel.Height=pnlmain.Height
			Else
				
				ToastMessageShow("لطفا اتصال برنامه به اینترنت را بررسی کنید",False)
			End If
		End If
	End If
	
	Main.ht1.Release
		Catch
			ToastMessageShow("خطا! لطفا صفحه را بازآماد کنید",False)
		End Try

#end region

End Sub

Sub lblsave_Click

#region 0
	Try
		Dim btn_tag_update As Label
		btn_tag_update=Sender
		Log(btn_tag_update.Tag)
		
		Dim up_info As String
		up_info= "user_id=" & user_id & "famili=" & txtfamili.Text & "nam=" & txtnam.Text & "ozvkod=" & txtozvkod.Text& "semat=" & txtsemat.Text & "birth=" & txtbirth.Text _
	& "shenas=" & txtshenas.Text & "kodemeli=" & txtkodemeli.Text & "sadere=" & txtsadere.Text 
	
		Main.ht2.PostString("http://golrizan.ir/m_koleaza_update.php","user_id=" & user_id & up_info)
		ime.HideKeyboard
		ToastMessageShow("UPDATED",False)
	Catch
		ToastMessageShow("Error",False)
	End Try
#end region

End Sub

Sub lblcancel_Click
	Activity.Finish
	StartActivity(frm_aza_kol_list_slv)
End Sub

     

    • morteza
      1
      2021-01-05T14:34:19+03:30
      پاسخ

      اولا اینکه ارورت چیه و دوما چرا کدهای php ت رو نذاشتی؟!

      • hamedkhakee
        0
        2021-01-06T09:31:44+03:30
        پاسخ
        این پاسخ ویرایش شد.

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

        	 <?php
	$servername = "localhost";
	$username = "***********";
	$password = "***********";
	$dbname = "*************";
	
	// Create connection
	$conn = new mysqli($servername, $username, $password, $dbname);
	// Check connection
	if ($conn->connect_error) {
	    die("Connection failed: " . $conn->connect_error);
	}
	$id =$_REQUEST['id'];
	$user_id =$_REQUEST['user_id'];
	$famili=$_REQUEST['famili'];
	$nam=$_REQUEST['nam'];
	$ozvkod=$_REQUEST['ozvkod'];
	$semat=$_REQUEST['semat'];	
	
	$birth=$_REQUEST['birth'];	
	$shenas=$_REQUEST['shenas'];	
	$kodemeli=$_REQUEST['kodemeli'];	
	$sadere=$_REQUEST['sadere'];
	
	
	
	$sql = "UPDATE tbl1 SET user_id='$user_id',famili='$famili',nam='$nam',ozvkod='$ozvkod',semat='$semat',birth='$birth',shenas='$shenas',kodemeli='$kodemeli',sadere='$sadere' WHERE user_id='$user_id'";
	
	if ($conn->query($sql) === TRUE) {
	    echo "Record updated successfully";
	} else {
	    echo "Error updating record: " . $conn->error;
	}
	
	$conn->close();
	?>

         

ارسال یک پاسخ