Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
868to872
868to872
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

SQL per VBA

Forumthread: SQL per VBA

SQL per VBA
19.05.2007 22:47:52
PeTeR
Hallo VBA-Freaks,
ich bräuchte bitte ein kleines Musterbeispiel wie man in VBA per ADO die SQL-Befehle INSERT INTO und DELETE verwendet. Muss dazu per ODBC eine DNS definiert sein?
Vielen Dank für eure Hilfe
PeTeR

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: SQL per VBA
20.05.2007 09:15:00
Rolf
Hallo Peter,
hier mal ein Beispiel für INSERT TO
fG
Rolf
Option Explicit
Public Const strFolder$ = "C:\temp\"
Public Const strTestFile$ = "test.xls"

Sub start_InsertRecord()
ChDir strFolder
Call insertRecord(strTestFile, "db", "1234,#2007-05-20#,4711,'abcd',1234.56")
'Parameter: Datei, benannter Bereich, Datensatz=Beleg-Datum-Konto-Buchungstext-Betrag
End Sub




Sub insertRecord(strDestFile$, strRange$, strRecord)
Dim objCon As Object, strSQL$
strSQL = "INSERT INTO " & strRange & " VALUES (" & strRecord & ")"
Set objCon = CreateObject("ADODB.Connection")
With objCon
.Open "Provider=Microsoft.Jet.OLEDB.4.0;Excel 8.0;DATABASE=" & strDestFile
.Execute (strSQL)
.Close
End With
End Sub


Anzeige
AW: SQL per VBA
21.05.2007 10:49:00
PeTeR
Hallo Rolf,
vielen Dank für das tolle Beispiel!! Ich müsste aber von Excel die Daten in den SQL-Server übertragen (mit VBA per ADO als SQL-Befehl).
Hast noch so ein Beispiel für mich?
Herzlichen Dank
PeTeR

AW: SQL per VBA
21.05.2007 12:47:51
Rolf
Hallo Peter,
statt "Excel 8.0" musst du beim .Open-Befehl deinen Server eintragen.
Schau mal hier
http://www.activevb.de/tutorials/tut_adokurs/adokurs.html
da wirst du sicher fündig.
fG
Rolf

Anzeige
AW: SQL per VBA
21.05.2007 22:50:42
PeTeR
Hallo Rolf,
nochmals ganz herzlichen Dank für Deine Hilfe :-))
PeTeR
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige