Office: SQL Query ausführen mit VBA

Hallo liebe Profis *Smilie

ich habe jetzt relativ vil über SQL Abfragen im Netz gefunden, da ich aber ein ziemlicher SQL Noob bin weiss ich nicht wie ich die angebotenen Lösungen auf meine Anforderung adaptieren soll.

Ich habe auf einem Rechner das "MS SQL Server Management Studio" installiert und habe dort eine Query mit der ich eine Datenbank Abfrage:

Code:

Jetzt möchte ich diese Query aus einer Excel Tabelle aufrufen und den Rückgabewert in eben dieser Tabelle erhalten.

Mir fehlt leider völlig der Ansatz wie ich das realisieren kann.

Kann mir jemand Tips geben bzw. mich auf den richtigen Weg bringen?
Danke schon im Voraus!

:)

 

push...

 

Hallo Rohabu,

 

Hallo IngGi,

vielen Dank schon mal für deine Antwort, wenn ich den Code richtig lese ist es genau das was ich brauche.

Ich habe leider noch Probleme den Connection String anzupassen.
Wir setzen einen MS SQL Server 2008 ein und ich habe versucht auf der von dir genannten Seite den entsprechenden Connection String zu finden, leider weiß ich nicht welche Verbindungsart ich auswählen muss:

.NET libraries for SQL Server 2008

• .NET Framework Data Provider for SQL Server - SqlConnection
• .NET Framework Data Provider for OLE DB - OleDbConnection
• .NET Framework Data Provider for ODBC - OdbcConnection
• Context Connection

OLE DB providers for SQL Server 2008

• SQL Server Native Client 10.0 OLE DB Provider
• SQLXML 4.0 OLEDB Provider

ODBC drivers for SQL Server 2008

• SQL Server Native Client 10.0 ODBC Driver

Ich habe die Verbindung mit dem von dir angegebenen Connection String probiert, erhalte aber beim ausführen des Makros folgende Fehlermeldung:

Code:

Klicke ich auf Debuggen wird mir die folgende Zeile angezeigt:

Code:

Ich habe in Excel unter Extras > Verweise schon die Haken gesetzt bei:

• Microsoft ActiveX Data Objects 6.1 Library
• Microsoft ActiveX Data Objects Recordset 6.0 Library

Kannst du mir evtl. noch helfen den richtigen Connection String zu finden?
Username und Kennwort habe ich nicht angegeben da ich per Windows-Authentifizierung auf den Server zugreife, aber auch bei Angabe von Benutzername und Kennwort im Connection String erschint die selbe Fehlermeldung.

Danke!

 

Hallo Rohabu,

das müsste imho ein OLE DB - Treiber sein, da bin ich mir ziemlich sicher. Aber ich bin kein Datenbankexperte und habe noch nie etwas mit MS SQL Server zu tun gehabt. Welcher Connectionstring genau passt, kann ich dir also leider auch nicht sagen. Aber da kann dir sicher ein Datenbankforum weiterhelfen.

Gruß Ingolf

 

Hallo Ingolf,

trotzdem vielen Dank für die Rückmeldung, ich werde den Thread entsprechend mal in einem Datenbank-Forum verlinken.

Gruß
Rolf

 

wenn Ihr sog. "Trusted Connections" einsetzt (also eine Anmeldung auf Basis des Windows-Login), dann sollte das einfach so aussehen:

Code:

Du musst dabei nur DeinServer und DeineDatenbank durch die richtigen Werte ersetzen.

 

Hi redround,

vielen Dank, das war in meinem Fall genau die Lösung! *Smilie
Wir benutzen Trusted Connections und der Aufruf klappt sofort.

Die Daten werden zwar im falschen Format zurückgegeben (Die Daten einer Zeile aus der SQL Abfrage werden als Spalte in Excel eingefügt), aber da versuche ich mich mal durchzubeissen *wink.gif*

Danke!

 

Der Grund hierfür liegt in der doch recht komischen Art, wie im Beispiel-Skript das Ergebnis ausgegeben wurde. Versuch mal statt:
Code:

besser

Code:

Details zu CopyFromRecordset stehen in der Online-Hilfe.

Der Beispielcode hat auch noch ein paar andere "Unsauberheiten". So sollte die Connection am Ende der Prozedur auch wieder geschlossen werden. Zusätzlich sollten alle Objektvariablen wieder explizit zerstört werden, damit sie nich versehentlich im Speicher hängen bleiben (z. B. mit Set objRecSet = Nothing)

auch ist beim Umgang mit Objektvariablen ein Error-Handler sinnvoll, damit diese auch im Fehlerfall korrekt geschlossen / freigegeben werden.