RamezanBeik
جمعه 18 آبان 1386, 17:09 عصر
سلا م
من از این کد برای حذف کردن استفاده می کنم.
که در Accss کار میکنه ولی در SQL هیچ عکس العمل نشون نمیده؟
لطف کنید بگید مشکلش چی می تونه با شه.
Do While Rs.EOF = False
If Rs.Fields!Id = Number Then
If MsgBox("DO You Want To Delet?" & " " & Rs.Fields!Name & " " & Rs.Fields!Family & " " & "Delet", vbQuestion + vbYesNo + vbMsgBoxRight, "Delet") = vbYes Then
Rs.Delete adAffectCurrent
Set Grid.DataSource = Rs
End If
Unload Me
Me.Show
Call changecaption
Exit Sub
Else
Rs.MoveNext
End If
Loop
با تشکر رمضا ن بیک
من از این کد برای حذف کردن استفاده می کنم.
که در Accss کار میکنه ولی در SQL هیچ عکس العمل نشون نمیده؟
لطف کنید بگید مشکلش چی می تونه با شه.
Do While Rs.EOF = False
If Rs.Fields!Id = Number Then
If MsgBox("DO You Want To Delet?" & " " & Rs.Fields!Name & " " & Rs.Fields!Family & " " & "Delet", vbQuestion + vbYesNo + vbMsgBoxRight, "Delet") = vbYes Then
Rs.Delete adAffectCurrent
Set Grid.DataSource = Rs
End If
Unload Me
Me.Show
Call changecaption
Exit Sub
Else
Rs.MoveNext
End If
Loop
با تشکر رمضا ن بیک