VBA >> SQL
13.11.2003 11:11:30
Michael
ich habe folgendes Problem. Ich möchte in einem Skript Select abfragen generieren und nutze hierzu Variable die in einem Sheet gesetzt werden. Allerdings bekomme ich beim zusammensetzen des QuerryTables immer den Fehler 450, Anzahl der Argumente..... Ich habe mir schon alles Ausgeben lassen und konnte keinen Fehler finden.
'commandtext
sel = "select "
was = Range("c5")
from = " from " & Range("c6")
'tabl = Chr(10) & Range("c7")
'ODBC
con = ("Connection:=")
odb = Chr(34) & ("ODBC;")
ddsn = ("DSN=") & Range("c8") & ";"
uuid = ("UID=") & Range("c9") & ";"
ppwd = ("PWD=") & Range("c10") & Chr(34) & ","
dest = ("Destination:=")
rang = ("Range") & Chr(40) & Chr(34) & "a1" & Chr(34) & Chr(41)
With ActiveSheet.QueryTables.Add & Chr(40) & con & odb & ddsn & uuid & ppwd & dest & rang & Chr(41)
.CommandText = sel & was & from
gebe ich das 'With ActiveSheet.QueryTables.Add_(Connection:="ODBC;DSN=test;UID=test;PWD=test", Destination:=Range("a1"))
so an funktioniert es.
Vielleicht weiss jemand von euch eine Lösung
Vielen Dank
Michael