Hente data i Access 2000

Loads of code examples here (ADO). Choose VB ...

Not quite sure why you mention ODBC-datasource, are you linking to SQL Server or something!

Her er et eks. som kobler sig på en anden Access-database vha ADO:

Public Sub Demo_Af_Open_Recordset()
    Dim rs As New ADODB.Recordset
    Dim cn As ADODB.Connection
   
    Set cn = New ADODB.Connection
    cn.Provider = "Microsoft.Jet.OLEDB.4.0"
    cn.Open "C:\Dokumenter\Access\DinDatabase.mdb"
    Set rs = cn.Execute("Select * from [DinTabel]")
    Do Until rs.EOF
        Debug.Print rs![ID]
        rs.MoveNext
    Loop
    rs.Close
    cn.Close
End Sub

Jeg har lavet en Access 2002 database og ønkser at åbne en tabel jeg har i samme.

Nedenstående (Som ligner dit 'thomasjepsen' eks.) skulle virke ville jeg umiddelbart mene:

    Dim cn As ADODB.Connection
    Dim rs As ADODB.Recordset
   
    Set rs = New ADODB.Recordset
    Set cn = New ADODB.Connection
   
    cn.Provider = "Microsoft.Jet.OLEDB.4.0"
    cn.Open CurrentDb.Name, "", ""
   
    rs.Open "JournalInfo", cn, adOpenKeyset, adLockOptimistic
    rs.MoveFirst
   
    Do While True
   
      Debug.Print rs!Field1
      rs.MoveNext
    Loop

    rs.Close
    cn.Close


Ved linie -    cn.Open CurrentDb.Name, "", ""
får jeg dog følgende fejl:

err.number          -2147467259
err.description    The database has been placed in a state by user 'Admin' on machine 'OL27309' that prevents it from being opened or locked.

Indtil videre kan jeg ikke finde nogen løsning på problemet?

Hvad siger I?

Jeg har løst problemet!

Databasen skulle lige genstartes.

Nu ser min virkende kode ud som følger:

Sub SearhJournalInfo()

    Dim cn As ADODB.Connection
    Dim rs As ADODB.Recordset
   
    Set rs = New ADODB.Recordset
    Set cn = New ADODB.Connection
   
    cn.Provider = "Microsoft.Jet.OLEDB.4.0"
    cn.Open CurrentDb.Name, "", ""
   
    rs.Open "JournalInfo", cn, adOpenKeyset, adLockOptimistic
    rs.MoveFirst
   
    Do Until rs.EOF
   
      Debug.Print rs!Field1
      rs.MoveNext
    Loop

    rs.Close
    cn.Close
   
End Sub

Tak for hjælpen!

Hej igen,

En lille kommentar: Hvis du kun arbejder på den aktuelle databasen (currentdb) så brug denne kode i stedet:

Sub SearhJournalInfo()

    Dim cn As ADODB.Connection
    Dim rs As ADODB.Recordset
   
    Set rs = New ADODB.Recordset
    Set cn = New ADODB.Connection
   
    Set cn = CurrentProject.Connection
   
    rs.Open "JournalInfo", cn, adOpenKeyset, adLockOptimistic
    rs.MoveFirst
   
    Do Until rs.EOF
   
      Debug.Print rs!Field1
      rs.MoveNext
    Loop

    rs.Close
    cn.Close
   
End Sub

Endvidere burde du heller ikke behøve at bruge .Movefirst

Tak!