Office: (Office 2013) ADO-Alternative für einfachen DAO-Aufruf einer SP im SQL-Server

stefaktiv · 17. März 2018

Über einen Umweg bin ich jetzt auf eine für mich funktionierende Lösung gekommen:
http://www.vbforums.com/showthread.p...67259(80004005)

Wenn ich die Datenverbindung auf den "Native Client" umstelle, dann funktioniert es wie gewünscht. Offensichtlich klappt das mit der Standardverbindung nicht mehr wie vorher, wenn man "Native compilation", "Stored Procedures" und In-Memory-Datenbanken verwendet.

Für meine User ist das blöd - denn dann muss man immer den Native Client nachinstallieren.

Josef P. · 17. März 2018

Hallo!

Zur Info:
Ich probierte das unter Access 2016 unter Win 10 mit dem OLEDB-Provider "SQLOLEDB" aus und es kam keine Fehlermeldung.
Mein Connectionstring:
Code:

Provider=SQLOLEDB;Data Source=SQLSQL2016;Initial Catalog=TestDb;Integrated Security = SSPI
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Da ADODb verwendet wird, sollte das Problem meiner Meinung nach von der Access-Version unabhängig sein. Welche ADODB-Version verwendest du?

mfg
Josef

stefaktiv · 18. März 2018

Ich arbeite noch mit Access 2013 - aber hat sich da bzgl. des OLEDB-Provider etwas geändert?

sonic8 · 7. Januar 2021

von stefaktiv

Ich arbeite noch mit Access 2013 - aber hat sich da bzgl. des OLEDB-Provider etwas geändert?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Nein, der SQLOleDB-Provider ist seit jahren unverändert.

Ich habe vor meinem vorigen Beitrag hier im Thread auch ein kleines Beispiel mit einer Native-Compiled Table und Proc ausprobiert (In Access 2010). Das hat auch ohne Probleme funktioniert.

Dein Beispiel mit der SP konnte ich bisher noch nicht nachvlloziehen. - Ich sehe aber darin nichts, was auf den ersten Blick problematisch sein könnte.

fraeser · 18. März 2018

Der Connection-String ist ja auch abhängig vom Authentifizierungsmodus.
Bei SQL Server 2008 R2 greife ich immer wie folgt zu:
(SQL Server- und Windows-Athentifizierungmodus)

Code:

Dim sCon As String

sCon = "PROVIDER=SQLOLEDB.1;" _
& "PASSWORD=xxxxx;" _
& "PERSIST SECURITY INFO=TRUE;" _
& "USER ID=Benutzername;" _
& "INITIAL CATALOG=DB_Name;" _
& "DATA SOURCE=xxx.yyy.zzz.aaa,portnummer"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

stefaktiv · 18. März 2018

Also dazu hab ich mir eine Funktion gebastelt. Die übergibt je nach Wunsch / Bedürfnis den entsprechenden Connection String. Die allgemeinen Eckdaten zur Verbindung hab ich dabei in einer Tabelle direkt im Access Frontend gespeichert:

Code:

Function Funktion_Connection_String(strVerbindungsart As String, _
strUID As String, _
strPasswort As String) As String

Dim strProvider As String
Dim strTreiber As String
Dim strServer As String
Dim strPort As String
Dim strDatenbank As String
Dim strNetzwerk As String
Dim strNetzadresse As String

Dim db As Database
Dim rst As DAO.Recordset

On Error GoTo sprFehler

'Zuerst einmal die aktive Verbindung aufrufen
Set db = CurrentDb()
Set rst = db.OpenRecordset("SELECT * FROM Verbindungseinstellungen WHERE Verb_Aktiv0")

'Dann die Verbindungseinstellungen in die Variablen übernehmen
With rst
strProvider = rst.Fields("Verb_Provider").Value
strTreiber = rst.Fields("Verb_Treiber").Value
strServer = rst.Fields("Verb_Server").Value
strPort = rst.Fields("Verb_Port").Value
If strUID = "" Then strUID = rst.Fields("Verb_UID").Value
If strPasswort = "" Then strPasswort = rst.Fields("Verb_Passwort").Value
strDatenbank = rst.Fields("Verb_Datenbank").Value
strNetzwerk = rst.Fields("Verb_Netzwerk").Value
strNetzadresse = rst.Fields("Verb_Netzadresse").Value
End With

'Jetzt den Connection-String zusammensetzen
Select Case strVerbindungsart

Case Is = "ODBC"
Funktion_Connection_String = "ODBC;DRIVER=" & strTreiber & ";SERVER=" & strServer & _
";PORT=" & strPort & ";UID=" & strUID & ";PWD=" & strPasswort & _
";DATABASE=" & strDatenbank & ";NETWORK=" & strNetzwerk & _
";ADDRESS=" & strNetzadresse & ";"
Exit Function

Case Is = "SQLOLEDB"
Funktion_Connection_String = "Provider=SQLOLEDB.1;Password=" & strPasswort & _
";User ID=" & strUID & _
";Initial Catalog=" & strDatenbank & _
";Data Source=" & strNetzadresse
Exit Function

Case Is = "SQLNCLI"
Funktion_Connection_String = "Provider=SQLNCLI11;" & _
"SERVER=" & strServer & ";" & _
"DATABASE=" & strDatenbank & ";" & _
"UID=" & strUID & ";" & _
"Pwd=" & strPasswort & ";" & _
"Trust Server Certificate=False;" & _
"Application Intent=ReadOnly;"
Exit Function

Case Is = "SQLNCLIODBC"
Funktion_Connection_String = "Driver={SQL Server Native Client 11.0};" & _
"SERVER=" & strServer & ";" & _
"DATABASE=" & strDatenbank & ";" & _
"UID=" & strUID & ";" & _
"Pwd=" & strPasswort & ";" & _
"Application Intent=ReadOnly;"
Exit Function

Case Is = "ODBCDS"
Funktion_Connection_String = "ODBC;DRIVER=" & strTreiber & ";SERVER=" & strServer & _
";PORT=" & strPort & ";UID=" & strUID & ";PWD=" & strPasswort & _
";DATABASE=" & strDatenbank & "_Datenspeicher;NETWORK=" & strNetzwerk & _
";ADDRESS=" & strNetzadresse & ";"
Exit Function

Case Is = "SQLOLEDBDS"
Funktion_Connection_String = "Provider=SQLOLEDB.1;Password=" & strPasswort & _
";Persist Security Info=True;User ID=" & strUID & _
";Initial Catalog=" & strDatenbank & "_Datenspeicher" & _
";Data Source=" & strNetzadresse
Exit Function

Case Else
MsgBox "Fehler beim Verbinden der Datenbankverbindungen", vbExclamation
Exit Function

End Select

Set rst = Nothing
Set db = Nothing

On Error GoTo 0
Exit Function

sprFehler:

Set rst = Nothing
Set db = Nothing

Call Fehler("ODBC_Modul", "Funktion_Connection_String", 0, Err.Description)

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

fraeser · 18. März 2018

Frage ist ja, was unterm Strich rauskommt...und ob es funzt...

stefaktiv · 23. März 2018

Aber ist es da nicht doch recht komisch, wenn praktisch der identische Connection-String mit dem Native Client fehlerlos funktioniert, während er mit dem normalen Provider den Fehler ausgibt?

stefaktiv · 7. Januar 2021

von sonic8

Nein, der SQLOleDB-Provider ist seit jahren unverändert.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Frage: seit kurzem gibt es folgenden neuen Treiber: "ODBC Driver 17 for SQL Server" - hat schon jemand damit Erfahrungen gemacht? Wird dieser Treiber zukünftig auch direkt mit Access ausgeliefert?

Office: (Office 2013) ADO-Alternative für einfachen DAO-Aufruf einer SP im SQL-Server

ADO-Alternative für einfachen DAO-Aufruf einer SP im SQL-Server

ADO-Alternative für einfachen DAO-Aufruf einer SP im SQL-Server

ADO-Alternative für einfachen DAO-Aufruf einer SP im SQL-Server

ADO-Alternative für einfachen DAO-Aufruf einer SP im SQL-Server

ADO-Alternative für einfachen DAO-Aufruf einer SP im SQL-Server - Similar Threads - ADO Alternative einfachen

ADO: Recordset in Array

Recordset auf Inhalt prüfen (ADO, SQL)

Export in Excel per ADO

Datensätze eines ADO Recordset OHNE Schleife in Tabelle schreiben

Ado Recordset in anderen kopieren

Wahr/Fasch True/False Problem ADO Access

VBA ADO - mehrere Einträge in Recordset mit einmal in DB schreiben