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

Question

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

سوال

سلام دوستان

خسته نباشید

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

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

حل شد 0

برنامه نویسی اندروید, بیسیک فور اندروید 3 سال ۱۳۹۹/۱۰/۱۳ ۱۰:۳۸:۲۰ ۱۳۹۹/۱۰/۱۳ ۱۰:۳۸:۲۰ 2 پاسخ کاربر 0

درباره hamedkhakeeکاربر

پاسخ ها ( 2 )

morteza همکار سایت
2
۱۳۹۹/۱۰/۱۴ ۱۰:۳۱:۲۰ ۹۹/۱۰/۱۴ در ۱۰:۳۱

پاسخ
سلام.

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

اطلاعاتو که ارسال کردی، بعد با فایل php اونو میگیری و اطلاعات داخل جدول رو با دستور update بروزرسانی میکنی.
- hamedkhakee کاربر
  
  1
  ۱۳۹۹/۱۰/۱۴ ۱۳:۲۷:۳۶ ۹۹/۱۰/۱۴ در ۱۳:۲۷
  
  پاسخ
  روندشو میدونم
  کد نویسی بیسیکشو هر چقدر امتحان کردم جور درنیومد
  توی کد نویسی کمک می خوام که با سورس یا آموزش ساده بتونم پیاده کنم
  
  کدهای خودم نتیجه ندادن
  - morteza همکار سایت
    
    2
    ۱۳۹۹/۱۰/۱۵ ۱۵:۱۸:۵۸ ۹۹/۱۰/۱۵ در ۱۵:۱۸
    
    پاسخ
    
    کدهاتو میشه بذاری ببینم؟

hamedkhakee کاربر

0

۱۳۹۹/۱۰/۱۵ ۲۳:۰۰:۴۴ ۹۹/۱۰/۱۵ در ۲۳:۰۰

پاسخ

#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

۱

۲

۳

۴

۵

۶

۷

۸

۹

۱۰

۱۱

۱۲

۱۳

۱۴

۱۵

۱۶

۱۷

۱۸

۱۹

۲۰

۲۱

۲۲

۲۳

۲۴

۲۵

۲۶

۲۷

۲۸

۲۹

۳۰

۳۱

۳۲

۳۳

۳۴

۳۵

۳۶

۳۷

۳۸

۳۹

۴۰

۴۱

۴۲

۴۳

۴۴

۴۵

۴۶

۴۷

۴۸

۴۹

۵۰

۵۱

۵۲

۵۳

۵۴

۵۵

۵۶

۵۷

۵۸

۵۹

۶۰

۶۱

۶۲

۶۳

۶۴

۶۵

۶۶

۶۷

۶۸

۶۹

۷۰

۷۱

۷۲

۷۳

۷۴

۷۵

۷۶

۷۷

۷۸

۷۹

۸۰

۸۱

۸۲

۸۳

۸۴

۸۵

۸۶

۸۷

۸۸

۸۹

۹۰

۹۱

۹۲

۹۳

۹۴

۹۵

۹۶

۹۷

۹۸

۹۹

۱۰۰

۱۰۱

۱۰۲

۱۰۳

۱۰۴

۱۰۵

۱۰۶

۱۰۷

۱۰۸

۱۰۹

۱۱۰

۱۱۱

۱۱۲

۱۱۳

۱۱۴

۱۱۵

۱۱۶

۱۱۷

۱۱۸

۱۱۹

۱۲۰

۱۲۱

۱۲۲

۱۲۳

۱۲۴

۱۲۵

۱۲۶

۱۲۷

۱۲۸

۱۲۹

۱۳۰

۱۳۱

۱۳۲

۱۳۳

۱۳۴

#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=۱%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,۰%x,top,۹۵%x,۶۰%y)

p.LoadLayout("frm_aza_kol_update")

p.Height=۱۹۰%y

top=top+۱۹۰%y+۰%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

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

۱۳۹۹/۱۰/۱۶ ۱۴:۳۴:۱۹ ۹۹/۱۰/۱۶ در ۱۴:۳۴

پاسخ

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

hamedkhakee کاربر

0

۱۳۹۹/۱۰/۱۷ ۹:۳۱:۴۴ ۹۹/۱۰/۱۷ در ۰۹:۳۱

پاسخ

این پاسخ ویرایش شد.

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

	 <?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();
	?>

۱

۲

۳

۴

۵

۶

۷

۸

۹

۱۰

۱۱

۱۲

۱۳

۱۴

۱۵

۱۶

۱۷

۱۸

۱۹

۲۰

۲۱

۲۲

۲۳

۲۴

۲۵

۲۶

۲۷

۲۸

۲۹

۳۰

۳۱

۳۲

۳۳

۳۴

۳۵

۳۶

<?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();

?>

hamedkhakee کاربر

0
۱۳۹۹/۱۰/۱۹ ۲:۱۶:۵۳ ۹۹/۱۰/۱۹ در ۰۲:۱۶

ببخشید

این سورس رو دیده بودم قبلا اما نتونستم ازش استفاده کنم

morteza همکار سایت

1
۱۳۹۹/۱۰/۱۹ ۱۱:۲۵:۵۵ ۹۹/۱۰/۱۹ در ۱۱:۲۵

یعنی چی نتونستم؟!

باید بتونی دیگه

الان من هر سورسی اینجا بذارم شما میگی من نمیتونم.

همه سورسا توی یک قالب هستن.

دستورات که تغییر نمیکنن!!

ارسال یک پاسخ

پرسش قبلی

پرسش بعدی

morteza همکار سایت · Accepted Answer · ۱۳۹۹/۱۰/۱۷ ۱۵:۲۲:۳۶

morteza همکار سایت

2

۱۳۹۹/۱۰/۱۷ ۱۵:۲۲:۳۶ ۹۹/۱۰/۱۷ در ۱۵:۲۲

پاسخ

اینو ببینش

https://s16.picofile.com/file/8420352534/android.rar.html

بهترین پاسخ

عضویت در سایت

ورود

فراموشی رمز عبور

ورود

عضویت در سایت

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

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

درباره hamedkhakeeکاربر

پرسش های مشابه

سورس b4a

چگونگی ساخت دکمه فشاری

دسترسی ها – اعلانات – بیسیک فور اندروید

پخش موزیک پس زمینه اپ

بعد از انتخاب هر لیبل بتونیم داخلش یک مقدار توسط صفحه کلید پایین که از نوع لیبل هست وارد کنیم

پاسخ ها ( 2 )

ارسال یک پاسخ

سامانه آموزشی و خدماتی بپرسم

اولین وب سایت آموزشی و پرسش و پاسخ در ایران