SQL Abfrage Typen unverträglich
14.11.2004 18:26:39
Peter
Ich versuche aus einer Foxpro-Datei Daten in Excel zu laden.
With ActiveSheet.QueryTables.Add(Connection:= _
"ODBC;DSN=Visual FoxPro Database;UID=;SourceDB=c:\Tmp;SourceType=DBF;Exclusive=No;BackgroundFetch=Yes;Collate=Machine;Null=Yes;Deleted=Yes;" _
, Destination:=Range("A1"))
.Sql = Array( _
"SELECT v2ad1001.Nummer, v2ad1001.titel, v2ad1001.Vorname, v2ad1001.Name, v2ad1001.Strasse, v2ad1001.PLZ, v2ad1001.ort " & Chr(13) & "" & Chr(10) & _
"FROM c:\Tmp\v2ad1001 v2ad1001" & Chr(13) & "" & Chr(10) & _
"WHERE v2ad1001.name like" & Chr(39) & "%" & Name & "%" & Chr(39) & _
"AND v2ad1001.vorname like" & Chr(39) & "%" & Vorname & "%" & Chr(39) & _
"AND v2ad1001.Nummer like" & Chr(39) & "%" & Nummer & "%" & Chr(39) & _
"AND v2ad1001.ort like" & Chr(39) & "%" & ort & "%" & Chr(39))
.Refresh BackgroundQuery:=False
End With
Ich bekomme aber immer die Meldung Laufzeitfehler 13 Typen unverträglich. Kann mir einer helfen? Was mache ich falsch?
Peter