Åbne Access2000 i vb6

Du skal installere SP4 og benytte \"Access2000;\" istedet for \"Access\" som connect streng

Jeg kan godt åbne databaser i Access2000 med vb6. Jeg har brugt nedenstående kode:


Private vbLogin As ADODB.Connection
Private rsvbLogin As ADODB.Recordset

Public Function OpenDB() As String
   
    Dim strCnn As String
       
    On Error GoTo error1
   
    Set vbLogin = New ADODB.Connection
    strCnn = \"Provider=Microsoft.Jet.OLEDB.4.0;\"  & _ \"data source=\"Stien hvor databasen ligger på serveren;\"       

    vbLogin.Open strCnn
       
    \' Åbner Login tabellen
    Set rsvbLogin = New ADODB.Recordset
    rsvbLogin.CursorType = adOpenKeyset
    rsvbLogin.LockType = adLockOptimistic
    rsvbLogin.CursorLocation = adUseClient

error1:
    OpenDB = Err.Description
   
End Function

Min DB er en loginDB, derfor kalder jeg den vbLogin båder i connectionen og i recordsættet(rs)

OK, det er også fint. Men for at får adgang til OLEDB.4.0; er det nødvendigt at SP4 ind. Jeg ved ikke om den er med i tidligere SP\'s men i alt fald ikke i standardversionen...

Du skal via Project ind i References og markere Microsoft ActiveX Data Objects 2.5 Library.

Nå? Hvordan løste du så problemet?

cstern >> Det ved jeg ikke rigtig - jeg installerede win2000 +sp1 og derefter Visual Studio som jeg plejer, og så virkede det bare ?

cstern>> kan du ikke lige lave et svar, det var vist ikke helt retfærdigt at jeg afviste dig totalt !??