errore di connessione ole db

[fazius]

Di sicuro c'è un errore di connessione le ho provate tutte mi aiutate?
grazie


Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Microsoft Access Driver] '(unknown)' is not a valid path. Make sure that the path name is spelled correctly and that you are connected to the server on which the file resides.

/calendario/calendar_v1.asp, line 104

questa sotto è la riga incriminata

' Open the RecordSet with a static cursor. This cursor provides bi-directional navigation
Rs.Open sSQL, sDSN, adOpenStatic, adLockReadOnly, adCmdText

qui c'è il file della connessione dove penso sia l'errore


Dim sDB, sPath, sDSNDir, sDSNFil, sDefDir, sDSN, sScriptDir

' This is the entire DB path - Physical with respect to root physical path
sDB ="/mdb-database/calendario.mdb"

'----------------------------------------------------
' DO NOT Edit the entries below
'----------------------------------------------------

' Retrieve the script directory
sScriptDir = Request.ServerVariables("SCRIPT_NAME")
sScriptDir = StrReverse(sScriptDir)
sScriptDir = Mid(sScriptDir, InStr(1, sScriptDir, "/"))
sScriptDir = StrReverse(sScriptDir)

' Set the virtual Directory
sPath = Server.MapPath(sScriptDir) & "\"

' This is the DSN file Name for Access database
sDSNFil = "Access.dsn"

' This is the resulting DSN string
sDSN = "filedsn=" & sPath & sDSNFil & ";DefaultDir=" & sPath & ";DBQ=" & sPath & sDB & ";"

'----------------------------------------------------

[Roby_72]

Dovresti remmare la riga del DSN se non l'hai creato.
Usa sDB per connetterti.

Roby

[fazius]

Scusa ma non capisco, (per colpa mia chiaro) il file dsn è quello che ho postato in basso e non capisco "Usa sDB per connetterti." ho dimenticato di dire che i file sono in una cartella nella root e il database nella solita cartella di aruba sarà per quello che non si connette?

[fazius]

scusate questo è il file dsn (abbiate pazienza dopo un po ci arrivo....)

[ODBC]
DRIVER=Microsoft Access Driver (*.mdb)
UID=admin
ReadOnly=0
UserCommitSync=Yes
Threads=3
SafeTransactions=0
PageTimeout=5
MaxScanRows=8
MaxBufferSize=512
ImplicitCommitSync=Yes
FIL=MS Access
DriverId=25

[Mems]

Per connettersi ad un banale database MS Access, ovvero accedere direttamente al file .mdb, basta scrivere:

set oggettoConnessione = server.createObject("ADODB.Connection")
oggettoConnessione.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.mapPath("\cartella-database\file-database.mdb")

'oppure
oggettoConnessione.open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mapPath("\cartella-database\file-database.mdb")

Dopo server.mapPath, tra parentesi e doppi apici, ci va il path del db così come lo scriveresti nella barra degli indirizzi per "scaricare" il db, senza, ovviamente, il blocco http://localhost o http://www.nomesito.it
Ciao.

[fazius]

grazie mems ma dove va scritta questa stringa?

[Mems]

Da qualche parte dovresti avere:

set qualcosa = server.createObject("ADODB.Connection")
qualcosa.open eccetera...

[fazius]

l'unico set qualcosa è qui non puoi darci un'occhiata? ed essere piu preciso?
grazie per l'aiuto

Dim sDB, sPath, sDSNDir, sDSNFil, sDefDir, sDSN, sScriptDir

' This is the entire DB path - Physical with respect to root physical path
sDB ="/mdb-database/calendario.mdb"

'----------------------------------------------------
' DO NOT Edit the entries below
'----------------------------------------------------

' Retrieve the script directory
sScriptDir = Request.ServerVariables("SCRIPT_NAME")
sScriptDir = StrReverse(sScriptDir)
sScriptDir = Mid(sScriptDir, InStr(1, sScriptDir, "/"))
sScriptDir = StrReverse(sScriptDir)

' Set the virtual Directory
sPath = Server.MapPath(sScriptDir) & "\"

' This is the DSN file Name for Access database
sDSNFil = "Access.dsn"

' This is the resulting DSN string
sDSN = "filedsn=" & sPath & sDSNFil & ";DefaultDir=" & sPath & ";DBQ=" & sPath & sDB & ";"

'----------------------------------------------------

[Mems]

Chiedi supporto all'autore di quel codice.

[fazius]

come dire mi frego??