[RESOLVED] VB.NET Error: cmd.ExecuteNonQuery! Guide me
Hi GUys,
Im getting error at cmd.ExecuteNonQuery. Kindly help me how to fix it..
thanks in advance.
Code:
Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
Dim sqlinsert As String
' We use the INSERT statement which tells our program to add the information
' from the Forms Text fields into the Databases columns.
sqlinsert = "INSERT INTO Contacts(FirstName, LastName, Address, CompanyName, CompanyAddress, PersonalAC, CompanyAC, PhoneNumber, Remarks, IDNum)" & _
"VALUES(@FirstName, @LastName, @Address, @CompanyName, @CompanyAddress, @PersonalAC, @CompanyAC, @PhoneNumber, @Remarks, @IDNum)"
Dim cmd As New OleDbCommand(sqlinsert, con1)
' This assigns the values for our columns in the DataBase.
' To ensure the correct values are written to the correct column
cmd.Parameters.Add(New OleDbParameter("@FirstName", txtFirst.Text))
cmd.Parameters.Add(New OleDbParameter("@LastName", txtLast.Text))
cmd.Parameters.Add(New OleDbParameter("@Address", txtAddress.Text))
cmd.Parameters.Add(New OleDbParameter("@CompanyName", txtCompanyN.Text))
cmd.Parameters.Add(New OleDbParameter("@CompanyAddress", txtCompanyA.Text))
cmd.Parameters.Add(New OleDbParameter("@PersonalAC", txtPersonalAC.Text))
cmd.Parameters.Add(New OleDbParameter("@CompanyAC", txtCompanyAC.Text))
cmd.Parameters.Add(New OleDbParameter("@PhoneNumber", txtPhone.Text))
cmd.Parameters.Add(New OleDbParameter("@Remarks", txtRemarks.Text))
cmd.Parameters.Add(New OleDbParameter("@IDNum", txtID.Text))
' This is what actually writes our changes to the DataBase.
' You have to open the connection, execute the commands and
' then close connection.
con1.Open()
cmd.ExecuteNonQuery()
con1.Close()
' This are subs in Module1, to clear all the TextBoxes on the form
' and refresh the DataGridView on the MainForm to show our new records.
ClearTextBox(Me)
RefreshDGV()
Me.Close()
End Sub
Re: VB.NET Error: cmd.ExecuteNonQuery! Guide me
