Vielleich benötigt der eine oder andere von Euch eine Funktion mit der er rasch eine DataGridView mit einer Access-Datenbank-Tabelle füllen kann. Nur zur Widergabe der Daten:
Bei mir funktioniert dies einwandfrei. Sollten dennoch Fehler gefunden werden, dann bitte kurze Info.
LG Roland
Das gehört wohl eher in den Sourcecode-Austausch -> verschoben
-Artentus
VB.NET-Quellcode
- ' Im Beispiel wird auf einer Form einfach eine DataGridView mit dem Namen DataGridView1 positioniert
- ' Der Funktion wird einfach der Dateiname zur Datenbank, die entsprechende Datenbanktabelle, die SQL-Abfrage und das zu befüllende DataGrid als Parameter übergeben
- PutSQLAbfrageInDataGridView("c:\Daten\Northwind.mdb", "Tabelle1", "SELECT * FROM Tabelle1", DataGridView1)
- ''' <summary>
- ''' Befüllt das angegebene DataGridView mit der SQL-Abfrage einer Access-Datebenbank
- ''' </summary>
- ''' <param name="SQLString"></param>
- ''' <remarks></remarks>
- Public Sub PutSQLAbfrageInDataGridView(DatenbankName As String, TabellenName As String, SQLString As String, DatenGrid As DataGridView)
- Try
- If SQLString = "" Or DatenbankName = "" Or TabellenName = "" Or DatenGrid Is Nothing Then Exit Sub
- Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & DatenbankName & "; Jet OLEDB:Database Password=" & "" & ";")
- Dim adapter As New OleDbDataAdapter(SQLString, conn)
- Dim dt As New DataTable(TabellenName)
- adapter.Fill(dt)
- DatenGrid.DataSource = dt
- conn.Close()
- Catch
- MessageBox.Show(SQLString, "SQL-Fehler in der Abfrage", MessageBoxButtons.OK, MessageBoxIcon.Information)
- End Try
- End Sub
Bei mir funktioniert dies einwandfrei. Sollten dennoch Fehler gefunden werden, dann bitte kurze Info.
LG Roland
Das gehört wohl eher in den Sourcecode-Austausch -> verschoben
-Artentus
Liebe Grüße
Roland Berghöfer
Meine aktuellen und kostenlos verwendbaren Tools (mit VB.NET erstellt): freeremarkabletools.com | priconman.com | SimpleCalendar | AudibleTouch | BOComponent.com | bonit.at
Roland Berghöfer
Meine aktuellen und kostenlos verwendbaren Tools (mit VB.NET erstellt): freeremarkabletools.com | priconman.com | SimpleCalendar | AudibleTouch | BOComponent.com | bonit.at
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Artentus“ ()