Crew .NET |
|
Eigenlijk snap ik je vraag niet: wat is het dat je precies wil bereiken.
Je zegt dat je maar vier tabellen hebt dus kan je die al zelf in de ListBox gaan steken en hoeft dat niet dynamisch. Alle tabellen hebben dezelfde kolommen zeg, dat maakt het dan nog eens gemakkelijker voor je query.
Je maakt je ListBox en zet bij de Items al de tabelnamen die je hebt.
Je plaatst een DateGridView op je Form en je zorgt dat je een DataSet hebt die dan de gegevens ophaalt uit de gekozen tabel en dan de GridView vult met de data.
Zet deze code in het "SelectedIndexChanged" - event van de ListBox:
Dim myConn As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source = C:\Users\titjes\Desktop\Programmeren\ListBox\db.mdb")
Dim item As String = ListBox1.SelectedItem.ToString()
Dim comm As OleDbDataAdapter = New OleDbDataAdapter("SELECT naam, voornaam, leeftijd FROM " & item & "", myConn)
Try
myConn.Open()
Dim DS As New DataSet()
comm.Fill(DS, "lid_een")
Dim DT As DataTable
DT = DS.Tables(0)
DataGridView1.DataSource = DT
Catch x As Exception
MessageBox.Show(x.Message)
Finally
myConn.Close()
End Try
Dim myConn As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source = C:\Users\titjes\Desktop\Programmeren\ListBox\db.mdb") Dim item As String = ListBox1.SelectedItem.ToString() Dim comm As OleDbDataAdapter = New OleDbDataAdapter("SELECT naam, voornaam, leeftijd FROM " & item & "", myConn) Try myConn.Open() Dim DS As New DataSet() comm.Fill(DS, "lid_een") Dim DT As DataTable DT = DS.Tables(0) DataGridView1.DataSource = DT Catch x As Exception MessageBox.Show(x.Message) Finally myConn.Close() End Try
|