Vdr. Database udtræk

for dette virker ikke :-(

        Do While dbTable.EOF = False
            List1.AddItem dbTable!Navn
                Exit Sub
            dbTable.MoveNext
        Loop

Prøv at downloade:

http://hjem.get2net.dk/sjh/eksperten/94471/db_bog.zip

jeg har brugt den her:
http://www.eksperten.dk/spm/94471

\'Det er nok sådan du vil have det. :-)

Private Sub Command1_Click()
dbTable.Recordset.MoveFirst
  Do Until dbTable.Recordset.EOF
    List1.AddItem dbTable.Recordset!Navn
      DoEvents
    dbTable.Recordset.MoveNext
  Loop
End Sub

Private Sub Form_Load()
  dbTable.DatabaseName = App.Path & \"\\gæstebog.mdb\"
  dbTable.RecordSource = \"gæstebog\"
End Sub

Prøve  at slette Exit Sub så stopper du jo gennemløbet af dit recordset, mit gæt er at du kun får den første post ind i listen.

      Do While Not dbTable.EOF
            List1.AddItem dbTable!Navn
            dbTable.MoveNext
        Loop

*G* fuck hvor kan man nogle gannge være lidt dum *G*
Selvfølgelige skal man da ikke exite sin sub.. det er da klart at den ikke vil slutte dokumentet then... :-)


men hey.. Jper, har du ikke noget kode som indsætter noget i en database? -uden den der Data fems i Visual Basic 6.0 !

jo du skal sætte en reference til Microsoft Activex Data Objects (ADO) hvordan du bruger det er en længere forklaring men kort fortalt et
Recordset indenholder dit udtræk fra en DB
Connection er forbindelsen til DB\'en
Command kan både indsætte og spørge i en DB
Mulighederne er mange og der er flere måder man kan gøre tingene på men kig på http://msdn.microsoft.com/library/en-us/ado270/htm/dasdkadooverview.asp?frame=true

En anden ting er at du kan downloade MDAC 2.7 SDK\'et fra http://www.microsoft.com/data/download.htm

ok... takker ;-)