Verbindung zu MSSQL

[Ötzi]

Hallo zusammen,

Also ich habe folgendes Problem:
Ich soll aus einem Excel Programm heraus Daten in eine MSSQL Datenbank schreiben. Das ganze soll "automatisiert" per Button aufgerufen werden.
Die einzige Möglichkeit die mir bisher eingefallen ist, ist das ganze via VBA zu machen - doch leider krieg ich keine Verbindung zu meiner Datenbank.

Folgenden Code habe ich bisher:

Public Sub Makro1()
' Dimension the variable.
Dim Chan As Integer

' Establish a connection to the data source specifying the user ID and
' password.
Chan = SQLOpen("dsn=sql-verwalt\verwalt;uid=xxxx;pwd=xxxx")

' Execute a SQL statement.
SQLExecquery Chan, "select * from cons_services"

' Retrieve the query results and place them on the worksheet.
SQLRetrieve Chan, Range("Tabelle2!a1")

' Close the connection.
SQLClose Chan
End Sub

Doch wenn ich auf den Button klicke, kommt die Fehlermeldung "Sub oder Funktion nicht definiert".
Woran liegt das? Konnte bisher leider nichts passendes in Google o.ä. finden bzw. ich habe auch kein Script gefunden, welches ich anpassen könnte.
Wenn mir jemand sagen kann, wie ich die Verbindung aufbaue und Queries sende, sollte mir sehr geholfen sein .. die Queries selbst usw. sind kein Problem.
Oder weiß jemand vielleicht eine ganz andere Lösung für meine Aufgabenstellung?

Danke schonmal!
Gruß

 

[benhaze]

In deiner IDE wird doch mit Sicherheit angezeigt was er genau mit:

"Sub oder Funktion nicht definiert".

meint.
(wird ROT unterstrichen)

Ich hab schon lange nicht mehr mit VB gearbeitet, aber der SQL kram in deinem Code sind schon ein wenig merkwürdig aus.
Gar kein rstRecordset und keine conConnection