Private Sub VisListe_Click() Connection strSQL = "SELECT id,Fornavn,etternavn FROM resultater where fornavn='" & txtnavn & "' order by fornavn" Set objRs = objConn.Execute(strSQL) If objRs.EOF Then MsgBox "Finnes ingen data" Else objRs.MoveFirst Do While Not objRs.EOF DataList1.RowSource DataList1.ListField = objRs("Fornavn") objRs.MoveNext Loop End If objConn.Close End Sub
-------------------------------------------------- Men, ingen ting kommer i listbox'en
Hvis jeg setter inn en Label, så får jeg ut et resultat, men kun den første brukeren som f.eks. heter "Anne"
ROLIG NU BARE, vi er her for at hjælpe, sidder lige og søger nettet tyndt for oplysninger omkring dine kolonner. Hvis du tror det er på grund af pointene, så tro om. Jeg vender tilbage når jeg har fundet noget !!!
Beklager, det var ikke meningen å legge det frem slik. Men, jeg er helt nybegynner i VB, og har sittet hele kvelden å slitet med dette. Jeg er litt frustrert kan man si...:-)
Det er ok, men du må give os noget tid, når ikke de rigtig hardcore programmører er på. Anyway, hvis du trykker Ctrl+T kommer du til Components-menuen. Her skal du markere Microsoft Forms 2.0 object Library og trykke ok. Ude i venstre side skulle du se en anden form for listbox. prøv at sætte den på din form.
Hvis du sætter listbox1.columncount = 3 Så har du dine 3 kolonner, men det er ikke et legetøj jeg har brugt før, så jeg tør ikke gå længere ind i det idag. Med hensyn til SQL, så har jeg altid brugt vb's egen Data control og aner ikke en kæft om SQL :o)
Ok. jeg har kommet lenger enn det jeg noen gang har vært med dette problemet. Jeg får vist mine data i listbox'en. Jeg kunne tenke meg å gi deg 100 point for ditt svar, Mikker. - Er du fornøyd med det?? Jeg har jo ikke fått løst problemet helt ennå, men jeg er langt på vei!
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.