Dim cmd As System.Data.OleDb.OleDbCommand = New System.Data.OleDb.OleDbCommand(strSQL, cn) Dim dr As System.Data.OleDb.OleDbDataReader = cmd.ExecuteReader() Dim dt As New Data.DataTable dt.Load(dr) Dim dsRet As DataSet = PCI_GetEmptyDataset() Dim dr1 As DataRow = dsRet.Tables("CSRSI_Import_Stage").NewRow() If (dt.Rows.Count > 0) Then For Each row As DataRow In dt.Rows Dim databasename As String = row.ItemArray(0).ToString() dr1("Databasename") = databasename dr1("DBAName") = row.ItemArray(1).ToString() dsRet.Tables("CSRSI_Import_Stage").Rows.Add(dr1) Next
Dim dr1 As DataRow = dsRet.Tables("CSRSI_Import_Stage").NewRow()
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)