Deleting an entry in datagrid
-
Hello everybody. I have the following problem. I can connect to a database with a datagrid and display all records. But when i go to delete one it doesn't do it. Code for populating datagrid Dim connString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\db1.mdb" Dim myConnection As OleDbConnection = New OleDbConnection myConnection.ConnectionString = connString Dim da As OleDbDataAdapter = New OleDbDataAdapter("Select * from tblDevices", myConnection) Dim ds As DataSet = New DataSet da.Fill(ds, "tblDevices") Dim dv As DataView = ds.Tables("tblDevices").DefaultView DataGrid1.DataSource = dv code for deleting Dim connString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\db1.mdb" Dim myConnection As OleDbConnection = New OleDbConnection Dim cmd As OleDbCommand myConnection.ConnectionString = connString myConnection.Open() Dim mySelectText As String = "Select * from tblDevices" Dim myDataAdapter As New OleDbDataAdapter(mySelectText, myConnection) myDataAdapter.DeleteCommand = New OleDbCommand("DELETE FROM tblDevices WHERE Item= '" & tempDevice & "' AND Booked= '" & txtBookedBy.Text & "' AND Date= '" & txtDate.Text & "' AND Time= '" & txtTime.Text & " '", myDataAdapter.SelectCommand.Connection) myConnection.Close() What am i doing wrong? :wtf: Still trying to find the way
-
Hello everybody. I have the following problem. I can connect to a database with a datagrid and display all records. But when i go to delete one it doesn't do it. Code for populating datagrid Dim connString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\db1.mdb" Dim myConnection As OleDbConnection = New OleDbConnection myConnection.ConnectionString = connString Dim da As OleDbDataAdapter = New OleDbDataAdapter("Select * from tblDevices", myConnection) Dim ds As DataSet = New DataSet da.Fill(ds, "tblDevices") Dim dv As DataView = ds.Tables("tblDevices").DefaultView DataGrid1.DataSource = dv code for deleting Dim connString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\db1.mdb" Dim myConnection As OleDbConnection = New OleDbConnection Dim cmd As OleDbCommand myConnection.ConnectionString = connString myConnection.Open() Dim mySelectText As String = "Select * from tblDevices" Dim myDataAdapter As New OleDbDataAdapter(mySelectText, myConnection) myDataAdapter.DeleteCommand = New OleDbCommand("DELETE FROM tblDevices WHERE Item= '" & tempDevice & "' AND Booked= '" & txtBookedBy.Text & "' AND Date= '" & txtDate.Text & "' AND Time= '" & txtTime.Text & " '", myDataAdapter.SelectCommand.Connection) myConnection.Close() What am i doing wrong? :wtf: Still trying to find the way