'Declaration Public Shadows Property InsertCommand As DB2Command
public new DB2Command InsertCommand {get; set;}
'Declaration Public Shadows Property InsertCommand As DB2Command
public new DB2Command InsertCommand {get; set;}
Note: If execution of this command returns rows, these rows may be added to the System.Data.DataSet depending upon how you set the Devart.Common.DbCommandBase.UpdatedRowSource property of the DB2Command object.
public void UseDataAdapter(DB2Connection db2Connection) { DB2DataAdapter myAdapter = new DB2DataAdapter("SELECT DeptNo, DName FROM Dept", db2Connection); myAdapter.MissingSchemaAction = MissingSchemaAction.AddWithKey; DataSet myDataSet = new DataSet(); myAdapter.Fill(myDataSet,"Departments"); object[] rowVals = new object[2]; rowVals[0] = 40; rowVals[1] = "Operations"; myDataSet.Tables["Departments"].Rows.Add(rowVals); myAdapter.InsertCommand = new DB2Command("INSERT INTO Dept (DeptNo, DName) " + "VALUES (:DeptNo, :DName)", db2Connection); myAdapter.InsertCommand.Parameters.Add("DeptNo", DB2Type.Int, 0, "DeptNo"); myAdapter.InsertCommand.Parameters.Add("DName", DB2Type.VarChar, 15, "DName"); 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 db2Connection As DB2Connection) Dim myAdapter As DB2DataAdapter = New DB2DataAdapter("SELECT DeptNo, DName FROM Dept", db2Connection) myAdapter.MissingSchemaAction = MissingSchemaAction.AddWithKey Dim myDataSet As DataSet = New DataSet myAdapter.Fill(myDataSet, "Departments") Dim rowVals(1) As Object rowVals(0) = "40" rowVals(1) = "Operations" myDataSet.Tables("Departments").Rows.Add(rowVals) myAdapter.InsertCommand = New DB2Command("INSERT INTO Dept (DeptNo, DName) " & _ "VALUES (:DeptNo, :DName)", db2Connection) myAdapter.InsertCommand.Parameters.Add("DeptNo", DB2Type.Int, 0, "DeptNo") myAdapter.InsertCommand.Parameters.Add("DName", DB2Type.VarChar, 15, "DName") 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
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