Hej!

Jag bifogar nu koden som jag använder

SOm ni ser är det exakt den som finns i pelles kurs. Fel meddelandet jag får är "Drivrutinens SQLsetconnectAttr misslyckades"

datbase är alltså gjord i visual data manager. och är 7.0. Jag har inget lösenord i den.

Hoppas det löser sig

/Phinala


Global con As ADODB.Connection
Global rst As ADODB.Recordset



Public Sub initADO()

Set con = New ADODB.Connection
Set rst = New ADODB.Recordset

ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "\Golf.mdb"


'Set rst = con.Execute(mysql)

On Local Error Resume Next
con.Open ConnectionString


If con.Errors.Count > 0 Then
MsgBox " Anslutningen misslyckades!" & vbCrLf & con.Errors(0).Description
ClearADO
End
Else
MsgBox "Du är anslutning"
End If


End Sub

Public Sub ClearADO()

Set rst = Nothing
Set con = Nothing
End Sub

Då kör vi detta till botten. Zippa projektet och din databas - maila mig - så tar jag hand om detta - det måste ju bara lösa sig på något sätt...

ps. fel forum ;-)

/Pelle

Schyst pelle! Jag skickar det

Hej, koden som du skickade stämde inte med exemplet ovan. Det du hade gjort var nämligen att i din golf.bas fil hade deklarerat rst som ADODB.Connection men skall vara ADODB.Recordset . Detta ställde till vissa problem för dig av förklarliga skäl :-)

Lycka till med vidare programmering av ADO
/Pelle