Try Dim conn As New OleDbConnection(connstrg) Dim sqlstr As String = " select * from admin_skills" Dim dt As New DataSet Dim n As String = Label1.Text Dim dd As Date Dim go String dd = DateTimePicker6.Value.Date If CheckBox16.Checked = True Then go = "no" else go = "yes" End If Dim cmd As New OleDbCommand cmd.Connection = conn cmd.CommandType = CommandType.Text conn.Open() cmd = New OleDbCommand("UPDATE admin_skills SET goods=?,g_date=?,g_accp=? where op_id=?", conn) cmd.Parameters.AddWithValue("goods", go) cmd.Parameters.AddWithValue("g_date", dd) cmd.Parameters.AddWithValue("g_accp", go) cmd.ExecuteNonQuery() conn.Close() MsgBox(" Record Updated ", MsgBoxStyle.Information) Catch ex As Exception MsgBox(ex.Message) End Try
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)