Gewusst wie: Aufrufen eine SQL gespeicherten Prozedur mithilfe von MS Access VBA

Gewusst wie: Aufrufen einer Microsoft SQL Server gespeicherte Prozedur aus Microsoft Office Access mithilfe von Visual Basic für Applikationen (VBA) können Sie speichern Zeit, wenn Sie die gespeicherte Prozedur ausführen müssen, wissen. SQL Server ist ein relationales Datenbank-Managementsystem für große Datenbanken verwendet. Zugang ist auch ein relationales Datenbank-Managementsystem aber gewöhnlich für kleine Datenbanken. VBA ist eine Computer-Programmiersprache, die zum Automatisieren von Routineaufgaben in Microsoft Office-Anwendungen wie Access verwendet.

Anweisungen

1 Starten Sie Microsoft Office Access 2007 und wählen Sie "Leere Datenbank" und dann auf "Erstellen". Klicken Sie auf "Datenbanktools" und wählen Sie "Visual Basic." Klicken Sie im Feld "Einfügen" und wählen Sie "Module".

2 Wählen Sie im Menü "Extras" und klicken Sie auf "Referenzen..." Aktivieren Sie das Kontrollkästchen neben "Microsoft ActiveX Data Objects < Versionsnummer > Bibliothek." Klicken Sie auf "OK".

3 Geben Sie Folgendes zum Erstellen einer neuen Unterroutine und Variablen deklarieren:

Public Sub createDataToAnalyze()

Dim ObjConnection neue ADODB. Verbindung

Dim ObjCom als ADODB.Command

Dim ProvStr As String

4 Geben Sie Folgendes ein, um die Verbindung zu Ihrem SQLServer zu definieren:

Set ObjCom = New ADODB.Command

objConnection.Provider = "Sqloledb"

ProvStr = "Data Source = SERVERNAME;" & "Initial Catalog = DATENBANKNAME; Benutzer-Id = Benutzer-ID; Passwort = Passwort; "

Bearbeiten Sie die Zeichenfolge "ProvStr" und geben Sie Ihre Verbindung, wie Servername, Datenbankname, Benutzer-ID und Kennwort.

5 Geben Sie Folgendes ein, um Ihre gespeicherten Prozedur-Informationen zu definieren:

objConnection.Open provStr

Mit objCom

.ActiveConnection = objConnection

.CommandText = "spCreateUserTbl"

.CommandType = adCmdStoredProc

.Execute

Enden mit

EndSub

Bearbeiten Sie die folgende Zeile, und geben Sie den Namen der gespeicherten Prozedur:

. CommandText = "SpCreateUserTbl"

6 Drücken Sie "F5", um die Unterroutine ausgeführt.