[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