Hallo Michael,
dann hat man euch leider zu wenig und auch falsches beigebracht.
Insbesondere ist ein absolutes NO GO:
If reader.HasRows = False Then
Exit Sub
End If
Damit werden Reader und Connection nicht geschlossen, was auf Dauer Probleme nach sich ziehen kann. Eine überarbeitete Variante:
Private Sub DatenLesen()
Const constr As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\myFolder\myAccess2007file.accdb;Persist Security Info=False;"
Const strsql As String = "SELECT Vorname, Nachname FROM Beispieltabelle WHERE ..."
' Leert die Combobox
ComboBox1.Items.Clear()
Using conn As New OleDbConnection(constr)
conn.Open()
Using cmd As New OleDbCommand(strsql, conn)
Using reader = cmd.ExecuteReader()
While reader.Read()
ComboBox1.Items.Add(reader.GetString(0))
ComboBox1.Items.Add(reader.GetString(1))
End While
End Using
End Using
End Using
End Sub
die zudem kürzer - die Kommentare sind eh überflüssig bei solchem Trivial-Code
(ausgenommen ihr werdet dafür bezahlt ;-))
Was hier fehlt: Datenzugriffscode sollte nicht direkt im Formularcode "versenkt" werden, denn langfristig führt das zu einem Wartungschaos:
Wo bitte greifen wir auf "Beispieltabelle" zu? (und alle fangen an zu suchen).
Und letztendlich macht die
BindingSource-Komponente keine "bösen" oder "unheimlichen" Dinge und man sollte sich damit vertraut machen.
Für den Fall, dass man Dir die
using Anweisung nicht beigebracht hat, solltest Du Dich damit ebenso beschäftigen.
Und bitte nicht falsch verstehen: Diese Ratschläge sind gut gemeint - von einem Entwickler mit gut zwei Jahrzehnten auf dem Buckel.
Gruß Elmar
Combobox zeigt Inhalt doppelt an
Bitte haben Sie Verständnis dafür, dass im Rahmen dieses Forums, welches auf dem Community-Prinzip „Entwickler helfen Entwickler“ beruht, kein technischer Support geleistet werden kann oder sonst welche garantierten Maßnahmen seitens Microsoft zugesichert werden können.
