Office: Odbc per VBA

User · 22. Januar 2003

Hallo Zusammen,

ich habe ein Access FE und einen SQL-Server als BE. Die Tabellen sind in dem Access FE (mdb) eingebunden.

Zudem ist auf dem entsprechenden Computer eine ODBCverbindung konfiguriert (System-DSN).

Nun zu meinem Problem:

Wenn ich dieses Access FE weitergebe, möchte ich per VBA prüfen, ob die benötige System-DSN vorhanden ist.

Wenn nicht soll die System-DSN per VBA eingerichtet werden.

Kann mir jemand helfen ???

Gruss,
Neils

:)

Sascha Trowitzsch · 25. Januar 2003

Damit müsstest du was anfangen können:

Code:

Option Explicit

' Some ODBC helper procedures
' - mossSOFT2003 -
' Updated 10/2007

Private Const SQL_FETCH_NEXT As Long = 1
Private Const SQL_FETCH_FIRST As Long = 2
Private Const SQL_SUCCESS As Long = 0
Private Const SQL_NO_DATA_FOUND As Long = 100

Private Const SQL_NTS As Long = -3
Private Const SQL_DROP As Long = 1

Private Const SQL_MAX_DESC_LENGTH As Long = 128
Private Const SQL_MAX_DSN_LENGTH As Long = 32

Private Const SQL_NULL_HANDLE As Long = 0
Private Const SQL_HANDLE_ENV As Long = 1
Private Const SQL_HANDLE_DBC As Long = 2
Private Const SQL_HANDLE_STMT As Long = 3
Private Const SQL_HANDLE_DESC As Long = 4

Private Const SQL_ATTR_ODBC_VERSION As Long = 200
Private Const SQL_OV_ODBC3 As Long = 3
Private Const SQL_IS_INTEGER As Long = (-6)
Private Const ODBC_ADD_DSN As Long = 1
Private Const ODBC_BOTH_DSN As Long = 0
Private Const ODBC_USER_DSN As Long = 1
Private Const ODBC_SYSTEM_DSN As Long = 2
Private Const SQL_NEED_DATA As Long = 99
Private Const SQL_ERROR As Long = -1

Private Declare Function SQLWritePrivateProfileString Lib "odbccp32.dll" _
(ByVal Section As String, _
ByVal Key As String, _
ByVal Entry As String, _
ByVal Init As String) As Long

Private Declare Function SQLAllocHandle Lib "odbc32.dll" _
(ByVal HandleType As Integer, _
ByVal InputHandle As Long, _
OutputHandlePtr As Long) As Long

Private Declare Function SQLAllocConnect Lib "odbc32.dll" _
(ByVal hEnv As Long, _
phdbc As Long) As Integer

Private Declare Function SQLAllocEnv Lib "odbc32.dll" (phenv As Long) As Integer
Private Declare Function SQLFreeEnv Lib "odbc32.dll" (ByVal hEnv As Long) As Integer

Private Declare Function SQLFreeHandle Lib "odbc32.dll" _
(ByVal HandleType As Integer, _
ByVal handle As Long) As Long

Private Declare Function SQLAllocStmt Lib "odbc32.dll" _
(ByVal hDbc As Long, _
hStmt As Long) As Integer

Private Declare Function SQLFreeStmt Lib "odbc32.dll" _
(ByVal hStmt As Long, _
ByVal fOption As Integer) As Integer

Private Declare Function SQLSetEnvAttr Lib "odbc32.dll" _
(ByVal EnvironmentHandle As Long, _
ByVal dwAttribute As Long, _
ByVal ValuePtr As Long, _
ByVal StringLen As Long) As Long

Private Declare Function SQLConfigDataSource Lib "odbccp32.dll" _
(ByVal hwndParent As Long, _
ByVal fRequest As Long, _
ByVal lpszDriver As String, _
ByVal lpszAttributes As String) As Long

Private Declare Function SQLDataSources Lib "odbc32.dll" _
(ByVal hEnv As Long, _
ByVal fDirection As Integer, _
ByVal szDSN As String, _
ByVal cbDSNMax As Integer, _
pcbDSN As Integer, _
ByVal szDescription As String, _
ByVal cbDescriptionMax As Integer, _
pcbDescription As Integer) As Integer

Private Declare Function SQLSetConfigMode Lib "odbccp32.dll" (ByVal wConfigMode As Integer) As Long

'Private Declare Function SQLGetPrivateProfileString Lib "ODBCCP32.DLL" _
' (ByVal sSection As String, _
' ByVal sEntry As String, _
' ByVal sDefault As String, _
' ByVal sBuffer As String, _
' ByVal lBuffer As Long, _
' sFile As String) As Long
Declare Function SQLGetPrivateProfileString Lib "odbccp32.dll" _
(ByVal Section As String, _
ByVal Key As String, _
ByVal Default As String, _
ByVal Buffer As String, _
ByVal BufSize As Integer, _
ByVal Init As String) As Long

Private Declare Function SQLConnect Lib "odbc32.dll" _
(ByVal hDbc As Long, _
ByVal szDSN As String, _
ByVal cbDSN As Integer, _
ByVal szUID As String, _
ByVal cbUID As Integer, _
ByVal szAuthStr As String, _
ByVal cbAuthStr As Integer) As Integer

Private Declare Function SQLDisconnect Lib "odbc32.dll" (ByVal hDbc As Long) As Integer

Private Declare Function SQLFreeConnect Lib "odbc32.dll" (ByVal hDbc As Long) As Integer

Private Declare Function SQLBrowseConnect Lib "odbc32.dll" _
(ByVal hDbc As Long, _
ByVal szConnStrIn As String, _
ByVal cbConnStrIn As Integer, _
ByVal szConnStrOut As String, _
ByVal cbConnStrOutMax As Integer, _
pcbconnstrout As Integer) As Integer

Private Declare Function SQLDrivers Lib "odbc32.dll" _
(ByVal hEnv As Long, _
ByVal fDirection As Integer, _
ByVal szDriverDesc As String, _
ByVal cbDriverDescMax As Integer, _
pcbDriverDesc As Integer, _
ByVal szDriverAttr As String, _
ByVal cbDrvrAttrMax As Integer, _
pcbDrvrAttr As Integer) As Integer

Private Declare Function SQLGetDiagRec Lib "odbc32.dll" ( _
ByVal HandleType As Integer, _
ByVal HandleType As Long, _
ByVal RecNum As Integer, _
ByVal SQLState As String, _
ByRef Errcode As Long, _
ByVal sMsg As String, _
ByVal linMsg As Integer, _
ByRef lMsb As Integer) As Integer

Private Declare Function GetDesktopWindow Lib "user32" () As Long

'Erzeugt eine DSN aus den Angaben: (optional kurzer) Treibername,
' Beschreibung , DSN - Name, AttributString
'Bei Erfolg wird True zurückgegeben. Eine bestehende DSN gleichen Namens wird überschrieben!
'AttributString: Hier handelt sich um variable treiberspezifische Angaben.
' Die einzelnen Attribute müssen durch NullStrings getrennt sein, z.B.:
' strArrib = "SERVER= MeinServer" & Chr(0) & "SERVERDB=MeineDB" & Chr(0) & "UID=Ich"
' Man kann diese Attribute am einfachsten ermitteln, indem man eine Beispiel-DSN erzeugt
' und sich die Einträge in der Registry unter HKEY_CURRENT_USER\SOFTWARE\ODBC\ODBC.INI anschaut
'Wenn Show auf True gesetzt wird, so wird zusätzlich das ODBC-Dialogfenster angezeigt.
'Bsp.:
'CreateDSN "Access", "(nix)", "MeinAccess", "DBQ=d:\datenbanken\meine.mdb" & chr(0) & "UID=sascha")
Public Function CreateDSN(strDriver, _
strDescription As String, _
strDSN As String, _
strAttrib As String, _
Optional Show = False) As Boolean
Dim i As Long

strDriver = GetRealDriverName(strDriver)(0)
If strDriver = "Unbekannt" Then Exit Function
strAttrib = strAttrib & Chr(0) & "DESCRIPTION=" & strDescription & Chr(0)
strAttrib = strAttrib & "DSN=" & strDSN & Chr(0)
If Show Then i = Application.hWndAccessApp Else i = 0&
'If Show Then i = GetDesktopWindow Else i = 0& '...Ersatz, für vorstehende Zeile,
'wenn Code nicht in Access eingesetzt
i = SQLConfigDataSource(i, ODBC_ADD_DSN, strDriver, strAttrib)
CreateDSN = (i 0)
End Function

'Gibt eine Liste aller im System installierten ODBC-Treiber in einem String-Array zurück
'Bsp.: ListODBCDrivers(0) >> "Microsoft Access-Treiber (*.mdb)"
Public Function ListODBCDrivers() As String()
Dim ret As Long
Dim j As Long
Dim hEnv As Long
Dim arrDrv() As String
Dim strDriver As String * 512
Dim strAttrib As String * 512
Dim lDrv As Integer
Dim lAtr As Integer

ret = SQLAllocEnv(hEnv)
Do While ret = SQL_SUCCESS
ret = SQLDrivers(hEnv, SQL_FETCH_NEXT, strDriver, 512, lDrv, strAttrib, 512, lAtr)
If ret SQL_NO_DATA_FOUND Then
ReDim Preserve arrDrv(j)
arrDrv(j) = Left(strDriver, lDrv)
' Debug.Print "D:" & arrDrv(j)
j = j + 1
End If
Loop
ListODBCDrivers = arrDrv
Call SQLFreeEnv(hEnv)

End Function

'Gibt zu einem übergebenen abgekürzten ODBC-Treibernamen eine Liste der kompatiblen
'vollständigen Treibernamen in einem String-Array zurück
'Bsp.: GetRealDriverName("MySQL")(0) >> "MySQL ODBC 3.51"
Public Function GetRealDriverName(strDriverName) As String()
Dim arrDrv() As String, arrResult() As String, i As Long, n As Long, j As Long

arrDrv = ListODBCDrivers
On Error Resume Next
i = UBound(arrDrv)
On Error GoTo 0
For n = 0 To i
If 0 InStr(1, arrDrv(n), strDriverName, vbTextCompare) Then
ReDim Preserve arrResult(j)
arrResult(j) = arrDrv(n)
If arrResult(j) = "" Then arrResult(j) = "Unbekannt"
j = j + 1
End If
Next n
GetRealDriverName = arrResult

End Function

'Überprüft, ob der angegebene ODBC-Treibername auf dem System existiert
'Bsp.: "MySQL" gibt True zurück, wenn ein "MySQL ODBC 2.5"-Treiber vorhanden ist.
'(Teilstring erlaubt; "MySQL ODBC 3.51" würde in diesem Fall ebenso gültig sein.)
Public Function ODBCDriverExists(ByVal strDriverName As String) As Boolean
Dim ret As Long
Dim l As Long
Dim hEnv As Long
Dim strTemp As String
Dim strDriver As String * 512, strAttrib As String * 512
Dim lDrv As Integer, lAtr As Integer

l = Len(strDriverName)
ret = SQLAllocEnv(hEnv)
Do While ret = SQL_SUCCESS
ret = SQLDrivers(hEnv&, SQL_FETCH_NEXT, strDriver, 512, lDrv, strAttrib, 512, lAtr)
If ret SQL_NO_DATA_FOUND Then
strTemp = Left(Trim(Left(strDriver, lDrv)), l)
If StrComp(strTemp, strDriverName, vbTextCompare) = 0 Then
ODBCDriverExists = True
Exit Do
End If
End If
Loop
Call SQLFreeEnv(hEnv)

End Function

'Gibt ein String-Array zurück, das alle DSN-Namen im System enthält,
'die den angegebenen ODBC-Treiber benutzen.
'Bsp.: ListAllDriverDSN("MySQL ODBC 2.5")(0) >> "Meine erste MySQL DSN"
Public Function ListAllDriverDSN(ByVal strDSNDriver As String) As String()
Dim lEnv As Long
Dim arrDSN() As String
Dim strServer As String
Dim strDriver As String
Dim nSvrLen As Integer, nDvrLen As Integer
Dim i As Long, n As Long

If SQLAllocHandle(SQL_HANDLE_ENV, SQL_NULL_HANDLE, lEnv) 0 Then
If SQLSetEnvAttr(lEnv, SQL_ATTR_ODBC_VERSION, SQL_OV_ODBC3, SQL_IS_INTEGER) 0 Then
strServer = String(SQL_MAX_DSN_LENGTH, vbNullChar)
strDriver = String(SQL_MAX_DESC_LENGTH, vbNullChar)
Do While SQLDataSources(lEnv, SQL_FETCH_NEXT, strServer, SQL_MAX_DSN_LENGTH, nSvrLen, _
strDriver, SQL_MAX_DESC_LENGTH, nDvrLen) = SQL_SUCCESS
strServer = Left(strServer, nSvrLen)
strDriver = Left(strDriver, nDvrLen)
'Debug.Print strDriver
If InStr(1, strDSNDriver, strDriver, vbTextCompare) 0 Then
ReDim Preserve arrDSN(n)
arrDSN(UBound(arrDSN)) = strServer
n = n + 1
End If
strServer = String(SQL_MAX_DSN_LENGTH, vbNullChar)
strDriver = String(SQL_MAX_DESC_LENGTH, vbNullChar)
Loop
End If
Call SQLFreeHandle(SQL_HANDLE_ENV, lEnv)
End If
ListAllDriverDSN = arrDSN

End Function

'Testet die DSN. Es wird eine Connection aufgebaut
'Angabe von DSN-Name, Username, Passwort
'Bei Fehler wird eine ODBC-TreiberFehlermeldung zurückgegeben.
'Bsp. CheckDSNConnect("MeinMySQL", "Sascha", " Trowitzsch") >> "Invalid user id and/or password"
Public Function CheckDSNConnect(ByVal strDSN, ByVal strUser As String, ByVal strPW As String) As String
Dim hEnv As Long, hDbc As Long, hStmt As Long
Dim ret As Long
Dim strTemp As String
Dim strMsg As String * 256
Dim lMsg As Integer
Dim strState As String * 5
Dim lError As Long

ret = SQLAllocEnv(hEnv)
ret = SQLAllocConnect(ByVal hEnv, hDbc)
If ret = SQL_SUCCESS Then
ret = SQLConnect(hDbc, ByVal strDSN & vbNullChar, Len(strDSN), _
ByVal strUser & vbNullChar, Len(strUser) + 1, _
ByVal strPW & vbNullChar, Len(strPW) + 1)
If ret 0 Then
strMsg = String(255, vbNullChar)
Call SQLGetDiagRec(SQL_HANDLE_DBC, hDbc, 1, strState, lError, strMsg, 255, lMsg)
Select Case strState
Case "01000"
strTemp = "Allgemeine Treiber-Information"
Case "01S02"
strTemp = "Ein oder mehrere Parameter sind ungültig"
Case "08001"
strTemp = "Es konnte keine Verbindung aufgebaut werden"
Case "08002"
strTemp = "Es konnte keine weitere Verbindung aufgebaut werden"
Case "08004"
strTemp = "Der SQL-Server wies die Verbindungsanfrage zurück (implementation error)"
Case "08S01"
strTemp = "Kommunikationsfehler zwischen Treiber und Datenquelle"
Case "28000"
strTemp = "Ungültige Anmelde- und/oder Kennwortangabe(n)"
Case "HY000"
strTemp = "Unbekannter Fehler"
Case "HY001", "HY013"
strTemp = "Es konnte nicht ausreichend Speicher alloziert werden"
Case "HY090"
strTemp = "Ungültiger Parameter"
Case "HYT00", "HYT01"
strTemp = "Timeout bei Verbindungsversuch"
Case "IM001"
strTemp = "Ein übergebenes Attribut wird vom Treiber nicht unterstützt"
Case "IM002"
strTemp = "ODBC-Datenquelle (DSN) wurde nicht gefunden"
Case "IM003"
strTemp = "Der angegebene ODBC-Treiber wurde nicht gefunden"
Case "IM004", "IM005", "IM006"
strTemp = "ODBC-Treiberfehler"
Case "IM009"
strTemp = "ODBC-Treiber meldet einen DLL-Fehler"
Case "IM010"
strTemp = "Ungültiger DSN-Name. Name zu lang."
Case Else
strTemp = "Unbekannter Fehler"
End Select
CheckDSNConnect = "- " & strTemp & "-" & vbCrLf & _
"ODBC-Subsystem meldet:" & vbCrLf & _
Chr(34) & Left(strMsg, lMsg) & Chr(34)
Else
CheckDSNConnect = "Verbindung zu " & strDSN & " war erfolgreich."
End If
ret = SQLDisconnect(ByVal hDbc)
End If
ret = SQLFreeEnv(ByVal hEnv)
ret = SQLFreeStmt(hStmt, SQL_DROP)

End Function

'Alle ODBC-Datenquellen (DSN) im System auslesen
'ShowAttributes: Wenn True (Vorgabe), dann werden zusätzlich deren Attribute angezeigt
'Ausgabe im Direktfenster!
Public Function GetDSNEntries(Optional ShowAttributes = True)
Dim lEnv As Long
Dim strServer As String, strDriver As String
Dim nSvrLen As Integer, nDvrLen As Integer

SQLAllocHandle SQL_HANDLE_ENV, SQL_NULL_HANDLE, lEnv
If lEnv 0 Then
If SQLSetEnvAttr(lEnv, SQL_ATTR_ODBC_VERSION, SQL_OV_ODBC3, _
SQL_IS_INTEGER) 0 Then
strServer = String(SQL_MAX_DSN_LENGTH, vbNullChar)
strDriver = String(SQL_MAX_DESC_LENGTH, vbNullChar)
Do While SQLDataSources(lEnv, SQL_FETCH_NEXT, strServer, SQL_MAX_DSN_LENGTH, _
nSvrLen, strDriver, SQL_MAX_DESC_LENGTH, nDvrLen) = SQL_SUCCESS
strServer = Left(strServer, nSvrLen)
Debug.Print "DSN: " & strServer
If ShowAttributes Then GetSectionsDSN strServer 'Siehe unten
strServer = String(SQL_MAX_DSN_LENGTH, vbNullChar)
strDriver = String(SQL_MAX_DESC_LENGTH, vbNullChar)
Loop
End If
Call SQLFreeHandle(SQL_HANDLE_ENV, lEnv)
End If
End Function

'Einzelnes Attribut einer ODBC-Datenquelle(DSN) auslesen
Function GetSectionFromDSN(sDSN As String, sSection As String) As String
Dim strBuffer As String
Dim n As Long
Dim ret As Long

ret = SQLSetConfigMode(ODBC_USER_DSN)
If Not CBool(ret) Then
MsgBox "ODBC-Initialisierung gescheitert!"
Else
strBuffer = String$(512, 0)
n = SQLGetPrivateProfileString(sDSN, sSection, "DSN oder Eigenschaft nicht gefunden!", strBuffer, 511, "ODBC.INI")
GetSectionFromDSN = Left(strBuffer, n)
End If

End Function

'Alle Attribute einer ODBC-Datenquelle(DSN) ausgeben
Function GetSectionsDSN(Optional sDSN As String) As String
Dim sSection As String
Dim sResult As String
Dim arrSections() As String
Dim sDefault As String
Dim strBuffer As String
Dim n As Long, i As Long
Dim ret As Long

ret = SQLSetConfigMode(ODBC_BOTH_DSN) 'Oder ODBC_USER_DSN,
' ODBC_SYSTEM_DSN
If Not CBool(ret) Then
MsgBox "ODBC-Initialisierung gescheitert!"
Else
sDefault = "DSN-Eigenschaft nicht gefunden!"
strBuffer = String$(512, 0)
n = SQLGetPrivateProfileString(vbNullString, vbNullString, _
vbNullString, strBuffer, 512, "ODBC.INI")
strBuffer = String$(512, 0)
sSection = vbNullString
'Attribute auslesen (sSection = "")
n = SQLGetPrivateProfileString(sDSN, sSection, "DSN nicht gefunden!", _
strBuffer, 512, "ODBC.INI")
If n = 0 Then Exit Function
sSection = Left(strBuffer, n - 1)
'Attribut-String ist chr(0)-separiert; in Array splitten:
arrSections = Split(sSection, vbNullChar)
'Attributte enumerieren:
For i = 0 To UBound(arrSections)
If Len(arrSections(i)) > 0 Then
strBuffer = String$(512, 0)
n = SQLGetPrivateProfileString(sDSN, arrSections(i), _
sDefault, strBuffer, 512, "ODBC.INI")
sSection = Left(strBuffer, n)
' Debug.Print vbTab & arrSections(i) & " = " & sSection
sResult = sResult & arrSections(i) & " = " & sSection & vbCrLf
End If
Next i
End If

If Len(sResult) > 2 Then GetSectionsDSN = Left(sResult, Len(sResult) - 2)

End Function

'Gibt die Syntax für eine ODBC-Verbindungszeichenfolge zu einem bestimmten Treiber zurück
'Scheint aber nur für den MSSQL zu funktionieren.
Public Function BrowseConnect(Optional strDriver As String = "SQL Server") As String
Dim msg As String
Dim strConnect As String
Dim cbConnect As Integer
Dim strDriverStr As String
Dim hEnv As Long
Dim hStmt As Long
Dim hDbc As Long
Dim ret As Long

ret = SQLAllocEnv(hEnv)
If hEnv = 0 Then Exit Function

ret = SQLAllocConnect(ByVal hEnv, hDbc)
If hDbc = 0 Then
SQLFreeEnv hEnv
Exit Function
End If

strDriverStr = "DRIVER=" & GetRealDriverName(strDriver)(0)
' strDriverStr = "DRIVER={" & GetRealDriverName(strDriver)(0) & "};"
Debug.Print strDriverStr

strConnect = String(1024, 0)
ret = SQLBrowseConnect(ByVal hDbc, strDriverStr, _
Len(strDriverStr), strConnect, 1024, cbConnect)
strConnect = String$(cbConnect + 2, vbNullChar)
If ret = -1 Then Debug.Print "Error for DSN/DRIVER name"
If ret = SQL_NEED_DATA Then
Do While SQLBrowseConnect(ByVal hDbc, strDriverStr, SQL_NTS, strConnect, Len(strConnect) + 2, cbConnect) = SQL_NEED_DATA
Debug.Print strConnect
'strDriver = Replace(strDriver,...") & vbNullChar
Exit Do
Loop
End If
ret = SQLDisconnect(hDbc)
ret = SQLFreeConnect(hDbc)
SQLFreeEnv hEnv

End Function

'Einzelne Eigenschaft einer existierenden DSN setzen (bzw. überschreiben)
Sub SetSectionToDSN(sDSN As String, sSection As String, sEntry As String)
Dim strBuffer As String
Dim n As Long
Dim ret As Long

ret = SQLSetConfigMode(ODBC_USER_DSN)
If Not CBool(ret) Then
MsgBox "ODBC-Initialisierung gescheitert!"
Else
strBuffer = String$(512, 0)
n = SQLWritePrivateProfileString(sDSN, sSection, sEntry, "ODBC.INI")
If n = 0 Then MsgBox "Setzen der Eigenschaft war nicht erfolgreich", vbCritical, "Fehler"
End If

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

Ciao, Sascha

User · 25. Januar 2003

Spppiitttzzzeee.. ... Danke Dir Sascha,

das ist genau das was ich brauche (...und noch ein wenig mehr ) *tongue.gif* *tongue.gif*

....Gruss,
Neils

strausto · 11. Oktober 2004

Hi Sascha!

Ich habe versucht eine ODBC User DSN mit Deinem Code anzulegen:

Code:

? CreateDSN("SQL","DMS","FileManager_be","Server=bp1bocap028\prod1",true)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das funktioniert nur leider kann ich nicht wie in der Regedit zu sehen den Wert LastUser setzen.
Code:

? CreateDSN("SQL","DMS","FileManager_be","Server=bp1bocap028\prod1" & chr(0) & "LastUser=aralcard",true)
Falsch
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Was mache ich falsch??

Danke!

Sascha Trowitzsch · 11. Oktober 2004

Mangels installiertem SQL-Server kann ich das leider nicht überprüfen.
Jedenfalls gibt die Funktion True zurück, wenn sie grundsätzlich die DSN anlegen, also den Treiber ansprechen kann.
Auch dann, wenn einer der Attribute nicht stimmt.
Ich hab mal mit verschiedenen DBMS und DSNs rumgespielt: Attribute, die der Treiber nicht kennt, werden einfach ignoriert, der Rest wird in der DSN angelegt.
Somit vermute ich mal, dass der SQL-Server-Treiber das Attribut LastUser nicht kennt. (Kann man das auch manuell im ODBC-Dialog einstellen?)

Gruß, Sascha

strausto · 12. Oktober 2004

(Kann man das auch manuell im ODBC-Dialog einstellen?)

Ja! Und ist hier leider auch erforderlich!

Reicht es nicht im entsprechenden Root die Werte zu setzen??

Sascha Trowitzsch · 12. Oktober 2004

Tja, keine Ahnung, warum er das Attribut nicht will...
Aber mit dem Code in http://ms-office-forum.net/forum/sho...91&postcount=4 kannst du beliebige Keys für eine DSN zusätzlich setzen bzw. verändern, egal, ob die für den Treiber Sinn machen oder nicht. Also:

SetSectionToDSN "FileManager_be", "LastUser", "aralcard"

Ciao, Sascha

strausto · 13. Oktober 2004

Danke!!!!

Das funktioniert einwandfrei!!!!

Office: Odbc per VBA

Odbc per VBA

Odbc per VBA

Odbc per VBA

Odbc per VBA

Odbc per VBA - Similar Threads - Odbc VBA

VBA Code für Connectionstring (ODBC 8.0 Driver)

ODBC Verbindung zu Oracle DB aus VBA

MS-SQL Tabelle per ODBC mit VBA verknüpfen

ODBC SQL SERVER Verbindung per VBA erstellen

SQL Server Tabelle via ODBC und VBA verknüpfen

ID aus SQL Recordset ermitteln - Geänderter Treiber?

SQL ODBC String für VBA Verbindung