VB.NET: How to populate combo box with database item

[nareshpulipati]

Hi all,
I am new to VB .net.
Iam trying to populate the database item into combo box.
Database Type:SQL(ODBC)
My code retuns no value in combo box

Public Class Form1
    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Dim Cmd As Odbc.OdbcCommand
        Dim Con As Odbc.OdbcConnection
        Dim Sql As String = Nothing
        Dim Reader As Odbc.OdbcDataReader
        Dim ComboRow As Integer = -1
        Dim Columns As Integer = 0
        Dim Category As String = Nothing
        Dim Cmbbox As ComboBox
 
        CmbboxMan.Items.Clear()
 
        Con = New Odbc.OdbcConnection("Provider=Microsoft.Jet.Odbc.4.0;data source=" & Database & "")
 
        Sql = "SELECT [Comp_ItemNumber] FROM [Components] ORDER BY [Comp_ItemNumber] Asc"
        Cmd = New Odbc.OdbcCommand(Sql, Con)
        Con.Open()
 
        Reader = Cmd.ExecuteReader()
        While Reader.Read()
            For Columns = 0 To Reader.FieldCount - 1
                Category = Reader.Item(Columns) 'READ COLUMN FROM DATABASE
            Next
            Cmbbox.Items.Add(Category)
            ComboRow += 1
        End While
        Con.Close()
    End Sub
End Class

Plz reply ASAP

[danp129]

Is category blank?

For Columns = 0 To Reader.FieldCount - 1
    Category = Reader.Item(Columns) 'READ COLUMN FROM DATABASE
    debug.print Category
Next

use [CODE=VB]code here[/CODE] tags please

[nareshpulipati]

Is category blank?

For Columns = 0 To Reader.FieldCount - 1
    Category = Reader.Item(Columns) 'READ COLUMN FROM DATABASE
    debug.print Category
Next

use

code here

tags please

Thanks for replying

When i debug these are the two errors i came across and also i used debug.print Category(Column s).Because its showing declaration error when i use debug.print Category

Error 1 Name 'CmbBoxMan' is not declared. C:\Documents and Settings\naresh \Desktop\VB COMBO BOX WITH SQL DATA SOURCE\VB COMBO BOX WITH SQL DATA SOURCE\Form1.vb 13 9 VB COMBO BOX WITH SQL DATA SOURCE

Error 2 Name 'Database' is not declared. C:\Documents and Settings\naresh \Desktop\VB COMBO BOX WITH SQL DATA SOURCE\VB COMBO BOX WITH SQL DATA SOURCE\Form1.vb 15 88 VB COMBO BOX WITH SQL DATA SOURCE


Please help me

[nareshpulipati]

Thanks for replying

When i debug these are the two errors i came across and also i used debug.print Category(Column s).Because its showing declaration error when i use debug.print Category

Error 1 Name 'CmbBoxMan' is not declared. C:\Documents and Settings\naresh \Desktop\VB COMBO BOX WITH SQL DATA SOURCE\VB COMBO BOX WITH SQL DATA SOURCE\Form1.vb 13 9 VB COMBO BOX WITH SQL DATA SOURCE

Error 2 Name 'Database' is not declared. C:\Documents and Settings\naresh \Desktop\VB COMBO BOX WITH SQL DATA SOURCE\VB COMBO BOX WITH SQL DATA SOURCE\Form1.vb 15 88 VB COMBO BOX WITH SQL DATA SOURCE


Please help me

IS THIS CODE CORRECT TO CONNECT TO SQL DATABASE


Con = New Odbc.OdbcConnec tion("Provider= Microsoft.Jet.O dbc.4.0;data source=" & kpi_database & "")

Sql = "SELECT [Comp_ItemNumber] FROM [Components] ORDER BY [Comp_ItemNumber] Asc"
Cmd = New Odbc.OdbcComman d(Sql, Con)

[danp129]

I haven't made a SQL app in vb.net only vb6. What DB are you connecting to?

[nareshpulipati]

I haven't made a SQL app in vb.net only vb6. What DB are you connecting to?

IAm connecting to ODBC

[nareshpulipati]

IAm connecting to ODBC

Oracle data base of the company

[danp129]

One of these strings for Oracle should work.

http://www.carlprothma n.net/Default.aspx?ta bid=90