sahar_82614
05-04-2010, 20:01
سلام
من یک برنامه با vb6 , sql نوشتم ولی الان یک کد میخوام که همون اطلاعات قبلی که درجدول دارم رو بتونم ویرایش کنم یعنی سطر جدید باز نشود و ویرایش شده همون اطلاعات دوباره تکرار نشود
کدی که برای ثبت اطلاعات نوشتم را در قسمت زیر وارد کردم
خواهش میکنم جواب دهید :20::20::20::20:
cnn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=bayegani;Data Source=sh"
rst.Open "table", cnn, adOpenKeyset, adLockOptimistic, adCmdTable
rst.AddNew
rst.MoveLast
rst!pno1 = Combo1.Text
Combo1.Refresh
rst!pno2 = Text1.Text
rst!Name = Combo6.Text
Combo6.Refresh
rst!elat = Combo7.Text
rst!date1 = Text4.Text
rst!date2 = Text5.Text
Combo7.Refresh
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
rst.Update
rst.Close
cnn.Close
Set cnn = Nothing
Set rst = Nothing
من یک برنامه با vb6 , sql نوشتم ولی الان یک کد میخوام که همون اطلاعات قبلی که درجدول دارم رو بتونم ویرایش کنم یعنی سطر جدید باز نشود و ویرایش شده همون اطلاعات دوباره تکرار نشود
کدی که برای ثبت اطلاعات نوشتم را در قسمت زیر وارد کردم
خواهش میکنم جواب دهید :20::20::20::20:
cnn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=bayegani;Data Source=sh"
rst.Open "table", cnn, adOpenKeyset, adLockOptimistic, adCmdTable
rst.AddNew
rst.MoveLast
rst!pno1 = Combo1.Text
Combo1.Refresh
rst!pno2 = Text1.Text
rst!Name = Combo6.Text
Combo6.Refresh
rst!elat = Combo7.Text
rst!date1 = Text4.Text
rst!date2 = Text5.Text
Combo7.Refresh
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
rst.Update
rst.Close
cnn.Close
Set cnn = Nothing
Set rst = Nothing