createcombo.vb

humar resourse management

' Human Resources Management System (HRMS) 
'
' Programmed by: Nura Tijjani Abubakar ([e-mail])
' Submitted to: Mr. Ravindran Kanapathy
'
' Oxford Brookes University (OBU)
' Final Year Project (November, 2007)

Imports System.Data
Imports System.Data.OleDb
Public Class CreateCombo
    Public Shared Sub List(ByVal Query As String, ByVal Combo As ComboBox, ByVal TableName As String, ByVal TextField As String, ByVal ValueField As String)
        Dim ConnectionString As String = System.Configuration.ConfigurationSettings.AppSettings("DSN") ' Declared in App.Config File
        Combo.DataSource = Nothing
        Dim myConnection As OleDbConnection = New OleDbConnection(ConnectionString)
        Dim myAdapter As OleDbDataAdapter = New OleDbDataAdapter(Query, myConnection)
        Dim ds As DataSet = New DataSet
        myAdapter.Fill(ds, TableName)
        Dim Dt As DataTable = ds.Tables(TableName)
        If (Dt.Rows.Count = 0) Then
            'Return False
        End If
        Combo.DataSource = Dt
        Combo.DisplayMember = TextField
        Combo.ValueMember = ValueField
        'Combo.SelectedIndex = 0
        'Return True
    End Sub
End Class