b3cf
asked on
How to add a blank row to a dataset
Hi
I have the following code that will generate a dataset. Could someone advice me on how I could add a blank row to it.
Any help is greatly appreciated.
Dim conBrokerCompanies As SqlConnection = New SqlConnection(Configuratio nSettings. AppSetting s("Connect ionString" ))
Dim cmdBrokerCompanies As SqlCommand = New SqlCommand("GetBrokerCompa nies", conBrokerCompanies)
cmdBrokerCompanies.Command Type = CommandType.StoredProcedur e
Dim daBrokerCompanies As SqlDataAdapter = New SqlDataAdapter(cmdBrokerCo mpanies)
Dim dsBrokerCompanies As DataSet = New DataSet
conBrokerCompanies.Open()
daBrokerCompanies.Fill(dsB rokerCompa nies, "BrokerCompanies")
conBrokerCompanies.Close()
conBrokerCompanies.Dispose ()
Return dsBrokerCompanies
I have the following code that will generate a dataset. Could someone advice me on how I could add a blank row to it.
Any help is greatly appreciated.
Dim conBrokerCompanies As SqlConnection = New SqlConnection(Configuratio
Dim cmdBrokerCompanies As SqlCommand = New SqlCommand("GetBrokerCompa
cmdBrokerCompanies.Command
Dim daBrokerCompanies As SqlDataAdapter = New SqlDataAdapter(cmdBrokerCo
Dim dsBrokerCompanies As DataSet = New DataSet
conBrokerCompanies.Open()
daBrokerCompanies.Fill(dsB
conBrokerCompanies.Close()
conBrokerCompanies.Dispose
Return dsBrokerCompanies
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
Thanks
Dim myRow As DataRow = dsBrokerCompanies.Tables(0
For Each eleCol As DataColumn In dsBrokerCompanies.Tables(0
Select Case eleCol.DataType.ToString
Case "System.String"
myRow(eleCol.ColumnName) = ""
Case Else
myRow(eleCol.ColumnName) = 0
End Select
Next
dsBrokerCompanies.Tables(0
Unfortuanately theres not much you can do about non string data types (unless they are nullable). I used the case statement instead of an if in case you need to deal with other datatypes.