Private Sub Button2_Click_(sender As Object, e As EventArgs) Handles Button2.Click 'testa att uppdatera databas cnnTävl = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data source=" + TPath + AktTävlNamn + "_" + AktTävlDat + ".mdb") Dim strSQL = "Select * FROM Deltagare WHERE Patrull='12' AND Figur='01'" Dim cmd As New OleDb.OleDbCommand(strSQL, cnnTävl) Dim Adapter As New OleDb.OleDbDataAdapter(cmd) Dim ds As New DataSet Dim cb As New OleDb.OleDbCommandBuilder(Adapter) 'Stop Try cnnTävl.Open() Adapter.Fill(ds) If ds.Tables(0).Rows.Count = 1 Then ds.Tables(0).Rows(0).BeginEdit() ds.Tables(0).Rows(0).Item(4) = "Bo Ek" Else MsgBox("No rows to edit") cnnTävl.Close() Exit Sub End If cb.GetUpdateCommand() Adapter.Update(ds) Catch Er As Exception MsgBox("Er= " + Er.Message) End Try cnnTävl.Close() End Sub
EndEdit
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)