Sunday, November 6, 2016

SQL Save


Sample Codes Here:

Private Sub cmdD_Click()
Dim a As String

a = MsgBox("Are you sure you want to Delete?", vbQuestion + vbYesNo, "Message")
If a = vbYes Then
con.Execute "Delete * from tblsampledb where FirstName='" & txtFN.Text & "'"
MsgBox "Successfully Delete!", vbCritical, "Message"

txtFN.Text = ""
txtMN.Text = ""
txtLN.Text = ""
txtFN.SetFocus
Exit Sub

End If

End Sub

YOUTUBE CHANNEL: http://www.youtube.com/user/MrJomarflores123

OFFICIAL WEBSITE: http://jstechtutor.blogspot.com/

No comments:

Post a Comment