.NET Recordset???

This code works fine in VB6 to populate a few combo boxes from a couple of fields in a db. What is the equivalent of this in .NET?

VB Code:

Private Sub Form_Load()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
 
    Set cn = New ADODB.Connection
    cn.ConnectionString = "Provider=SQLOLEDB.1;....." '<-- Full connection string
    cn.Open
    
    Set rs = New ADODB.Recordset
    With rs
        .ActiveConnection = cn
        .CursorLocation = adUseServer
        .CursorType = adOpenForwardOnly
        .LockType = adLockReadOnly
        .Source = "SELECT DISTINCT Titles, Authors From Books"
        .Open
    End With
    
    Do While Not rs.EOF
        cboTitles.AddItem rs!Titles & ""
        cboAuthors.AddItem rs!Authors & ""
        rs.MoveNext
    Loop
    
    rs.Close
    Set rs = Nothing
    
    cn.Close
    Set cn = Nothing
End Sub

I have the same setup. I am working on that currently and will post my code unless someone else beats me to it :)

I have not tested this but it should get you going.

Dim rdrRead as SqlDataReader
Dim cn as New SqlConnection("SQLOLEDB.1;....." )
Dim cmd as New SqlCommand ("SELECT DISTINCT Titles, Authors From Books",cn)

Dim strAuthors as string

cn.open
rdrRead = cmd.ExecuteReader()

While rdrPeople.Read()
strAuthors = rdrRead.GetString(1)
cboAuthors.Items.Add(strAuthors)
End While
cn.Close

Quote:

---

Originally posted by thephantom
I have the same setup. I am working on that currently and will post my code unless someone else beats me to it :)

---

:eek: :eek: I thought you're ADO.NET guy...:D :D

Quote:

---

Originally posted by Pirate
:eek: :eek: I thought you're ADO.NET guy...:D :D

---

shoot not!!! I'm still a newbie around here:) ado.net is something I learn on the side for now cause my boss wants me to use ado :sick: :cry:

One day though......:)