'Declaration Public Shadows Property DeleteCommand As SQLiteCommand
public new SQLiteCommand DeleteCommand {get; set;}
'Declaration Public Shadows Property DeleteCommand As SQLiteCommand
public new SQLiteCommand DeleteCommand {get; set;}
public void UseDataAdapter(SQLiteConnection sqConnection) { SQLiteDataAdapter myAdapter = new SQLiteDataAdapter("SELECT DeptNo, DName FROM Dept", sqConnection); myAdapter.MissingSchemaAction = MissingSchemaAction.AddWithKey; DataSet myDataSet = new DataSet(); myAdapter.Fill(myDataSet,"Departments"); myDataSet.Tables["Departments"].Rows[3].Delete(); myAdapter.DeleteCommand = new SQLiteCommand("DELETE FROM Dept WHERE DeptNo = :DeptNo", sqConnection); myAdapter.DeleteCommand.Parameters.Add("DeptNo", SQLiteType.Int32, 0, "DeptNo").SourceVersion = DataRowVersion.Original; myAdapter.Update(myDataSet,"Departments"); //Get all data from all tables within the dataset foreach(DataTable myTable in myDataSet.Tables) { foreach(DataRow myRow in myTable.Rows) { foreach (DataColumn myColumn in myTable.Columns) { Console.Write(myRow[myColumn]+"\t"); } Console.WriteLine(); } Console.WriteLine(); } }
Public Sub UseDataAdapter(ByVal sqConnection As SQLiteConnection) Dim myAdapter As SQLiteDataAdapter = New SQLiteDataAdapter("SELECT DeptNo, DName FROM Dept", sqConnection) myAdapter.MissingSchemaAction = MissingSchemaAction.AddWithKey Dim myDataSet As DataSet = New DataSet myAdapter.Fill(myDataSet, "Departments") myDataSet.Tables("Departments").Rows(3).Delete() myAdapter.DeleteCommand = New SQLiteCommand("DELETE FROM Dept WHERE DeptNo = :DeptNo", sqConnection) myAdapter.DeleteCommand.Parameters.Add("DeptNo", SQLiteType.Int32, 0, "DeptNo").SourceVersion = DataRowVersion.Original myAdapter.Update(myDataSet, "Departments") Dim myTable As DataTable Dim myRow As DataRow Dim myColumn As DataColumn ' Get all data from all tables within the dataset For Each myTable In myDataSet.Tables For Each myRow In myTable.Rows For Each myColumn In myTable.Columns Console.Write(myRow(myColumn) & Chr(9)) Next myColumn Console.WriteLine() Next myRow Console.WriteLine() Next myTable End Sub