Here is my code for a “Save” button on my VB Form:
My problem is that when I click the “Save” button on my Form nothing is saved on my MS Access DB. Can anyone help me please? Thanks in advance.
Code:
Dim conStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\TafitaDB.mdb;Persist Security Info=True"
Dim objCon As New OleDbConnection(conStr)
Dim sqlInsert As String = "insert into service values(@service_id,@service_type,@price)"
Dim cmd As New OleDbCommand(sqlInsert, objCon)
Try
objCon.Open()
cmd.Parameters.AddWithValue("@service_id", OleDbType.Integer).Value = txtServiceID.Text
cmd.Parameters.AddWithValue("@service_type", OleDbType.WChar).Value = txtServType.Text
cmd.Parameters.AddWithValue("@price", OleDbType.Currency).Value = txtPrice.Text
cmd.ExecuteNonQuery()
MsgBox("Data save successful", MsgBoxStyle.OkOnly, "Tafita Electronic System")
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.OkOnly, "Tafita Electronic System")
Finally
objCon.Close()
objCon.Dispose()
End Try
Comment