"Peter Osawa" <po****@sun.e s> wrote in message
news:eJ******** *****@TK2MSFTNG P11.phx.gbl...
The problem es that I receive the IDataReader and I'm not allowed to
change that...
David Browne wrote:
"Peter Osawa" <po****@sun.e s> wrote in message
news:Oh******** *****@TK2MSFTNG P10.phx.gbl...
Hi,
I'm receveing an IDataReader object that I bind to a combo list.
I'd like to be able to customize that object before binding it to combo,
but I don't know how to do it...
Ideal would be something aka:
foreach('MyFi eld' in IDataReader.Row s){
If ('MyField'== "Male")
IDataReader.R ow.Remove('MyFi eld');
};
Use a DataTable instead of a DataReader. Then you can do whatever you want
to it.
David
The following will convert the Reader to a DataTable. I don't know how to do
this using any methods on any of the Sql objects, because I haven't spent much
time with the Reader specifically. So I wrote this quickly to help you in your
situation.
Hope it helps!
Mythran
' --------------------------------------------------------------------------
' Description:
' Sample MAIN() console application.
'
Sub Main()
Dim conn As SqlConnection
Dim read As SqlDataReader
Dim adap As SqlDataAdapter
Dim dt As DataTable
Dim cmd As SqlCommand
conn = New
SqlConnection(" Server=MyServer ;Database=MyDat abase;Trusted_C onnection=True" )
conn.Open()
cmd = New SqlCommand("SEL ECT * FROM tblDepartment", conn)
read = cmd.ExecuteRead er()
' Convert the reader to a data table.
dt = ConvertReaderTo DataTable(read)
' Close the reader and the database connection.
read.Close()
conn.Close()
' Write the first row of the data table.
For Each col As DataColumn In dt.Columns
Console.WriteLi ne("Name: " & col.ColumnName & _
" - Value: " & dt.Rows(0)(col) .ToString())
Next
End Sub
' --------------------------------------------------------------------------
' Description:
' Convert the reader to a data table.
'
Public Function ConvertReaderTo DataTable(ByVal Reader As SqlDataReader) As
DataTable
Dim dt As DataTable
Dim dr As DataRow
' Create the data table.
dt = New DataTable()
' Add the columns from the reader to the schema of the data table.
For i As Integer = 0 To Reader.FieldCou nt - 1
dt.Columns.Add( Reader.GetName( i), Reader.GetField Type(i))
Next
' Add each row in the reader to the data table.
While Reader.Read()
' Create the new row.
dr = dt.NewRow()
For i As Integer = 0 To Reader.FieldCou nt - 1
dr(i) = Reader(i)
Next
' Add the row to the table.
dt.Rows.Add(dr)
End While
' Return the DataTable object.
Return dt
End Function
