DSN Datenbankverbindung Pfadlänge
Verfasst: 17.10.2013 05:23
Hallo zusammen
Ich haben das Problem,das ab einer Pfad-Länge zur Datenbank von mehr als 148 Zeichen keine Datenbankverbindung mehr möglich ist.
Bekomme dann bei OpenDatabase() die DatabaseError()-Fehlermeldung:
'Allgemeiner Fehler Nicht genügend Information, um zu dieser DSN mit SQLConnect eine Verbindung herzustellen. SQLDriverConnect verwenden?'
Weiß da jemand Rat?
Ich haben das Problem,das ab einer Pfad-Länge zur Datenbank von mehr als 148 Zeichen keine Datenbankverbindung mehr möglich ist.
Bekomme dann bei OpenDatabase() die DatabaseError()-Fehlermeldung:
'Allgemeiner Fehler Nicht genügend Information, um zu dieser DSN mit SQLConnect eine Verbindung herzustellen. SQLDriverConnect verwenden?'
Weiß da jemand Rat?
Code: Alles auswählen
UseODBCDatabase()
#Datenbank = 0
#ODBC_ADD_DSN = 1
#ODBC_REMOVE_DSN = 3
Define Databasename.s
Define strDriver.s
Define strAttributes.s
Define result.i
Define Base.s = "Test"
Define Passwort.s = "MeinPasswort"
Define UserID.s = "MeineUserID"
Databasename = OpenFileRequester("Datenbank","","Access (*.mdb)|*.mdb",0)
strDriver = "Microsoft Access Driver (*.mdb)"
strAttributes = "Server=APServer;Description=TestDSN"
strAttributes + ";DSN=" + Base
strAttributes + ";DBQ=" + databasename
strAttributes + ";UID=" + UserID
strAttributes + ";PWD=" + Passwort + ";"
result = SQLConfigDataSource_(0, #ODBC_ADD_DSN, strDriver, strAttributes)
Debug result
If OpenDatabase(#Datenbank,Base,UserID,Passwort)
MessageRequester("OK " + Str(Len(Databasename)),"Datenbank geöffnet")
CloseDatabase(#Datenbank)
Else
MessageRequester("FAIL " + Str(Len(Databasename)),DatabaseError())
EndIf
strAttributes = "DSN=" + Base
result = SQLConfigDataSource_(0, #ODBC_REMOVE_DSN, strDriver, strAttributes)
Debug result