Expand|Select|Wrap|Line Numbers
- 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