Microsoft Access Programmierrezepte

R7.10 SQL Server-Version ermitteln

Aufgabe

Ihr Access-Frontend soll einige Informationen über den aktuell installierten SQL Server ermitteln.

Lösung

Auch für diesen Fall haben die Microsoft-Programmierer vorgesorgt. In der Master-Datenbank findet sich die Stored Procedure xp_msver, die in einem Recordset die wichtigsten Rahmendaten des SQL Servers zurückgibt.

Oberfläche

Ein einfaches Formular mit zwei Schaltflächen und einem Textfeld.

Quelltext

Private Sub OK_Click()
On Error Resume Next

Dim conn As New ADODB.Connection
Dim rs As ADODB.Recordset

Verbindung herstellen:

conn.Open _
    "Provider=SQLOLEDB.1;Integrated Security=SSPI;DATA SOURCE =.\SQLEXPRESS; Initial Catalog=master;"

Stored Procedure ausführen:

Set rs = conn.Execute("EXEC xp_msver")

Ausgabe im Textfeld ...