Hej nu hoppas jag att ni kan förklara vad jag gör för fel med den här anslutningen.. Några tips. Oops var fel på din connectionsstring jag vet inte så mycket om databaser (det kanske inte har med det att göra) så hur kollar man vilket ADO som är aktivt?? Här har du en länk til ComponentChecker nu funkar det äntligen... tack så mycket... jag har försökt med den koden väldigt länge. Jag hittade den på kurser & artiklar så man tycker att den borde fungera.anslutning till en databas
databasen har jag gjort i access.
i en modul:
<code>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=c:\telefonnummer.mdb"
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 ansluten till databasen"
End If
End Sub
Public Sub ClearADO()
Set rst = Nothing
Set con = Nothing
End Sub
</code>
i en form:
<code> InitADO
ClearADO
</code>
felet kommer när jag ska ansluta då kommer det upp
"anslutningen misslyckades [Microsoft][ODBC Driver Manager] Drivrutinens SQLSetConnectAttr misslyckades"
jag har en referens till microsoft ActiveX Data Objects 2.7 Library
Vart är felet i koden?? eller är det något annat?? Sv: anslutning till en databas
Har du jet installerad ?
Vilken version av ADO är det som är aktiv i datorn ?
Kolla gärna lite på MS hemsida efter hjälp, finns en hel del där.
Finns program för att ta reda på vilken MDAC version som används osv.Sv: anslutning till en databas
Denna funkar, hör av dig om det blir problem
Public Sub InitADO()
Dim ConnectionString As String
Set con = New ADODB.Connection
Set rst = New ADODB.Recordset
ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\telefonnummer.mdb" + _
";Persist Security Info=False; Jet OLEDB"
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 ansluten till databasen"
End If
End SubSv: anslutning till en databas
Sv: anslutning till en databas
http://www.microsoft.com/downloads/details.aspx?FamilyId=8F0A8DF6-4A21-4B43-BF53-14332EF092C9&displaylang=en
Behöver du troligen inte nu men kanske i framtiden.
Speciellt när du kan få problem med versioner av ADO.
Connectionssträngen (ursäkta svenskan) brukar funka bra för mig i de fall jag vill ha en "DSN-less" anslutning.Sv: anslutning till en databas