login  Naam:   Wachtwoord: 
Registreer je!
 Forum

Listbox met de tabelnamen van een database (Opgelost)

Offline grymonprez - 15/12/2007 12:25
Avatar van grymonprezNieuw lid Hallo,

Ik probeer het volgende te maken:
Aan de linkerkant een listbox die alle tabellen van aan database weergeeft. en rechts ervan, labels+textboxen of een datagrid die dan de kolommen en records van die gekozen tabel weergeeft.
vb. Ik heb 4 tabellen over 4 personen. en in elke tabel staan dezelfde kolommen, vb datum, tijd, resultaat, wedstrijd. Zodat ik per persoon hun wekelijkse activiteiten kan bijhouden.

bedankt
sven

3 antwoorden

Gesponsorde links
Offline ranco - 15/12/2007 15:53 (laatste wijziging 15/12/2007 15:54)
Avatar van ranco PHP gevorderde Je wilt dus eigenlijk gewoon phpmyadmin nabouwen?

Edit: Voor vb.net dan dus ;)
Offline Abbas - 15/12/2007 16:26 (laatste wijziging 15/12/2007 16:28)
Avatar van Abbas Gouden medaille

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:
  1. Dim myConn As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source = C:\Users\titjes\Desktop\Programmeren\ListBox\db.mdb")
  2. Dim item As String = ListBox1.SelectedItem.ToString()
  3. Dim comm As OleDbDataAdapter = New OleDbDataAdapter("SELECT naam, voornaam, leeftijd FROM " & item & "", myConn)
  4.  
  5. Try
  6. myConn.Open()
  7.  
  8. Dim DS As New DataSet()
  9. comm.Fill(DS, "lid_een")
  10. Dim DT As DataTable
  11. DT = DS.Tables(0)
  12.  
  13. DataGridView1.DataSource = DT
  14.  
  15. Catch x As Exception
  16. MessageBox.Show(x.Message)
  17. Finally
  18. myConn.Close()
  19. End Try
Offline grymonprez - 16/12/2007 17:31
Avatar van grymonprez Nieuw lid Bedankt voor de reacties,
Er kunnen wel tabellen bijgevoegd worden of verwijderd.
Ik had op vbib.be ook een topic geopend en daar staat de code die de tabellen weergeeft.
topic:
http://www.vbib...6904#16904
Gesponsorde links
Dit onderwerp is gesloten.
Actieve forumberichten
© 2002-2024 Sitemasters.be - Regels - Laadtijd: 0.21s