Scripts - Tutorials - Forum - Downloads - Showcase - Contact

Artikels

VPN vergelijken

Algemeen

Beginpagina

FAQ

Grafische worm (243)

Links

Nieuwsartikels

Nieuwsarchief

Boeken programmeren

Overzicht

Samenwerken

Webhosting

Zoek op Sitemasters

Leden

Registreren

Ledenlijst

Ons team

Links

webhostingtop10.be

Sociale media

Follow @sitemasters

Sitemasters

Adverteren op Sitemasters?

Contacteer ons

RSS

Link naar ons

Donaties

Poll

Je moet ingelogd zijn om te stemmen.

Statistieken

Linkpartners

Forum

Categorieën > VB.NET

naam zoeken, database, weergeven listbox (Opgelost)

rredspike1 - 04/11/2008 18:59 (laatste wijziging 04/11/2008 19:01)

Lid

vbnet code - Bekijk de code zonder highlighting - Klap code in

                Dim strZoeken As String = txtZoeken_Opdrachten.Text
Dim MSPDS As New DataSet()
Dim strQuery As String = "SELECT strZoeken FROM Klanten"
Dim myAdapter As New OleDb.OleDbDataAdapter(strQuery, oCon)
myAdapter.Fill(MSPDS)
lstZoekResultaten_Opdrachten.Items.ToString()
            
Dim strZoeken As String = txtZoeken_Opdrachten.Text
Dim MSPDS As New DataSet()
Dim strQuery As String = "SELECT strZoeken FROM Klanten"
Dim myAdapter As New OleDb.OleDbDataAdapter(strQuery, oCon)
myAdapter.Fill(MSPDS)
lstZoekResultaten_Opdrachten.Items.ToString()
 

Alleen geeft niks weer in de listbox
Hoe doe ik (zie titel)

8 antwoorden

Gesponsorde links

Wim - 04/11/2008 19:26
Crew algemeen		je zet toch ook helemaal niets in je listbox in....?

rredspike1 - 04/11/2008 19:32
Lid		ok help me even, als je dat wil, want weet niet hoe ik dat dan WEL moet doen

Wim - 04/11/2008 19:44
Crew algemeen		vbnet code - Bekijk de code zonder highlighting - Klap code in lstZoekResultaten_Opdrachten.Items.Add("Whatever je maar wil toevoegen") lstZoekResultaten_Opdrachten.Items.Add("Whatever je maar wil toevoegen")

rredspike1 - 04/11/2008 19:48 (laatste wijziging 04/11/2008 19:52)
Lid		Het moet uit een database komen Code had ik ook al :-) geprobeerd vbnet code - Bekijk de code zonder highlighting - Klap code in lstZoekResultaten_Opdrachten.Items.Add lstZoekResultaten_Opdrachten.Items.Add

Abbas - 04/11/2008 20:39

Crew .NET

vbnet code - Bekijk de code zonder highlighting - Klap code in

                Dim strZoeken As String = txtZoeken_Opdrachten.Text
Dim MSPDS As New DataSet()
Dim strQuery As String = "SELECT " & strZoeken & " FROM Klanten"
Dim myAdapter As New OleDb.OleDbDataAdapter(strQuery, oCon)
myAdapter.Fill(MSPDS)
lstZoekResultaten_Opdrachten.DataSource = MSPDS
            
Dim strZoeken As String = txtZoeken_Opdrachten.Text
Dim MSPDS As New DataSet()
Dim strQuery As String = "SELECT " & strZoeken & " FROM Klanten"
Dim myAdapter As New OleDb.OleDbDataAdapter(strQuery, oCon)
myAdapter.Fill(MSPDS)
lstZoekResultaten_Opdrachten.DataSource = MSPDS
 

rredspike1 - 04/11/2008 20:48
Lid		De instructie SELECT bevat een gereserveerd woord of een argumentnaam die verkeerd is gespeld, ontbreekt, of een verkeerd leesteken heeft. 'Hieronder is geel aangegeven' myAdapter.Fill(MSPDS) OleDBexception is unhandled! geeft het nu aan..

Abbas - 04/11/2008 20:50
Crew .NET		Dus heb je een fout in je query ergens! Kijk na of de kolomnaam juist is of iets dergelijks..

rredspike1 - 04/11/2008 21:00 (laatste wijziging 04/11/2008 21:14)

Lid

De database tabel.klanten heeft de juiste kolom..

vbnet code - Bekijk de code zonder highlighting - Klap code in

                    Private Sub btnZoeken_Opdrachten_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnZoeken_Klant_Opdrachten.Click
        If String.IsNullOrEmpty(txtZoeken_Opdrachten.Text) Then
            strErrors &= "- Geen klant ingegeven!" & Environment.NewLine
            xErrors = xErrors + 1
        End If

        Dim strZoeken As String = txtZoeken_Opdrachten.Text
        Dim MSPDS As New DataSet()
        Dim strQuery As String = "SELECT Bedrijfsnaam FROM Klanten WHERE Bedrijfsnaam = '" & strZoeken & "'"
        Dim myAdapter As New OleDb.OleDbDataAdapter(strQuery, oCon)
        myAdapter.Fill(MSPDS)
        lstZoekResultaten_Opdrachten.DataSource = MSPDS

        'Alle errors bij elkaar optellen en weergeven'
        If xErrors > 0 Then
            MessageBox.Show(strErrors, "Fout", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            xErrors = 0
            strErrors = ""
        End If

    End Sub
            
Private Sub btnZoeken_Opdrachten_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnZoeken_Klant_Opdrachten.Click
        If String.IsNullOrEmpty(txtZoeken_Opdrachten.Text) Then
            strErrors &= "- Geen klant ingegeven!" & Environment.NewLine
            xErrors = xErrors + 1
        End If
 
        Dim strZoeken As String = txtZoeken_Opdrachten.Text
        Dim MSPDS As New DataSet()
        Dim strQuery As String = "SELECT Bedrijfsnaam FROM Klanten WHERE Bedrijfsnaam = '" & strZoeken & "'"
        Dim myAdapter As New OleDb.OleDbDataAdapter(strQuery, oCon)
        myAdapter.Fill(MSPDS)
        lstZoekResultaten_Opdrachten.DataSource = MSPDS
 
        'Alle errors bij elkaar optellen en weergeven'
        If xErrors > 0 Then
            MessageBox.Show(strErrors, "Fout", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            xErrors = 0
            strErrors = ""
        End If
 
    End Sub
 

Edit:
i'm sorry guys!

ontzettend bedankt dat jullie me zo helpen

Ik had iets over het hoofd gezien heb het al voor elkaar, nu komt eigenlijk mn volgende probleem waar ik tegenaan loop en dat is...
dat ik met een geselecteerde item (+ gekoppelde row, van die bedrijfsnaam) deze gegevens ingeladen moeten worden in txtvelden...maargoed ik probeer eerst weleens even wat...mocht je je vervelen

;-) help je me maar een beetje op weg!!

Groeten!

Gesponsorde links

Dit onderwerp is gesloten.

Actiefste leden van de maand

Actieve forumberichten