.NET Recordset???

[MarkT]

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?

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

[Andy]

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

[packman]

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

[Pirate]

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

I thought you're ADO.NET guy...

[Andy]

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

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

One day though......