vba-sql Verbindung zur Datenbank
11.07.2006 10:05:04
Caro
ich bin leider am verzweifeln und weiß nciht mehr weiter. ich hoffe, ihr könnt mir helfen:
folgendes problem: ich stelle in vba eine verbidnung zu einer datenbank her. also: passwort, user, server und treiber werden übergeben (verbindung, sprich der treiber und die einrichtung funktionieren auch, kann mich über anderen weg mit der datenbank verbinden) führe ich aber nun mein programm aus, bekomme ich folgende fehlermeldung:
laufzeitfehler 430
klasse unterstützt keine automatisierung oder unterstützt erwartete schnittstelle nicht.
hier nochmal ein kurzer ausschnitt aus meinem programm:
Public Function funcODBC(strUser As String, strPasswort As String, strDatenbank As String) As Variant
'Variablendeklaration
Dim conn As New ADODB.Connection
Dim str_conn As String
'ODBC-Verbindung zu welcher Datenbank, mit welchem User und welchen Passwort
str_conn = "Driver={Microsoft ODBC for Oracle};Server=strDatenbank;
Uid=strUser;Pwd=strPasswort;"
'Übergabe des String-Inhalts
conn.ConnectionString = str_conn
'Öffen der Connection
conn.Open
funcODBC = str_conn
End Function
Public Sub subSQLQuery()
str_conn = "Driver={Microsoft ODBC for Oracle};Server=xxx;Uid=xxx;Pwd=xxx;"
conn.ConnectionString = str_conn
conn.Open
command.ActiveConnection = str_conn (hier springt der debugger bei der fehlemeldung hin)
End Sub
lg
caro