SQL i VB

Jeg ved ikke hvor udførlig dette er men prøv om du kan bruge det !

Set dbWs = DBEngine.Workspaces(0)
  Set dbsag = dbWs.OpenDatabase(App.Path & \"billedarkiv.mdb\")


  Set dbPBrec = dbsag.OpenRecordset(\"SELECT * FROM arkiv WHERE ponr = \'8000\' ORDER BY id\", dbOpenDynaset)

   
    Do While Not dbPBrec.EOF
      List3.AddItem dbPBrec!id
    Loop

Sæt det hele i Form_Load()

Jeg har nu prøvet med følgende:

Set dbws = DBEngine.Workspaces(0)
  Set dbsag = OpenDatabase(\"g:\\musik97.mdb\")
  Set dbPBrec = dbsag.OpenRecordset(\"SELECT * FROM MUSIK WHERE Kunstner = \'TV2\' ORDER BY Kunstner\", dbOpenDynaset)
    Do While Not dbPBrec.EOF
    \' List1.AddItem dbPBrec!Id
    Label2.Caption = dbPBrec!Id
    Loop
Men der fremkommer ingen resultat, blot at det er ligesom prg. kører i ring. Skal afbrydes med Break.
Kan du hjælpe ?

Nej den skal selc stoppe når der ikke er flere records.
Prøv med :
Set dbws = DBEngine.Workspaces(0)
  Set dbsag = OpenDatabase(\"g:\\musik97.mdb\")
  Set dbPBrec = dbsag.OpenRecordset(\"SELECT * FROM MUSIK WHERE Kunstner = \'TV2\' ORDER BY Kunstner\", dbOpenDynaset)
    Do While Not dbPBrec.EOF
    \' List1.AddItem dbPBrec!Id
    Label2.Caption =  Label2.Caption & vbCrLf & dbPBrec!Kunstner
    Loop

Det kan bedst betale sig at beregne totalen i Access...  MEN Hvis du absolut vil gennemløbe posterne i et recordset, så skal du huske at skifte til neste post !!!

Set dbws = DBEngine.Workspaces(0)
Set dbsag = OpenDatabase(\"C:\\Kunder.mdb\")
Set dbPBrec = dbsag.OpenRecordset(\"SELECT Count(*) As Antal FROM tabelNavn WHERE Postnr=8000\", dbOpenDynaset)
Label2.Caption = dbPBrec!Antal

eller...

Set dbws = DBEngine.Workspaces(0)
Set dbsag = OpenDatabase(\"g:\\musik97.mdb\")
Set dbPBrec = dbsag.OpenRecordset(\"SELECT * FROM MUSIK WHERE Kunstner = \'TV2\' ORDER BY Kunstner\", dbOpenDynaset)
Do While Not dbPBrec.EOF
\'  List1.AddItem dbPBrec!Id
  Label2.Caption = dbPBrec!Id
  dbPBrec.MoveNext \'  DET ER DENNE LINIE, SOM SKIFTER POST
Loop

BEMÆRK:

Når du ved at der kun er een kunstner i denne forespørgsel, så behøver du ikke at sortére efter Kunstner...

Set dbPBrec = dbsag.OpenRecordset(\"SELECT * FROM MUSIK WHERE Kunstner = \'TV2\' ORDER BY Kunstner\", dbOpenDynaset)

Set dbPBrec = dbsag.OpenRecordset(\"SELECT * FROM MUSIK WHERE Kunstner = \'TV2\'\", dbOpenDynaset)

Prøv med :
Set dbws = DBEngine.Workspaces(0)
  Set dbsag = OpenDatabase(\"g:\\musik97.mdb\")
  Set dbPBrec = dbsag.OpenRecordset(\"SELECT * FROM MUSIK WHERE Kunstner = \'TV2\' ORDER BY Kunstner\", dbOpenDynaset)
    Do While Not dbPBrec.EOF
    \' List1.AddItem dbPBrec!Id
    Label2.Caption =  Label2.Caption & vbCrLf & dbPBrec!Kunstner
    dbPBrec.MoveNext
    Loop

Hejsa, takker mange gange for hjælpen, men vil lige spørge, om jeg kan få totalen af antalet af fudne poster. Altså at den skriver i Label2 hvor mange poster der er fundet.
Det er kanon at I har hjulpet.
Mon ikke at hy, skal svare også, så point\'ene skal fordeles :-)

Du kan som proaccess har svaret bruge Count.

Lav en Label3 og indsæt følgende :

Set dbws = DBEngine.Workspaces(0)
Set dbsag = OpenDatabase(\"C:\\Kunder.mdb\")
Set dbPBrec = dbsag.OpenRecordset(\"SELECT Count(Kunstner) As Antal FROM MUSIK WHERE Kunstner = \'TV2\'\", dbOpenDynaset)
Label3.Caption = dbPBrec!Antal


hyde

Ret lige anden linie til :
Set dbsag = OpenDatabase(\"g:\\musik97.mdb\")
så går det lidt beder.

BTW Godt nyt år.......

hyde

Kanon... Det hele virker :-)
I er sgu\' nogle dygtige drenge...
Hvis jeg lige må stille et enkelt til:
Når jeg nu har udført en søgning på \"find alle tv2\" poster, og trykker commandknap, kan jeg så få den samme commandoknap til at blive til \"vis Alle\", så når jeg igen trykker denne knap vises alle poster igen. Eller som alternativ en anden commandoknap, som bruges til Vis alle poster\"
Er bare så glad for jeres svar.