رفتن به مطلب
  • 0

پاک کردن اطلاعات چند لیست ویو که از یه دیتا بیس اطلاعات می گیرند


dr.mohammad

سوال

@@shahab.es,

سلام آقا شهاب امید وارم حالتون خوب باشه

در تاپیک قبل موضوعی بود که گفتین نفهمیدین و چون به اون تاپیک مربوط نبود من اینجا نوشتم

من  اطلاعات لیست ویو اولم را از دیتا بیس می گیرم و برای پاک کردن این اطلاعات (ینی سطری در لیست  ویو حذف شود) از کد زیر استفاده می کنم

Sub ListView1_ItemLongClick (Position As Int, Value As Object)
	SQL.ExecNonQuery("DELETE FROM tbl_height WHERE id = '"& Value &"'")
	ListView1.RemoveAt(Position)
End Sub

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

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

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

cur2 = SQL.ExecQuery("SELECT * FROM tbl_height where height = '"& a &"'")
	For i = 0 To cur1.RowCount - 1
	cur1.Position = i
	ListView2.AddtwoLines2(cur1.GetString("name") & "--"& cur1.GetInt("height"),cur1.GetString("time2"),cur1.GetInt("id"))
	Next

که ما می خوایم این اطلاعات پاک بشه(هر سطری که کاربر می خواد)

ممنون میشم توضیح بدید

 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

ارسال‌های توصیه شده

سلام عزیزم

کداتون که از نظر گرامری مشکلی نداره، منطقش هم درسته

تست بزن و خبرشو بده، اگه اروری چیزی بود هم حتما عکس بگیر......

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

بعد خودم تعجب کردم که کدام درسته چون بعضیاشو ازخودم در اوردم مثل این

SQL1.ExecQuery("SELECT  FROM tbl_height(id,name,height) into tbl_height1 Where height = '"& a &"' & INSERT INTO tbl_height1(time,time2) VALUES ('"&DateTime.Time(DateTime.Now)&"','"&DateTime.Date(DateTime.Now)&"')")
	

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

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

http://s6.picofile.com/file/8230866818/Screenshot_%DB%B2%DB%B0%DB%B1%DB%B5_%DB%B1%DB%B2_%DB%B3%DB%B1_%DB%B1%DB%B3_%DB%B4%DB%B1_%DB%B1%DB%B0.png

من میخام وقتی وصل نبود بگه دستگاه وصل نیست وارور بالارو نده

اینم چک کنید ممنون میشم

لینک ارسال
به اشتراک گذاری در سایت های دیگر

اره این کدت مورد داره، 

اما همچین کدی داریم و من فک کردم میخوای مقصود اون کد مشابه رو انجام بدی

از کدی که قرار دادی، میخوای به چی برسی، بگو که اگه بلد باشم برات تصحیح کنم....

والا من با دستگاه کار نکردم...نحوه کد نویسیشم نمیدونم

اما میتونی این خط رو محصور کنی بین ترای و کچ

این خطی که ارور میده رو

ببین کد زیر رو 

try

' khatti ke eror mide '
catch
msgbox("vasl nist","error")
end try

لینک ارسال
به اشتراک گذاری در سایت های دیگر

خوب عزیزم شما اطلاعاتتون رو از یه جدول میگیرید

هیچ مشخصه ای هم ندارید برای تفاوت دو تا لیست

اگر هست بگید که بر مبنای اون حذف کنیم...

اما هر چیزی که از جدول بپره، چون هر دو لیست به جدول tbl_height وصلن، تو هر دو تاثیر میذاره

سلام دوست عزیز اتفاقا همین نظر شما به ذهنم رسید و تصمیم گرفتم یه دیتا بیس جدید بسازم که متوجه شدم تو یک دیتا بیس دوتا تیبل میشه معرفی که که دیگه دیتا بیس جدید ناختم ویه تیبل جدید(tbl_height1 )و یکcursor جدید ویک sql جدید تعریف کردم ولی چون من زیاد حرفه ای نیستم نمی دونم کدام درسته یا یه کد ابتدایی خودم زدم از این کدا زیاد میزنم اکثرشونم نتیجه میده ولی من اینو نمی تونم امتحان کنم و فقط از روی استدلا ل این کدو زدم حالا تا دستگاه بیاد و چکش کنم کد میزارم فک نکنم اشکالی داشته باشه ولی شما دوباره چکش کنید ممنون میشم.من کله برنامم یه اکتویتیه کل اکتویتی رو میزارم خیلی کدا تو هم توهم احیانا اگر متوجه نشدید من همون کد و جداگونه میذارم ممنونم اگه چک کند واطلاع دهید

#Region  Project Attributes 
	#ApplicationLabel: تشخیص هویت
	#VersionCode: 1
	#VersionName: 
	'SupportedOrientations possible values: unspecified, landscape or portrait.
	#SupportedOrientations: unspecified
	#CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes 
	#FullScreen: True
	#IncludeTitle: False
#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.
	
	
    Dim PH As Phone

	Dim writer As TextWriter
    Dim reader As TextReader
	
	
	Private Button1 As Button
	Private Label1 As Label
	Private Button2 As Button
	Private Button3 As Button
	Private Button4 As Button
	Private Button5 As Button
	Private Button6 As Button
	Private Panel1 As Panel
	Private Button7 As Button
	Private Button8 As Button
	Private EditText1 As EditText
	Private EditText2 As EditText
	Private ListView1 As ListView
	Private Panel2 As Panel
	Private Button9 As Button
	Private Button10 As Button
	Private ListView2 As ListView
	Private Label2 As Label
	
	'-------------------------------------------------
	'blotouth
	Dim s1 As Serial
	Dim tr As TextReader
	Dim tw As TextWriter
	Dim turn_bluetooth As Toggle
	Dim thread1 As Thread
	Dim check As Boolean : check = True
	Dim verify As Boolean : verify = False
	Dim temp As Int
	'-------------------------------------------------
	
	
	'-------------------------------------------------
	'data base
	Dim SQL As SQL
	Dim SQL1 As SQL
	Dim cur As Cursor
	Dim hasData As Int
	Dim a As Int
	Dim cur1 As Cursor
	Dim cur2 As Cursor
	'-------------------------------------------------
	
	
	Private Button11 As Button
	Private Button12 As Button
	Private Panel3 As Panel
	Private Button13 As Button
	Private Panel4 As Panel
	Private EditText3 As EditText
	Private Button14 As Button
	Private Label5 As Label
	Private Button15 As Button
	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("l1")
    
	
	
	Panel1.Visible = False
	Panel2.Visible = False
	Panel3.Visible = False
	Panel4.Visible = False
	PH.SetScreenOrientation(1)
	'--------------------------------------------
	turn_bluetooth.Initialize
	If s1.IsInitialized = False Then
		s1.Initialize("serial1")
	End If
	thread1.Initialise("trd1")
	'--------------------------------------------
	
	
	
	
	'--------------------------------------------
	'data base
	If File.Exists(File.DirInternal,"ghad5.db") = False Then
		File.Copy(File.DirAssets,"ghad5.db",File.DirInternal,"ghad5.db")
	End If
	If SQL.IsInitialized = False Then
		SQL.Initialize(File.DirInternal,"ghad5.db",True)
	End If 
	
	
	 '-------------------------------------------

    cur = SQL.ExecQuery("SELECT * FROM tbl_height")
	hasData = cur.RowCount
	
	For i = 0 To cur.RowCount - 1
	cur.Position = i
	ListView1.AddtwoLines2(cur.GetString("name") &"--"& cur.GetInt("height") ,cur.GetString("time2")&"--"&cur.GetString("time"),cur.getint("id"))
   Next
	 
	 
End Sub

Sub Activity_Resume
    If s1.IsEnabled = False Then
		ToastMessageShow ("بلوتوث را روشن کنید",False)
		Button4.Visible = True
	End If
	
	
End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub



Sub Button1_Click
	
	Dim r As Int
	r = Msgbox2("خروج","آیا مایل به خروج از برنامه هستید ؟","خیر","","بله",LoadBitmap(File.DirAssets,"end1.png"))
	If r=DialogResponse.POSITIVE Then
	StartActivity(Me)
	End If
	
	If r=DialogResponse.NEGATIVE Then
	Activity.Finish
	End If
End Sub
Sub Button6_Click
	s1.Disconnect
End Sub
Sub Button5_Click
	Dim m1 As Map
	Dim l1 As List
	Dim result As Int
	
	m1.Initialize
	l1.Initialize
	
	m1 = s1.GetPairedDevices
	For i = 0 To m1.Size-1
		l1.Add(m1.GetKeyAt(i))
	Next
	
	result = InputList(l1,"یکی از دستگاه هارا انتخاب کنید",-1)
	s1.Connect(m1.Get(l1.Get(result)))
End Sub
Sub Button4_Click
	turn_bluetooth.TurnBluetoothOn
End Sub
Sub Button3_Click
	Panel2.Visible = True
End Sub
Sub Button2_Click
	Panel1.Visible = True
End Sub
Sub Button8_Click
	Panel1.Visible = False
End Sub
Sub Button7_Click
	
	If EditText1.text = ""  Then
	Msgbox("مقداری را وارد کنید","خطا!!!") 
	Else
	ListView1.Clear
	Panel1.Visible = False
	ToastMessageShow("ذخیره شد",False)
	
	
	
	
	SQL.ExecNonQuery("INSERT INTO tbl_height (id,name,height,time,time2) VALUES (null,'"&EditText1.Text&"','"&EditText2.text&"','"&DateTime.Time(DateTime.Now)&"','"&DateTime.Date(DateTime.Now)&"')")
	cur = SQL.ExecQuery("SELECT * FROM tbl_height")
	hasData = cur.RowCount
	
	For i = 0 To cur.RowCount - 1
	cur.Position = i
	
	
	ListView1.AddtwoLines2(cur.GetString("name") &"--"& cur.GetInt("height") ,cur.GetString("time2")&"--"&cur.GetString("time"),cur.getint("id"))
    Next
	
	EditText1.Text = ""
	EditText2.Text = ""
	
	End If
End Sub
Sub Button9_Click
	Panel2.Visible = False
End Sub
Sub Button10_Click
	tw.Write("3")
	tw.Flush
	verify = True
	thread1.Start("calculate",Null)
End Sub

Sub Button15_Click
	tw.Write("3")
	tw.Flush
	verify = True
	thread1.Start("calculate",Null)
End Sub

Sub serial1_Connected (Success As Boolean)
	If Success = True Then
		ToastMessageShow("Connected.",False)
		tw.Initialize(s1.OutputStream)
		tr.Initialize(s1.InputStream)
	End If
End Sub

Sub calculate
	Do While check = True
		temp = tr.ReadLine
		thread1.RunOnGuiThread("calculate_print",Array As Object(temp))
		thread1.Sleep(100)
	Loop
End Sub
Sub calculate_print(t As Object)
    
	Label5.Text = t
	a = EditText3.Text-t
    Label2.Text = a
	SQL1.ExecQuery("SELECT  FROM tbl_height(id,name,height) into tbl_height1 Where height = '"& a &"' & INSERT INTO tbl_height1(time,time2) VALUES ('"&DateTime.Time(DateTime.Now)&"','"&DateTime.Date(DateTime.Now)&"')")
	cur1 = SQL1.ExecQuery("SELECT * FROM tbl_height1")
	For i = 0 To cur1.RowCount - 1
	cur1.Position = i
	ListView2.AddtwoLines2(cur1.GetString("name") & "--"& cur1.GetInt("height"),cur1.GetString("time2"),cur1.GetInt("id"))
	Next
	
	End Sub
Sub ListView1_ItemLongClick (Position As Int, Value As Object)
	SQL.ExecNonQuery("DELETE FROM tbl_height1 WHERE id = '"& Value &"'")
	ListView1.RemoveAt(Position)
End Sub
Sub Button11_Click
	Panel3.Visible = True
End Sub
Sub Button12_Click
	Panel3.Visible = False
End Sub
Sub Button13_Click
	Panel4.Visible = True
End Sub
Sub Button14_Click
	Panel4.Visible = False
End Sub

Sub ListView2_ItemLongClick (Position As Int, Value As Object)
	SQL.ExecNonQuery("DELETE FROM tbl_height1 WHERE id = '"& Value &"'")
	ListView2.RemoveAt(Position)
End Sub
Sub ListView1_ItemClick (Position As Int, Value As Object)
	cur2 = SQL.ExecQuery("SELECT * FROM tbl_height where id = '"& Value &"'")
	For i = 0 To cur2.RowCount - 1
	cur2.Position = i
	Next
	Msgbox(cur2.GetString("time2")&"--"&cur2.GetString("time"),"ذخیره شده در :")
End Sub
لینک ارسال
به اشتراک گذاری در سایت های دیگر

اما میتونی این خط رو محصور کنی بین ترای و کچ این خطی که ارور میده رو ببین کد زیر رو try ' khatti ke eror mide ' catch msgbox("vasl nist","error") end try

ممنونم مشکلم از این ببت حل شد

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

و اما این

همانطور که در چریانید و خودتان هم فرمودید چون دو تا لیست ویو به یک دیتا بیس ویک تیبل متصل است با هر تغیری  که روی دیتا بیس انجام گیرم رو جفت لیست ویو ها تاثیر دارره که من اینو نمی خواستم و موقع پاک کردنه ایتم های لیست ویو به مشکل برخوردم

و حتی در لیست ویو دوم من اسمو فامیلم می خواستم ذخیره کنم (اسم فامیل افرادی که از زیر دستگاه رد میشن)

خوب حالا برای جدا کردنه لیست ویو ها از هم بنده اومدم یه تیبل جدید(tbl_height1) خوب این از این

بعد بنده اومدم اسم وفامیل را از لیبل اول گرفتم و در لیبل دوم ریختم

SQL1.ExecQuery("SELECT  FROM tbl_height(id,name,height) into tbl_height1 Where height = '"& a &"') 

و از این کد استفاده کردم

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

)INSERT INTO tbl_height1(time,time2) VALUES ('"&DateTime.Time(DateTime.Now)&"','"&DateTime.Date(DateTime.Now)&"')

و دو کد با هم ترکیب کردم و حاصل این شد

SQL1.ExecQuery("SELECT  FROM tbl_height(id,name,height) into tbl_height1 Where height = '"& a &"' & INSERT INTO tbl_height1(time,time2) VALUES ('"&DateTime.Time(DateTime.Now)&"','"&DateTime.Date(DateTime.Now)&"')")

اینم فلسفه خلق این کد

مبهم بود بگید توضیح بدم

ممنونم

لینک ارسال
به اشتراک گذاری در سایت های دیگر

خوب باید به یه شکلی ای دی رو بهش برسونی....

نمیدونم با اسم شخص یا با قد شخص یا با یه شاخص دیگه به غیر از ای دی

 

خوبه که مشکلتون حل شده...

لینک ارسال
به اشتراک گذاری در سایت های دیگر

دوست عزیز گفتم تقریبا;-)

الان این چیزی که گفتیدو چطور انجام بدم مثلا تو تیبل دو چهار تا اسم داریم این میاد چهارمیو هی آپ میکنه من نمی خوام اینطور بشه می خوام چهارمیم ثابت باشه

الان من میتونم بجای maxازnewاستفاده کنم؟

اگه نمیشه پس چی کار کنم

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

به هر حال موفق باشید

ممنون

لینک ارسال
به اشتراک گذاری در سایت های دیگر

سلام

دوست عزیز جواب سوال اخرو ندادی ممنون میشم اینم بگی

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

SQL1.ExecQuery("insert into tbl_height1(id,name,height) from tbl_height(id,name,height) Where height = '"& a &"' & INSERT INTO tbl_height1(time,time2) VALUES ('"&DateTime.Time(DateTime.Now)&"','"&DateTime.Date(DateTime.Now)&"')")
	

ممنون میشم چک کنید ونتیجه رو اعلام کنید

لینک ارسال
به اشتراک گذاری در سایت های دیگر

سلام

کدتون اشتباهه

به این شکل نمیتونید کار کنید اصن

شما باید تعداد ستون ها هر دو جدولتون یکی باشه حتما

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

اگر مشکل وارد کردن تاریخ و ساعت رو دارید، قبل از انتقال اطلاعات وارد جدول اول بکنید و بعد اطلاعات رو انتقال بدید

sql.exenonquery("INSERT INTO tbl2 (id,name,lname,date,time) SELECT id,name,lname,taarikh,zamaan FROM tb1 WHERE id = 2")

بررسی کنید...

لینک ارسال
به اشتراک گذاری در سایت های دیگر

شما باید تعداد ستون ها هر دو جدولتون یکی باشه حتما

بله جفت تیبل ها ستون های یکسان دارند که اسم ستون ها هم حتی با هم برابر هست فقط اسم تیبل ها با هم فرق داره

 

 

اگر مشکل وارد کردن تاریخ و ساعت رو دارید، قبل از انتقال اطلاعات وارد جدول اول بکنید

خوب من اگه این کارو کنم لیست ویو اولم چون تیبل یک رو میخونه اطلاعات اضافه رو نشان میده و ما اینو نمی خوایم

اگه اون کد غلطه من میتونم اطلاعاتو جداگونه به تیبل 2 بدم مثل گد زیر

SQL1.ExecQuery("insert into tbl_height1(id,name,height) select id,name,height from tbl_height Where height = '"& a &"'")
	SQL1.ExecQuery("INSERT INTO tbl_height1(time,time2) VALUES ('"&DateTime.Time(DateTime.Now)&"','"&DateTime.Date(DateTime.Now)&"')")
	

اینم غلطه؟

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

شما همون موقع اطلاعات تیبل یک رو تغییر میدی

میبری به تیبل دو

اون سطر از تیبل یک رو پاک میکنی..

در ضمن به query و nonquery هم توجه کنید

رعایت نمیکنید

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

اون سطر از تیبل یک رو پاک میکنی..

چطور پاک کنیم

در ضمن به query و nonquery هم توجه کنید

تجربه ای ندارم در این موضوع چطور باید دقت کنم

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

این چطوریه

کدش چیه؟

ممنون

لینک ارسال
به اشتراک گذاری در سایت های دیگر

این سه خط کدو ببین

	Dim sql As SQL
	sql.ExecNonQuery("UPDATE tbl SET date = '"&DateTime.Date(DateTime.Now)&"' , time = '"&DateTime.Time(DateTime.Now)&"'")
	sql.ExecNonQuery("INSERT INTO tbl2(name,lname,date,time) SELECT name,lname,date,time FROM tbl WHERE id = "&A&"")
	sql.ExecNonQuery("DELETE from tbl WHERE id = "&A&"")

خط اولش که اینه

	sql.ExecNonQuery("UPDATE tbl SET date = '"&DateTime.Date(DateTime.Now)&"' , time = '"&DateTime.Time(DateTime.Now)&"' WHERE id = "&A&"")
 

میاد زمان اون لحظه رو میذاره توی تیبل اول... یعنی الان زمان جدید رو داریم

خط بعدی

	sql.ExecNonQuery("INSERT INTO tbl2(name,lname,date,time) SELECT name,lname,date,time FROM tbl WHERE id = "&A&"")

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

خط بعدی هم میاد اون سطر رو پاک میکنه از جدول اول...

	sql.ExecNonQuery("DELETE from tbl WHERE id = "&A&"")

-----------------------------------

تجربه ای ندارم در این موضوع چطور باید دقت کنم

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

خوب دوست عزیز شما وقتی آپ میکنی زمانو تو لیست اولم تغییر میکنه چون لیست اولو از تیبل یک میگیریم به نظرم ما بیایم اول اطلاعات رو انتقال بدیم سپس تغیراتو روش انجام بدیم

نظرتون چیه

این کار شدنیه؟

لینک ارسال
به اشتراک گذاری در سایت های دیگر

خوب دوست عزیز اگه تغیرات در لیبل اول ایجاد شه لیست اولم  تغییر میکنه به نظرتون بهتر نیست اول اطلاعات رو انتقال بدیم سپس روش تغیرات ایجاد کنیم در ضمن شما زمانی که آپدیت میکنی به نظرم زمان کل رو آپ میکنید ینی زمان همه ی ستر را داره تغیر میکنه ولی ما می خواهیم زمان وارد شدن هر سطر به تیبل یک رو بدونیم

در ضمن شما اومدید تایم رو آپ کردی تاریخ چی میشه

لینک ارسال
به اشتراک گذاری در سایت های دیگر

اون کار هم شدنیه

کدهارو دقیق بررسی کنید

هم تاریخ داره اپ میشه هم زمان...

---------------------------------

اسپم های تاپیکت داره میره بالاها دوست عزیز

اگر چیز جدید به ذهنتون میرسه، نیاز نیست پست اضافه بدید، پست قبلی رو ادیت کنید......

لینک ارسال
به اشتراک گذاری در سایت های دیگر

خب حالا من اومدم اطلاعات رو انتقال دادم سپس تغیر ایجاد کردم

SQL1.ExecQuery("insert into tbl_height1(id,name,height,time,time2) select id,name,height,time,time2 from tbl_height Where height = '"& a &"'")
	SQL1.ExecNonQuery("UPDATE tbl_height1 SET date = '"&DateTime.Date(DateTime.Now)&"' , time = '"&DateTime.Time(DateTime.Now)&"'")
	

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

اسپم های تاپیکت داره میره بالاها دوست عزیز اگر چیز جدید به ذهنتون میرسه، نیاز نیست پست اضافه بدید، پست قبلی رو ادیت کنید......

میدونم شرمنده نت ضعیفه داشتم یه چی دان می کردم فکر کردم پیامم نیومده دوباره پیام داده شرمنده

ممنونم

لینک ارسال
به اشتراک گذاری در سایت های دیگر

اره
شما باید از id اون سطر استفاده کنی دیگه

SQL1.ExecNonQuery("UPDATE tbl_height1 SET date = '"&DateTime.Date(DateTime.Now)&"' , time = '"&DateTime.Time(DateTime.Now)&"' WHERE id = 2")

ای دی رو حتما باید بدی برای اپدیت...

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...