SQL Abfrage
17.10.2006 15:19:31
Marius
bin ein völliger VBA neuling und soll ein script schreiben, was auf Knopfdruck den Inhalt einer SQL-Tabelle von einem externen Server holt und in einer Tabelle ausgibt. Ich bin auch schon soweit gekommen, dass ich den Knopf erstellt habe. Nur jetzt hapert es an der Funktion um die Daten vom MS SQL-Server zu holen. Mein Ansatz sieht so aus:
Sub LetsNochmaImport()
Dim adoCnn As New ADODB.Connection
Dim adoRst As New ADODB.Recordset
adoCnn.ConnectionString = "provider=MSDASQL;" & _
"driver={SQL Server};" & _
"server=testserver;" & _
"database=Testdb"
adoCnn.Open
adoRst.Open "SELECT * FROM testtabelle", _
adoCnn, adOpenForwardOnly
RS2WS adoRst
adoRst.Close
adoCnn.Close
Set adoRst = Nothing
Set adoCnn = Nothing
End Sub
Könnt ihr mir vielleicht helfen das zu realisieren? Also, connecten -> auslesen -> und in die geöffnete Tabelle schreiben!
Vielen, vielen Dank
Marius