'Declaration Public Shadows Property UpdateCommand As DB2Command
public new DB2Command UpdateCommand {get; set;}
'Declaration Public Shadows Property UpdateCommand As DB2Command
public new DB2Command UpdateCommand {get; set;}
public void UseDataTable(DB2Connection db2Connection) { DB2DataTable myDataTable = new DB2DataTable("SELECT * FROM Dept", db2Connection); try { myDataTable.Active = true; myDataTable.Rows[3]["DName"] = "Researches"; myDataTable.UpdateCommand = new DB2Command("UPDATE Dept SET DeptNo = :DeptNo, DName = :DName, Loc = 'Modified' " + "WHERE DeptNo = :oldDeptNo", db2Connection); myDataTable.UpdateCommand.Parameters.Add("DeptNo", DB2Type.Int, 0, "DeptNo"); myDataTable.UpdateCommand.Parameters.Add("DName", DB2Type.VarChar, 15, "DName"); myDataTable.UpdateCommand.Parameters.Add("oldDeptNo", DB2Type.Int, 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 db2Connection As DB2Connection) Dim myDataTable As DB2DataTable = New DB2DataTable("SELECT * FROM Dept", db2Connection) Try myDataTable.Active = True myDataTable.Rows(3)("DName") = "Researches" myDataTable.UpdateCommand = New DB2Command("UPDATE Dept SET DeptNo = :DeptNo, DName = :DName, Loc='Modified' " & _ "WHERE DeptNo = :oldDeptNo", db2Connection) myDataTable.UpdateCommand.Parameters.Add("DeptNo", DB2Type.Int, 0, "DeptNo") myDataTable.UpdateCommand.Parameters.Add("DName", DB2Type.VarChar, 15, "DName") myDataTable.UpdateCommand.Parameters.Add("oldDeptNo", DB2Type.Int, 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