ADO und T-SQL
26.12.2012 16:07:49
Andreas
Dies ist mein erster Beitrag.
Ich habe im Archiv gesucht und nichts über die Möglichkeit gefunden, T-SQL auf Excel-Dateien anzuwenden.
Der Fall: Ich habe eine Excel 2000 Datei, die ein Sheet "Entries" enthält; auf diese will ich wie auf eine Tabelle in einer relationalen Datenbank zugreifen. Das klappt auch ganz gut, über ADO und mit "normalem" SQL, aber nicht Transact-SQL. Ich möchte gerne eine gespeicherte Prozedur selbst schreiben, und das geht meines Wissens mit T-SQL.
VBA code:
Sub TSQL()
Dim cn As ADODB.Connection
Dim cmd As ADODB.Command
Dim i As Long
Dim j As Long
Dim sql As String
sql = "CREATE PROC TST AS SELECT * FROM [Entries$] GO"
Set cn = New ADODB.Connection
cn.Open "Provider=MSDASQL.1;Persist Security Info=False;Extended Properties=""DSN=Excel Files; _
DBQ=C:\Andi\Dateien\Haushalt\Buchhaltung\Abschlüsse\AVO\2012\AutoFS II 3.xls;DefaultDir=C:\Andi\Dateien\Haushalt\Buchhaltung\Abschlüsse\AVO\2012;DriverId=790;MaxBufferSize=2048;PageTimeout=5;"";Initial Catalog=C:\Andi\Dateien\Haushalt\Buchhaltung\Abschlüsse\AVO\2012\AutoFS 13.4-2"
Set cmd = New ADODB.Command
With cmd
.ActiveConnection = cn
.CommandType = adCmdStoredProc
.CommandText = sql
.Execute j
End With
Cells(10, 1) = cmd
cn.Close
End Sub
"Das Microsoft Jet-Datenbankmodul konnte das Objekt "CREATE" nicht finden..."
Was mache ich falsch?
Danke vorab für Eure Hilfe!