[vb.net] Combobox mit Access-Datenbank-Daten füllen

Gepostet am: Apr 11, 2011 10:16:11 PM

Wie kann man eine Combobox mit den Daten einer Access-Datenbank befüllen:

Fill_Combobox

Public Sub FillComboBox_with_SQL(ByVal myComboBox As ToolStripComboBox, ByVal sqlAbfrage As String, Optional ByVal Spaltennummer As Integer = 0)         Dim sDataSource As String = Application.StartupPath & "\<Name>.mdb"         Dim sConnString As String = _             "Provider=Microsoft.Jet.OLEDB.4.0;" & _             "Data Source=" & sDataSource & ";" & _             "User ID=Admin;" & _             "Password="         Dim cn As OleDb.OleDbConnection = New OleDb.OleDbConnection(sConnString)          Try 'versuche die Datenbank zu öffnen             cn.Open()         Catch ex As Exception             LogMessage(5, "Fehler beim Öffnen der Datenbank")             Exit Sub         End Try          Dim cmd As New OleDb.OleDbCommand(sqlAbfrage, cn)         Dim dr As OleDb.OleDbDataReader = cmd.ExecuteReader          Try 'versuche aus der Datenbank zu lesen              While dr.Read()                 myComboBox.Items.Add(dr(Spaltennummer).ToString)             End While             dr.Close()         Catch ex As ArgumentException             LogMessage(2, "Fehler bei SQL-Abfrage" & sqlAbfrage)             LogMessage(2, ex.Message)             Exit Sub         Finally             cn.Close()         End TryEnd Sub