Brauche dringend Hilfe ODBC-Verbindung
26.07.2005 17:20:42
Daniela
bräuchte dringend hilfe.
Ich habe während meinem Makrovorgang immer wieder zugriffe auf die Datenbank, doch ich muss jedes mal den Benutzernamen und das Passwort eingeben obwohl das eigentlich schon fix im Code geschrieben ist. Mein Kollege hat gemeint ich solle die Connection am anfang des Makros öffnen und nicht mehr schliessen.
Nur, wie mach ich das? kann mir bitte jemand helfen? wäre sehr dankbar.
das ganze sieht zur Zeit so aus:
Sub blabla()
Dim sConnect_String As String
Dim sDBZugriff As String
sDBZugriff = "SELECT Wertebereich.blabla FROM [dbo].Wertebereich WHERE TabelleAttribut = 'Vertrag.Abnehmerkategorie' and Kurzblabla= '" & Code & "';"
' DSN holen
sConnect_String = "DSN=DSN;UID=UID;PWD=pwd;"
ActiveWorkbook.Sheets(sSheet).Select
If (Code <> "") Then
' Inhalte des Sheets löschen
Cells(zielZeile, 3).Select
' DB Zugriff machen
With ActiveSheet.QueryTables.Add(Connection:= _
"ODBC;" & sConnect_String _
, Destination:=ActiveSheet.Range("C" & zielZeile))
.Sql = Array(sDBZugriff)
.FieldNames = False
.RefreshStyle = xlInsertDeleteCells
.RowNumbers = False
.FillAdjacentFormulas = False
.RefreshOnFileOpen = False
.HasAutoFormat = False
.BackgroundQuery = True
.TablesOnlyFromHTML = True
.Refresh BackgroundQuery:=False
.SavePassword = True
.SaveData = False
.AdjustColumnWidth = False
End With
ActiveSheet.Range("A1").Select
End If
End Sub