hilfe bei odbc verbindung
24.02.2006 10:00:35
michaonline
vielleicht könnt ihr mir helfen.
hab folgenden code:
Function db()
Dim objTag
Dim objConn
Dim objCmd
Dim objRs
Dim strConnString
Dim strSQL
strConnString = "Provider=MSDASQL;DSN=CC_test_06_02_13_13_11_00R;UID=;PWD=;"
'strSQL = "select name from sysdatabases where name like 'CC_%R'"
strSQL = "select * from Archive"
Set objConn = CreateObject("ADODB.Connection")
Set objRs = CreateObject("ADODB.Recordset")
Set objCmd = CreateObject("ADODB.Command")
objConn.ConnectionString = strConnString
objConn.Open
'MsgBox objConn.Errors.Item(0).Description
objCmd.ActiveConnection = objConn
objCmd.CommandText = strSQL
Set objRs = objCmd.Execute
Set objRs = objCmd.OpenRecordset(strSQL)
End Function
will ne ganz simple datenbankabfrage machen aber die zeile:
Set objRs = objCmd.OpenRecordset(strSQL)
wird angemeckert ("Objekt unterstützt eigenschaft oder methode nich") könnt ihr mir helfen, will einfach das ergebnis der abfrage in excel zellen schreiben
micha *will endlich we*