Datenbank Infos (conn.open) zentral

Hallo liebe Community,
Ich bastle öfters mal an SQL-Datenbankabfragen in Excel via VBA-Makros und bin jetzt aber an einer Stelle, wo ich nicht weiter komme.
Meine Abfragen sind immer wie folgt aufgebaut und funktionieren auch einwandfrei.:
Dim conn As New Connection, rec As New Recordset
Dim comm As New Command
Dim sql$, i&, lauf
'DB öffnen
conn.Open "Provider=MSDASQL.1;Driver=SQL Server;Server=*Servername*;Initial Catalog=Datenbank;UID=UserID;PWD=Passwort;"
Set comm.ActiveConnection = conn
Abfrage
comm.CommandText = "SELECT FROM dbo.[*Mandant*$Tabelle] "
rec.Open comm

rec.Close
'DB schließen
conn.Close
Jetzt habe ich jedoch sehr viele UserForms in deren Codes eine solche Abfrage eingebaut ist. Auch das funktioniert bisher.
Es ist jetzt aber nun sehr umständlich, mein Tool auf eine andere Datenbank und einen anderen Mandanten umzuziehen. Z.B. Auf das Testsystem.
Wie kann ich denn Servername und Mandant 1x zentral hinterlegen (z.B. in als Variable), dass ich es von allen Codes / Makros aus nutzen kann?
Ich habe den gesamten String nach conn.Open schon versucht als Variable zCon zu definieren, d.h. zCon = "Provider=MSDASQL.1;Driver=SQL Server;Server=*Servername*;Initial Catalog=Datenbank;UID=UserID;PWD=Passwort;" aber ohne Erfolg. Mir ist auch nicht ganz klar, ob ich das in ein Objekt, Formular oder Moduls schreiben muss.
Daher wäre eine detaillierte Beschreibung sehr hilfreich.
Danke im Voraus.
Gruß - Rainer

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Rainer,
willkommen in die nächste Stufe: modularisieren.
Du könntest zuerst die Aufgaben teilen. In allgemeine Modul:


Dim conn As Connection
Public Sub Connection_öffnen()
If Not conn Is Nothing Then Exit Sub 'nicht normal aufrufen, wenn schon offen
conn.Open "Provider=MSDASQL.1;Driver=SQL Server;Server=*Servername*;Initial Catalog=Datenbank;UID=UserID;PWD=Passwort;"
End Sub
Public Sub Connection_schliessen()
conn.Close
End Sub
Sub DatenXY_abrufen()
Dim rec As New Recordset
Dim comm As New Command
Dim sql$, i&, lauf
Connection_öffnen 'Versucht die Connection zu öffnen, falls noch nicht geöffnet
'DB nutzen
Set comm.ActiveConnection = conn
'Abfrage
comm.CommandText = "SELECT  FROM dbo.[*Mandant*$Tabelle] "
rec.Open comm
Do While Not rec.EOF
Loop
rec.Close
Set comm = Nothing
End Sub

Das Schliessen findet dann nur einmal vor dem schliessen statt (in "DieseArbeitsmappe"-Modul):


Private Sub Workbook_BeforeClose(Cancel As Boolean)
Connection_schliessen
End Sub

DatenXY_abrufen wird in verschiedene Varianten implementiert. Alle andere sind nur einmal notwendig.
VG
Yal

Public Sub Connection_öffnen() If Not conn Is Nothing Then Exit Sub 'nicht normal aufrufen, wenn schon offen Set conn = New Connection conn.Open "Provider=MSDASQL.1;Driver=SQL Server;Server=*Servername*;Initial Catalog=Datenbank;UID=UserID;PWD=Passwort;" End Sub

Beliebteste Forumthreads (12 Monate)

Datenbank Infos (conn.open) zentral

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Datenbank Infos (conn.open) zentral

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread