KenQui
Member
- Joined
- May 11, 2022
- Messages
- 12
- Programming Experience
- Beginner
What is wrong in my code below?
How to fix the error?
Private Sub AddAdmin()
' ADD PARAMETERS
aAccess.AddParam("@admin_no", txtANo.Text)
aAccess.AddParam("@username", txtAUsername.Text)
aAccess.AddParam("@password", txtAPassword.Text)
' EXECUTE INSERT COMMAND
aAccess.ExecQuery("INSERT INTO db_admin (Admin_No,Username,Password) " & _
"VALUES (@admin_no,@username,@password); ")
' REPORT & ABORT ON ERRORS
If Not String.IsNullOrEmpty(aAccess.Exception) Then MsgBox(aAccess.Exception) : Exit Sub
' SUCCESS!!
MsgBox("The book was added successfully")
Me.RefreshGrid()
End Sub
How to fix the error?
Private Sub AddAdmin()
' ADD PARAMETERS
aAccess.AddParam("@admin_no", txtANo.Text)
aAccess.AddParam("@username", txtAUsername.Text)
aAccess.AddParam("@password", txtAPassword.Text)
' EXECUTE INSERT COMMAND
aAccess.ExecQuery("INSERT INTO db_admin (Admin_No,Username,Password) " & _
"VALUES (@admin_no,@username,@password); ")
' REPORT & ABORT ON ERRORS
If Not String.IsNullOrEmpty(aAccess.Exception) Then MsgBox(aAccess.Exception) : Exit Sub
' SUCCESS!!
MsgBox("The book was added successfully")
Me.RefreshGrid()
End Sub