[2005] DisplayDataReader to Form

[rjbudz]

Please bear with me I'm working my way through the transition from VB 6. I think I'm going to change my name from rjbudz to FrustratedWithVB.NET.

I have this DataReader, and I managed to get the data I need from my database.

Now what? I want to show the results to the user. How do I do it?

VB6 allows you to loop through a recordset (a DataReader in this case?) and display the data in a MSFlexGrid. How do I do the same thing in VB 2005?

[nmadd]

Display the results in a DataGridView. One way you can do this is load your reader into a DataTable and then use that DataTable as your DataGridView's DataSource.

' Open the connection and execute the reader.
conn.Open()
Dim dr As OleDbDataReader = cmd.ExecuteReader()
' Create the DataAdapter and DataTable
' and load the DataTable.
Dim dt As New DataTable()
dt.Load(dr)
 
' Populate the DataGridView.
Me.BindingSource1.DataSource = dt
Me.DataGridView1.DataSource = Me.BindingSource1
 
' Clean up.
dr.Close()
conn.Close()

Check out the MSDN documentation as well for lots more. Good luck.

[rjbudz]

Thanks. The code you wrote seems to fill add the correct number of rows to the DataGridView view, but there is no data displayed. That is, I know the SQL statement returns three records, the DataGridView adds three new rows, but the cells are empty. THAT doesn't seem right

[nmadd]

No, that doesn't seem right.

Can you post all of the code you are using to fill the DataGridView?

[rjbudz]

    Public Function GetReportNumbers(ByVal SQLString As String) As String

        Dim conn As New OdbcConnection
        Dim comm As OdbcCommand

        conn = New OdbcConnection(My.Settings.DBConnection)
        conn.Open()
        comm = New OdbcCommand(SQLString, conn)

        Dim dr As OdbcDataReader = comm.ExecuteReader()

        ' Create the DataAdapter and DataTable
        ' and load the DataTable.

        Dim dt As New DataTable()

        dt.Load(dr)

        ' Populate the DataGridView.
        Me.BindingSource1.DataSource = dt

        Me.DataGridView1.DataSource = Me.BindingSource1

        ' Clean up.
        dr.Close()

        conn.Close()

    End Function

[nmadd]

I can't see what is wrong with that. I sometimes use something very similar to fill the DataGridView when I need to display records that I don't need to update.

Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Nwind.mdb;")
Dim SQLString As String = _
    "SELECT CustomerID, ContactName " & _
    "FROM Customers " & _
    "WHERE CustomerID LIKE @CustID " & _
    "AND ContactName LIKE @ContName"
 
Dim cmd As New OleDbCommand(SQLString, conn)
cmd.Parameters.AddWithValue("@CustID", "%" & Me.TextBox1.Text & "%")
cmd.Parameters.AddWithValue("@ContName", "%" & Me.TextBox2.Text & "%")
 
conn.Open()
Dim dr As OleDbDataReader = cmd.ExecuteReader()
Dim dt As New DataTable()
dt.Load(dr)
 
Me.DataGridView1.DataSource = dt
 
dr.Close()
conn.Close()

So this populates the DataGridView with the correct amount of rows, but doesn't actually put any values in the cells?

[rjbudz]

Yep. I checked it with a couple SQL statements. One has three rows, one has a whole bunch (10+). The Grid seems to respond with the right number of rows, but no data in the cells.