login  Naam:   Wachtwoord: 
Registreer je!
 Forum

Zoeken in een databank

Offline EFlash - 27/04/2009 18:27 (laatste wijziging 27/04/2009 20:18)
Avatar van EFlashNieuw lid Hallo,

Ik zit in het 6e jaar en voor mijn eindwerk moet ik een programma maken voor een taxibedrijf in VB.net adhv. ADO.Net, dus via een databank.

Ik had hier een vraagje over.
Ik heb een formulier gemaakt om op alles te kunnen zoeken. In de combobox kan je een tabel uit te database selecteren waarop je kan zoeken.
Als je deze tabel geselecteerd hebt uit de combobox dan verschijnen de kolomnamen uit die tabel in de andere combobox. Na het selecteren van de kolomnaam uit deze combobox kan je in het onderstaand tekstvak een waarde ingeven waarop je wilt zoeken.
Daarna krijg je de detailview te zien van de gekozen waarde.
Bijvoorbeeld:
In de eerste combobox kies je om te zoeken in de tabel Klanten. Daarna kies je in de volgende combobox om te zoeken op klantnummer uit de tabel Klanten. Daarna kan je in het tekstvak een klantnummer ingeven van de klant en klik je op de button(die ik nog in het formulier moet plaatsen). Daarna krijg je alle gegevens van de klant in een detailview.

Ik vind niet hoe je de kolomnamen van de geselecteerde kolom uit de combobox in de nieuwe combobox kan plaatsen en hoe je daarna een detailview kan krijgen.

Zou iemand mij hierbij kunnen helpen?

vbnet code - Bekijk de code zonder highlighting - Klap code in 
  1. Public Class frmZoekAlles
  2.  
  3.     Private Sub frmZoekAlles_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  4.  
  5.     End Sub
  6.  
  7.     Private Sub cmdOpnieuw_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdOpnieuw.Click
  8.         lblZoekop.Visible = True
  9.         cboZoekKeuze.Visible = True
  10.  
  11.         lblZoek.Visible = False
  12.  
  13.     End Sub

Dit is de code die ik al heb:

vbnet code - Bekijk de code zonder highlighting - Klap code in 
  1. Private Sub cboZoekKeuze_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboZoekKeuze.SelectedIndexChanged
  2.         Dim strKeuze As String
  3.  
  4.         strKeuze = cboZoekKeuze.SelectedItem.ToString
  5.  
  6.         lblZoek.Visible = False
  7.  
  8.         Select Case strKeuze
  9.  
  10.             Case Is = "Klanten"
  11.                 lblZoek.Visible = True
  12.  
  13.                 lblZoek.Text = "U heeft gekozen om te zoeken op klanten."
  14.  
  15.                 lblZoekop.Visible = False
  16.                 cboZoekKeuze.Visible = False
  17.  
  18.             Case Is = "Ritten"
  19.                 lblZoek.Visible = True
  20.  
  21.                 lblZoek.Text = "U heeft gekozen om te zoeken op ritten."
  22.  
  23.                 lblZoekop.Visible = False
  24.                 cboZoekKeuze.Visible = False
  25.  
  26.             Case Is = "Chauffeurs"
  27.                 lblZoek.Visible = True
  28.  
  29.                 lblZoek.Text = "U heeft gekozen om te zoeken op chauffeurs."
  30.  
  31.                 lblZoekop.Visible = False
  32.                 cboZoekKeuze.Visible = False
  33.  
  34.             Case Is = "Wagens"
  35.                 lblZoek.Visible = True
  36.  
  37.                 lblZoek.Text = "U heeft gekozen om te zoeken op wagens."
  38.  
  39.                 lblZoekop.Visible = False
  40.                 cboZoekKeuze.Visible = False
  41.  
  42.             Case Is = "Betalingswijze"
  43.                 lblZoek.Visible = True
  44.  
  45.                 lblZoek.Text = "U heeft gekozen om te zoeken op betalingswijze."
  46.  
  47.                 lblZoekop.Visible = False
  48.                 cboZoekKeuze.Visible = False
  49.  
  50.         End Select
  51.     End Sub
  52.  
  53.     Private Sub cmdBackZoekAlles_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdBackZoekAlles.Click
  54.         Me.Visible = False
  55.  
  56.         Dim Menu1 As New Menu
  57.  
  58.         Menu1.ShowDialog()
  59.  
  60.         Me.Close()
  61.     End Sub
  62. End Class

0 antwoorden

Gesponsorde links
Er zijn nog geen reacties op dit bericht.
Dit onderwerp is gesloten.
Actieve forumberichten
© 2002-2024 Sitemasters.be - Regels - Laadtijd: 0.196s