Office: ODBC SQL SERVER Verbindung per VBA erstellen

NorbertG · 9. Dezember 2012

Hallo Zusammen,
habe folgende Code Übernommen, der soweit auch funktioniert, nur möchte ich nicht den Windows User als benutzer sondern einen anderen SQL User ohne Passwort

Code:

Option Explicit
Public Const ODBC_ADD_DSN = 1 ' Add user data source (User DSN)
Public Const ODBC_ADD_SYS_DSN = 4 ' Add user data source (System DSN)

Public Declare Function SQLConfigDataSource Lib "ODBCCP32.DLL" ( _
ByVal hwndParent As Long, _
ByVal fRequest As Long, _
ByVal lpszDriver As String, _
ByVal lpszAttributes As String _
) As Long
Public Function CreateDSN(ByVal strName As String, _
ByVal strDriver As String, _
ByVal strConnectionString As String _
) As Boolean

Dim lngRetVal As Long
Dim strAttribString As String
Dim Attributes As Variant
Dim i As Long

strAttribString = "DSN=" & strName & vbNullChar
Attributes = Split(strConnectionString, ";")

For i = LBound(Attributes) To UBound(Attributes) Step 1
strAttribString = strAttribString & Attributes(i) & vbNullChar
Next i

lngRetVal = SQLConfigDataSource(0, ODBC_ADD_DSN, strDriver, strAttribString)
'Debug.Print strAttribString
CreateDSN = CBool(lngRetVal)

End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Aufruf:
Code:

Private Sub Conn_xxx()
If CreateDSN("TEST", "SQL Server", "Server=192.168.xx.xxx;UID=meunUSER;Database=meine Datdbase;Description=Beschreibung") Then
MsgBox "DSN erfolgreich erstellt"
Else
MsgBox "Fehler! DSN nicht erstellt"
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

habe ;UID=meinUSER usw, versucht mit an zugeben, funktioniert leider nicht,
habt ihr eine idee oder Tipp für mich.

Danke
Norbert

:)

Anne Berg · 10. Dezember 2012

Hallo,

"funktioniert nicht" heißt was genau?
Kommt eine Fehlermeldung, so zitiere sie bitte.

NorbertG · 10. Dezember 2012

Hallo Anne,
SQLConfigDataSource gubt null zurück
Code:

"lngRetVal = SQLConfigDataSource(0, ODBC_ADD_DSN, strDriver, strAttribString)"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

beim Aufruf von: gibt 0
Code:

If CreateDSN("TEST", "SQL Server", "Uid=mesr;Server=192.168.28.191;Database=meine Datdbase;Description=Beschreibung") Then
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

dieser aufruf ohne USER gibt 1 zurück und wird auch angelegt:
Code:

If CreateDSN("TEST", "SQL Server", "Server=192.168.28.191;Database=meine Datdbase;Description=Beschreibung") Then
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Danke

User · 11. Dezember 2012

Hallo Norbert,

so wie ich das sehe, wird der Benutzer und das Kennwort nicht in der DSN gespeichert, sondern bei Verbindungsaufbau mitgegeben. Die DSN können in der Registry angesehen werden unter HKCU\Software\ODBC\ODBC.INI\[DSNName], dort wird nur eine Angabe LastUser gespeichert.

Wenn es dir gar nicht um das Anlegen eines DSN geht, sondern du nur die Verbindung zu einer SQL-Datenbank herstellen willst, das geht auch DSN-los. Die Syntax ist dann allerdings unterschiedlich zu deinem jetzigen Verfahren. Suchwort dazu wäre "dsn-less", müsste man eigentlich Tonnen von Links bekommen.

HTH,
Stefan

NorbertG · 11. Dezember 2012

Hallo Stefan,
möchte schon eine ODBC Verbindung automatisch erstellen.

User · 7. Januar 2021

von NorbertG

Hallo Stefan,
möchte schon eine ODBC Verbindung automatisch erstellen.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Dann kannst du m.E. nicht Benutzer und Passwort angeben, nur die Eigenschaft LastUser wäre zu verwenden.

Die Benutzer- und Passworteigenschaft müsstest du dann beim Herstellen der Verbindung mitgeben, z.b. beim ADODB.Connection.Open().

Viele Grüße,
Stefan

NorbertG · 14. Dezember 2012

Hi,
sorry für die Späte Antwort.

Schade, aber bei eine erstellung der ODBC Verbindung einer MSQL DB geht es.

Code:

Dim ODBC_Treiber As String
Dim sAttrib As String
ODBC_Treiber = "MySQL ODBC 3.51 Driver"
sAttrib = "Description=ODBC Beschreibung" & vbCr & _
"OemToAnsi=Yes" & vbCr & "User=FarbDB" & vbCr _
& "Password=PT06" & vbCr & "Server=192.168.xx.xx" & vbCr & _
"Flagge 1=" & vbCr & _
"Database=DBName" & vbCr & _
"Trusted_Connection=NO"
DBEngine.RegisterDatabase "ODBC_Verbindung", ODBC_Treiber, True, sAttrib
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

das Funktioniert, kann ich aber leider nicht bei MS SQL Server anwenden.

thx

hcscherzer · 14. Dezember 2012

Ich misch mich auch noch mal ein.

von Norbert in #6

aber bei eine erstellung der ODBC Verbindung einer MSQL DB geht es.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Du meintest freilich MySQL ...

Wenn ich im ODBC Datenquellen-Administrator eine Benutzer DSN anlege, kann ich mich dort mit einem MSSQL Account authentifizieren.
Wenn ich diese DSN verwende, kann ich mich mit dem SQL Server verbinden und über den Importmanager die SQL Tabellen (und Views) als Verknüpfungen einfügen. Dabei werde ich allerdings noch mal nach dem Kennwort gefragt, aber es gibt den Haken "Kennwort speichern" und wenn ich ihn anhake, kommt eine Meldung "Ihr Kennwort wird nicht verschlüsselt. Benutzer, die den Quellcode ..."
Dieses Kennwort wird in der Access DB abgelegt.
In der .connect Eigenschaft ist es drin ... im Direktbereich geprüft: Code:

? currentdb.tabledefs("dbo_tabelle_xy").connect
ergibt
ODBC;DSN=my_dsn;Description=my_desc;UID=user;PWD=*****;APP=Microsoft Office 2010;DATABASE=my_database
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Und mit einer einmal importierten Tabelle kann ich jede beliebige weitere verknüpfen: Code:

connstr = CurrentDb.TableDefs("dbo_tabelle_xy").Connect

DoCmd.TransferDatabase acLink, "ODBC-Datenbank", connstr, acTable, "tabelle_abc", "dbo_tabelle_abc"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Insofern sollte das - bei vorhandener DSN - auch ohne einmalig importierte Tabell laufen ...

User · 7. Januar 2021

von NorbertG

Schade, aber bei eine erstellung der ODBC Verbindung einer MSQL DB geht es.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hallo Norbert,

wird das Paswort denn wirklich in der DSN gespeichert? Was sagt die Registry dazu?

Ansonsten kann ich nur Hans-Christian zustimmen, dass das Kennwort von ODBC-Verbindungen auf Wunsch als Klartext in Access gespeichert wird. deswegen ja auch meine Frage, ob du einen DSN-Eintrag im ODBC-Manager benötigst, oder ob es nur um die Verknüpfung von SQL-Tabellen nach Access geht.

Viele Grüße,
Stefan

Office: ODBC SQL SERVER Verbindung per VBA erstellen

ODBC SQL SERVER Verbindung per VBA erstellen

ODBC SQL SERVER Verbindung per VBA erstellen

ODBC SQL SERVER Verbindung per VBA erstellen

ODBC SQL SERVER Verbindung per VBA erstellen

ODBC SQL SERVER Verbindung per VBA erstellen - Similar Threads - ODBC SQL SERVER

Excel 2016 ODBC SQL Abfrage mit Zellbezug

MS-SQL Tabelle per ODBC mit VBA verknüpfen

ODBC Anbindung zur SQL Datenbank in Access Frontend einbauen

Fehler "ODBC-Aufruf fehlgeschlagen" bei Datumsfeld auf SQL-Server

Datumsformat bei Zugriff auf SQL Server 2008 via ODBC

SQL Server Tabelle via ODBC und VBA verknüpfen

ID aus SQL Recordset ermitteln - Geänderter Treiber?

Users found this page by searching for:

odbc verbindung per vba