Für ein größeres Projekt musste ich testen, wie einfach ich Abfragen an eine ODBC-Datenbank erstellen kann. Dabei ist bei der „Fingerübung“ der folgende Code entstanden
Dim str As String = "DSN=ODBC−ConName;uid="loginsuser";pwd="loginpassword";" Dim con As New OdbcConnection(str) Dim com As String = "Select Name, Domain from dbo.Clients" Dim Adpt As New OdbcDataAdapter(com, con) Dim ds As New DataSet() Adpt.Fill(ds) DataGridView1.DataSource = ds.Tables(0)
Es müssen die Verbindungsdaten definiert werden. Diese können natürlich auch per Comboboxen oder Textboxen ersetzt werden, damit die Ausführung unter den jeweiligen Benutzerdaten des indiviuellen Anwenders ausgeführt werden. In diesem Fallbeispiel wird die Tabelle „dbo.Clients“ mit den Spalten „Name“ & „Domain“ abgefragt.
Dieser Aufruf dient einfach nur zur Anzeige. Man sollte nur überlegen, in wie weit man über das DataGrid auch Änderungen vornehmen soll. Ansonsten wäre es die sicherere Alternative dieses über die Eigenschaften des Objektes zu verbieten.