leilast
یک شنبه 08 آذر 1388, 14:53 عصر
سلام
من از کد زیر برای insert داده به بانکsql استفاده میکنم.
Public cnn1 As New ADODB.Connection
Public shahrie As New ADODB.Recordset
Private Sub AeroButton5_Click()
Set cnn1 = New ADODB.Connection
Set shahrie = New ADODB.Recordset
cnn1.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=RFID"
strsql = "insert into mali1(name,family,id,date_check,pay_check,num_chec k,date_fish,num_fish,pay_fish)values('" & Text14.Text & "','" & Text15.Text & "','" & Text13.Text & "','" & Text7.Text & "','" & Text8.Text & "','" & Text9.Text & "','" & Text10.Text & "','" & Text12.Text & "','" & Text11.Text & "')"
shahrie.Open strsql, cnn1, adOpenKeyset, adLockPessimistic, adCmdText
MsgBox ("ËÈÊ ÇØáÇÚÇÊ ÏÑíÇÝÊí ÈÇ ãæÝÞíÊ ÇäÌÇã ÔÏ")
End Sub
اما بعد از ثبت اطلاعات ,داده های txtbox خود به خود پاک میشه ولی من میخوام اطلاعات ثبت شده تا زمانی که دکمهnew رو نزدم پاک نشه
یعنی بعد از ثبت به جای پاک شدن فیلدها فقط enable=falseبشه.
شما میدونید باید چه کارکنم؟
من از کد زیر برای insert داده به بانکsql استفاده میکنم.
Public cnn1 As New ADODB.Connection
Public shahrie As New ADODB.Recordset
Private Sub AeroButton5_Click()
Set cnn1 = New ADODB.Connection
Set shahrie = New ADODB.Recordset
cnn1.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=RFID"
strsql = "insert into mali1(name,family,id,date_check,pay_check,num_chec k,date_fish,num_fish,pay_fish)values('" & Text14.Text & "','" & Text15.Text & "','" & Text13.Text & "','" & Text7.Text & "','" & Text8.Text & "','" & Text9.Text & "','" & Text10.Text & "','" & Text12.Text & "','" & Text11.Text & "')"
shahrie.Open strsql, cnn1, adOpenKeyset, adLockPessimistic, adCmdText
MsgBox ("ËÈÊ ÇØáÇÚÇÊ ÏÑíÇÝÊí ÈÇ ãæÝÞíÊ ÇäÌÇã ÔÏ")
End Sub
اما بعد از ثبت اطلاعات ,داده های txtbox خود به خود پاک میشه ولی من میخوام اطلاعات ثبت شده تا زمانی که دکمهnew رو نزدم پاک نشه
یعنی بعد از ثبت به جای پاک شدن فیلدها فقط enable=falseبشه.
شما میدونید باید چه کارکنم؟