Zoeken in een database met VB.net

[Gast EVB.]

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?

Mijn code die ik nu al heb is:

    [color=blue][font=&quot]Public[/font][/color][font=&quot] [color=blue]Class[/color] frmZoekAlles[/font]
 [font=&quot] [/font]
 [font=&quot]    [color=blue]Private[/color] [color=blue]Sub[/color] frmZoekAlles_Load([color=blue]ByVal[/color] sender [color=blue]As[/color] System.Object, [color=blue]ByVal[/color] e [color=blue]As[/color] System.EventArgs) [color=blue]Handles[/color] [color=blue]MyBase[/color].Load[/font]
 [font=&quot] [/font]
 [font=&quot]    [color=blue]End[/color] [color=blue]Sub[/color][/font]
 [color=blue][font=&quot] [/font][/color]
 [font=&quot]    [color=blue]Private[/color] [color=blue]Sub[/color] cmdOpnieuw_Click([color=blue]ByVal[/color] sender [color=blue]As[/color] System.Object, [color=blue]ByVal[/color] e [color=blue]As[/color] System.EventArgs) [color=blue]Handles[/color] cmdOpnieuw.Click[/font]
 [font=&quot]        lblZoekop.Visible = [color=blue]True[/color][/font]
 [font=&quot]        cboZoekKeuze.Visible = [color=blue]True[/color][/font]
 [color=blue][font=&quot] [/font][/color]
 [font=&quot]        lblZoek.Visible = [color=blue]False[/color][/font]
 [color=blue][font=&quot] [/font][/color]
 [font=&quot]    [color=blue]End[/color] [color=blue]Sub[/color][/font]
 [color=blue][font=&quot] [/font][/color]
 [font=&quot]    [/font]
 [font=&quot]    [color=blue]Private[/color] [color=blue]Sub[/color] cboZoekKeuze_SelectedIndexChanged([color=blue]ByVal[/color] sender [color=blue]As[/color] System.Object, [color=blue]ByVal[/color] e [color=blue]As[/color] System.EventArgs) [color=blue]Handles[/color] cboZoekKeuze.SelectedIndexChanged[/font]
 [font=&quot]        [color=blue]Dim[/color] strKeuze [color=blue]As[/color] [color=blue]String[/color][/font]
 [color=blue][font=&quot] [/font][/color]
 [font=&quot]        strKeuze = cboZoekKeuze.SelectedItem.ToString[/font]
 [font=&quot] [/font]
 [font=&quot]        lblZoek.Visible = [color=blue]False[/color][/font]
 [color=blue][font=&quot] [/font][/color]
 [font=&quot]        [color=blue]Select[/color] [color=blue]Case[/color] strKeuze[/font]
 [font=&quot] [/font]
 [font=&quot]            [color=blue]Case[/color] [color=blue]Is[/color] = [color=maroon]"Klanten"[/color][/font]
 [font=&quot]                lblZoek.Visible = [color=blue]True[/color][/font]
 [color=blue][font=&quot] [/font][/color]
 [font=&quot]                [/font][font=&quot]lblZoek.Text = [color=maroon]"U heeft gekozen om te zoeken op klanten."[/color][/font]
 [color=maroon][font=&quot] [/font][/color]
 [font=&quot]                lblZoekop.Visible = [color=blue]False[/color][/font]
 [font=&quot]                cboZoekKeuze.Visible = [color=blue]False[/color][/font]
 [color=blue][font=&quot] [/font][/color]
 [font=&quot]            [/font][color=blue][font=&quot]Case[/font][/color][font=&quot] [color=blue]Is[/color] = [color=maroon]"Ritten"[/color][/font]
 [font=&quot]                lblZoek.Visible = [color=blue]True[/color][/font]
 [color=blue][font=&quot] [/font][/color]
 [font=&quot]                [/font][font=&quot]lblZoek.Text = [color=maroon]"U heeft gekozen om te zoeken op ritten."[/color][/font]
 [color=maroon][font=&quot] [/font][/color]
 [font=&quot]                lblZoekop.Visible = [color=blue]False[/color][/font]
 [font=&quot]                cboZoekKeuze.Visible = [color=blue]False[/color][/font]
 [color=blue][font=&quot] [/font][/color]
 [font=&quot]            [color=blue]Case[/color] [color=blue]Is[/color] = [color=maroon]"Chauffeurs"[/color][/font]
 [font=&quot]                lblZoek.Visible = [color=blue]True[/color][/font]
 [color=blue][font=&quot] [/font][/color]
 [font=&quot]                lblZoek.Text = [color=maroon]"U heeft gekozen om te zoeken op chauffeurs."[/color][/font]
 [color=maroon][font=&quot] [/font][/color]
 [font=&quot]                lblZoekop.Visible = [color=blue]False[/color][/font]
 [font=&quot]                cboZoekKeuze.Visible = [color=blue]False[/color][/font]
 [color=blue][font=&quot] [/font][/color]
 [font=&quot]            [/font][color=blue][font=&quot]Case[/font][/color][font=&quot] [color=blue]Is[/color] = [color=maroon]"Wagens"[/color][/font]
 [font=&quot]                lblZoek.Visible = [color=blue]True[/color][/font]
 [color=blue][font=&quot] [/font][/color]
 [font=&quot]                [/font][font=&quot]lblZoek.Text = [color=maroon]"U heeft gekozen om te zoeken op wagens."[/color][/font]
 [color=maroon][font=&quot] [/font][/color]
 [font=&quot]                lblZoekop.Visible = [color=blue]False[/color][/font]
 [font=&quot]                cboZoekKeuze.Visible = [color=blue]False[/color][/font]
 [color=blue][font=&quot] [/font][/color]
 [font=&quot]            [color=blue]Case[/color] [color=blue]Is[/color] = [color=maroon]"Betalingswijze"[/color][/font]
 [font=&quot]                lblZoek.Visible = [color=blue]True[/color][/font]
 [color=blue][font=&quot] [/font][/color]
 [font=&quot]                lblZoek.Text = [color=maroon]"U heeft gekozen om te zoeken op betalingswijze."[/color][/font]
 [color=maroon][font=&quot] [/font][/color]
 [font=&quot]                lblZoekop.Visible = [color=blue]False[/color][/font]
 [font=&quot]                cboZoekKeuze.Visible = [color=blue]False[/color][/font]
 [color=blue][font=&quot] [/font][/color]
 [font=&quot]        [/font][color=blue][font=&quot]End[/font][/color][font=&quot] [color=blue]Select[/color][/font]
 [font=&quot]    [color=blue]End[/color] [color=blue]Sub[/color][/font]
 [color=blue][font=&quot] [/font][/color]
 [font=&quot]    [color=blue]Private[/color] [color=blue]Sub[/color] cmdBackZoekAlles_Click([color=blue]ByVal[/color] sender [color=blue]As[/color] System.Object, [color=blue]ByVal[/color] e [color=blue]As[/color] System.EventArgs) [color=blue]Handles[/color] cmdBackZoekAlles.Click[/font]
 [font=&quot]        [/font][color=blue][font=&quot]Me[/font][/color][font=&quot].Visible = [color=blue]False[/color][/font]
 [color=blue][font=&quot] [/font][/color]
 [font=&quot]        [color=blue]Dim[/color] Menu1 [color=blue]As[/color] [color=blue]New[/color] Menu[/font]
 [font=&quot] [/font]
 [font=&quot]        [/font][font=&quot]Menu1.ShowDialog()[/font]
 [font=&quot] [/font]
 [font=&quot]        [color=blue]Me[/color].Close()[/font]
 [font=&quot]    [color=blue]End[/color] [color=blue]Sub[/color][/font]
 [color=blue][font=&quot]End[/font][/color][font=&quot] [color=blue]Class[/color][/font]

[stegisoft]

Door met 2 qeurry te werken.

query klantnamen

query klantnummer

Die twee kopelen met een join

Dat is meest logisch dat ik denken.

Ik weet wel niet of dat gaat in Visual basic net want ik heb hier nooit mee gewerkt.