Access 2000 <> VB 6.0

Der er flere måder at connecte ned i en db på, mewn bruger du den almindelige data control kan du ikke connecte ned i en access 2000 db, selv ikke hvis du upgradere din vb60 til sp4, men vælger du fx at connecte ned i den på denne her måde og du har installeret sp4 kan det lade sig gøre.

Set postdata = OpenDatabase(\"c:\\db.mdb\")
strSQL = \"select * from [tabel] where post = \'noget\'\"
Set rst = postdata.OpenRecordset(strSQL, dbOpenDynaset)

\\\\\\ Kim

Jeg ville gøre det sådan her:

\'Database objekter
Dim db As Database
Dim rs as RecordSet
Dim td As TableDef
Dim fl as Field

\'For at åbne en database
Set db=CurrentDb()
eller
Set db = Opendatabase (\"Hvor data basen ligger\")
\'For at fange en tabel
Set rs = db.OpenRecordset(\"NAVN PÅ TABEL\", dbOpenTable)
\'Er der flere tabeller så åbnes de sådan her
Set rs2 = db.OpenRecordset(\"NAVN PÅ TABEL 2\", dbOpentable\")

Nu har du fat i de ting du skal bruge i tabellerne, så kommer alt det sjove, cellerne...

\'For at starte fra starten af
rs.MoveFirst

\'Kører hele tabelen igennem
Do Until rs.EOF
  If rs!NAVN_PAA_RAEKKE = \"Powell\" then
    MsgBox(\"Fed Fyr!\")
  End If
  rs.MoveNext
Loop

Du skal prøve med nedenstående, der virker på en access 2000 database.

Dim Con As Connection
Dim Rs As Recordset

Set Con = New Connection
Set Rs = New Recordset

With Con
    .Provider = \"Microsoft.Jet.OLEDB.4.0\"
    .ConnectionString = \"Data source = Stien til databasen(navn).mdb\"
    .Open
End With

Rs.Open \"Select (navn) from (tabelnavn)\", Con

Do While Not Rs.EOF
    List1.AddItem Rs!(navn)
    Rs.MoveNext
Loop

Rs.Close
Con.Close

Set Rs = Nothing
Set Con = Nothing

Ovennævnte virker 100 %

/bacadm