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