'Declaration Public Shadows Property UpdateCommand As SQLiteCommand
public new SQLiteCommand UpdateCommand {get; set;}
'Declaration Public Shadows Property UpdateCommand As SQLiteCommand
public new SQLiteCommand UpdateCommand {get; set;}
public void UseDataTable(SQLiteConnection sqConnection) { SQLiteDataTable myDataTable = new SQLiteDataTable("SELECT * FROM Dept", sqConnection); try { myDataTable.Active = true; myDataTable.Rows[3]["DName"] = "Researches"; myDataTable.UpdateCommand = new SQLiteCommand("UPDATE Dept SET DeptNo = :DeptNo, DName = :DName, Loc = 'Modified' " + "WHERE DeptNo = :oldDeptNo", sqConnection); myDataTable.UpdateCommand.Parameters.Add("DeptNo", SQLiteType.Int32, 0, "DeptNo"); myDataTable.UpdateCommand.Parameters.Add("DName", SQLiteType.Text, 15, "DName"); myDataTable.UpdateCommand.Parameters.Add("oldDeptNo", SQLiteType.Int32, 0, "DeptNo").SourceVersion = DataRowVersion.Original; Console.WriteLine(myDataTable.Update()+" rows updated."); myDataTable.Active = false; //Refresh the table to check custom updates myDataTable.Active = true; foreach(DataRow myRow in myDataTable.Rows) { foreach(DataColumn myCol in myDataTable.Columns) { Console.Write(myRow[myCol]+"\t"); } Console.WriteLine(); } } finally { myDataTable.Active = false; } }
Public Sub UseDataTable(ByVal sqConnection As SQLiteConnection) Dim myDataTable As SQLiteDataTable = New SQLiteDataTable("SELECT * FROM Dept", sqConnection) Try myDataTable.Active = True myDataTable.Rows(3)("DName") = "Researches" myDataTable.UpdateCommand = New SQLiteCommand("UPDATE Dept SET DeptNo = :DeptNo, DName = :DName, Loc='Modified' " & _ "WHERE DeptNo = :oldDeptNo", sqConnection) myDataTable.UpdateCommand.Parameters.Add("DeptNo", SQLiteType.Int32, 0, "DeptNo") myDataTable.UpdateCommand.Parameters.Add("DName", SQLiteType.Text, 15, "DName") myDataTable.UpdateCommand.Parameters.Add("oldDeptNo", SQLiteType.Int32, 0, "DeptNo").SourceVersion = DataRowVersion.Original Console.WriteLine(myDataTable.Update() & " rows updated.") myDataTable.Active = False ' Refresh the table to check custom updates myDataTable.Active = True Dim myRow As DataRow Dim myCol As DataColumn For Each myRow In myDataTable.Rows For Each myCol In myDataTable.Columns Console.Write(myRow(myCol) & Chr(9)) Next myCol Console.WriteLine() Next myRow Finally myDataTable.Active = False End Try End Sub
Target Platforms: Windows 7, Windows Vista SP1 or later, Windows XP SP3, Windows Server 2008 (Server Core not supported), Windows Server 2008 R2 (Server Core supported with SP1 or later), Windows Server 2003 SP2