How 2 fill a dropdownlist with a column in sql

drpcken · April 4th, 2004, 10:49 AM

This is so frustrating, i've tried so many things. Here's what I have so far, but nothing I do after this wants to work.

        'Create the connection
        Dim sqlconnection As New SqlClient.SqlConnection()
        sqlconnection.ConnectionString = "server=hal/sbmtwo;uid=sa;password=;initial catalog=SBM01"

        'Create the Dataset
        Dim dsVendor As New DataSet()

        'Create the DataAdapter
        Dim daVendor As New SqlClient.SqlDataAdapter("select VENDORID,VENNAME from PM00200", sqlconnection)

        'Fill the dataset
        daVendor.Fill(dsVendor, "PM00200")

Right now I should have a dataset filled with the columns I need correct? How do I get that VENDORID column into a drop down list called ddlVendorID?

Thank you guys!

Kenny Alligood · April 5th, 2004, 07:21 AM

I do not use an SQL backend but the result should be the same. Gove this a shot.

With rst
   Do Until .EOF
      'Populate frmLogin.cboUserName
      frmLogin.cboUser.AddItem !FullName
      .MoveNext
   Loop
End With

rst.Close
Set rst = Nothing

Works a charm at filling a ComboBox. Hope this helps.

Kenny Alligood

vegaramos · April 17th, 2004, 09:34 PM

I wrote this code several years ago in VB6. I was using an Access database on the backend. Hope this helps.

Code:

Public Sub PopProgrammer()
'This fuction populates Assigned Programmer's combobox field on the FrmUtility form
'when the application is executed.
Set WrkSpce = CreateWorkspace("", "admin", "", dbUseJet) ' Create the workspace
Set db = DAO.OpenDatabase("C:\Program Files\IssuesLog\MsgUtil.mdb", False, False) ' Set the Database
SQLString = "SELECT * FROM ProgNameTbl" ' this query selects all of the records in the table
Set QryTbl = db.CreateQueryDef("") ' Create a Query definition object
    QryTbl.SQL = SQLString         ' Set the Query def object to the SQL String
    Set rs = QryTbl.OpenRecordset  ' execute the query
If rs.BOF = True And rs.EOF = True Then ' If EOF or BOF then...
    Reply = MsgBox("An Application error has occurred, Contact the application administrator.", vbOKOnly, "Uh Oh!")
    '...Display message box
Else                                                'otherwise
    rs.MoveFirst                                    'move to first record on recordset
    While rs.EOF = False                            'perform loop until EOF
        CboProgrammer = rs.Fields("AssgProg")       'Assign field in record to variable
        frmUtility.cboAsgnProg.AddItem CboProgrammer 'Add item to Combo box
        rs.MoveNext                                 'move to next record
    Wend                                            'End While loop
    rs.Close                                        'Close recordset
    db.Close                                        'Close Database
End If                                              'End if
End Sub