Combo Box load - Easy

[Dman]

I have an easy question but no adequate reference material in front of me at the moment. How do I load a combo box with a dataset? Here's my code:

Dim strSQL As String
Dim strConn As String
Dim objDA As SqlClient.SqlDataAdapter
Dim objDS As New Data.DataSet()
Dim intCounter As Integer
Dim strResult As String

strConn = "Initial Catalog=pubs;Data Source=(local);" _
& "User ID=sa;password=;"
strSQL = "My SQL Statement"

objDA = New SqlClient.SqlDataAdapter(strSQL, strConn)
objDA.Fill(objDS)

'I want to load my combo here. How do I access the fields from the dataset?

Thanks in advance.

[PJ6]

hi,

i would do it like that way



Private Sub Connection()

With con
.Mode = ADODB.ConnectModeEnum.adModeReadWrite
.Provider = "microsoft.jet.oledb.4.0"
.ConnectionString = "data source= yourPath "
.Open()
End With

strSQL = "SELECT * FROM yourTable "
rs.Open(strSQL, con, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockPessimistic)

End Sub

Private Sub Combobox()

ComboBox1.Items.Add(rs.Fields(1).Value)

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Connection()

Do While Not rs.EOF
Combobox()
rs.MoveNext()
Loop

rs.Close()
con.Close()

End Sub

Good Luck

[Spice]

Try this also...........add the code in the specified event of ur form

(ds is the dataset,i integer)

For i = 1 To CInt(ds.Tables(0).Rows.Count)
ComboBox1.Items.Add(ds.Tables(0).Rows(0)(i))
Next

Hope it works..
I tried the code after executing a storedprocedure which returns 3 fields.