Pagina 1 di 2 1 2 ultimoultimo
Visualizzazione dei risultati da 1 a 10 su 13

Discussione: collegamento db

  1. #1

    collegamento db

    Salve,

    purtroppo non riesco propio a risolvere questo problema, quindi mi affido a voi, sprando che qualcuno riesca a darmi una mano.

    nell'homepage del mio sito utilizzo un semplice script di news che accede ad un db access chiamato database.mdb. Quando nello script però vado a d invocare il suo percorso, ricevo questo errore:

    Microsoft OLE DB Provider for ODBC Drivers error '80004005'

    [Microsoft][Driver ODBC Microsoft Access]Errore generale. Impossibile aprire la chiave 'Temporary (volatile) Jet DSN for process 0xbe4 Thread 0xe58 DBC 0xbb68f2c Jet' del Registro di sistema.

    /Default.asp, line 55

    che fa riferimento a questa parte di codice:


    <%
    ' PERCORSO DEL DATABASE
    url_DB = "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("/db/database.mdb")

    Set Conn = Server.CreateObject("ADODB.Connection")
    conn.Open url_DB

    Set RecSet = Server.CreateObject("ADODB.Recordset")

    ' PRELEVA GLI ULTIMI 10 NEWS DAL DATABASE (SE SONO PRESENTI)
    SQL = "SELECT TOP 10 * FROM NEWS ORDER BY ID DESC"
    RecSet.Open SQL, Conn, adOpenStatic, adLockOptimistic

    ' CONTROLLA SE SONO PRESENTI NEWS NEL DB
    If RecSet.Eof = False Then
    %>

    qualcuno riuscirebbe ad aiutarmi???

  2. #2
    prova ad aprire il record così

    RecSet.Open SQL, Conn

    ma in adovbs.inc cosa c'è?

  3. #3
    questo è il contenuto di adovbs.inc

    <%
    '--------------------------------------------------------------------
    ' Microsoft ADO
    '
    ' (c) 1996 Microsoft Corporation. All Rights Reserved.
    '
    '
    '
    ' ADO constants include file for VBScript
    '
    '--------------------------------------------------------------------

    '---- CursorTypeEnum Values ----
    Const adOpenForwardOnly = 0
    Const adOpenKeyset = 1
    Const adOpenDynamic = 2
    Const adOpenStatic = 3

    '---- CursorOptionEnum Values ----
    Const adHoldRecords = &H00000100
    Const adMovePrevious = &H00000200
    Const adAddNew = &H01000400
    Const adDelete = &H01000800
    Const adUpdate = &H01008000
    Const adBookmark = &H00002000
    Const adApproxPosition = &H00004000
    Const adUpdateBatch = &H00010000
    Const adResync = &H00020000
    Const adNotify = &H00040000

    '---- LockTypeEnum Values ----
    Const adLockReadOnly = 1
    Const adLockPessimistic = 2
    Const adLockOptimistic = 3
    Const adLockBatchOptimistic = 4

    '---- ExecuteOptionEnum Values ----
    Const adRunAsync = &H00000010

    '---- ObjectStateEnum Values ----
    Const adStateClosed = &H00000000
    Const adStateOpen = &H00000001
    Const adStateConnecting = &H00000002
    Const adStateExecuting = &H00000004

    '---- CursorLocationEnum Values ----
    Const adUseServer = 2
    Const adUseClient = 3

    '---- DataTypeEnum Values ----
    Const adEmpty = 0
    Const adTinyInt = 16
    Const adSmallInt = 2
    Const adInteger = 3
    Const adBigInt = 20
    Const adUnsignedTinyInt = 17
    Const adUnsignedSmallInt = 18
    Const adUnsignedInt = 19
    Const adUnsignedBigInt = 21
    Const adSingle = 4
    Const adDouble = 5
    Const adCurrency = 6
    Const adDecimal = 14
    Const adNumeric = 131
    Const adBoolean = 11
    Const adError = 10
    Const adUserDefined = 132
    Const adVariant = 12
    Const adIDispatch = 9
    Const adIUnknown = 13
    Const adGUID = 72
    Const adDate = 7
    Const adDBDate = 133
    Const adDBTime = 134
    Const adDBTimeStamp = 135
    Const adBSTR = 8
    Const adChar = 129
    Const adVarChar = 200
    Const adLongVarChar = 201
    Const adWChar = 130
    Const adVarWChar = 202
    Const adLongVarWChar = 203
    Const adBinary = 128
    Const adVarBinary = 204
    Const adLongVarBinary = 205

    '---- FieldAttributeEnum Values ----
    Const adFldMayDefer = &H00000002
    Const adFldUpdatable = &H00000004
    Const adFldUnknownUpdatable = &H00000008
    Const adFldFixed = &H00000010
    Const adFldIsNullable = &H00000020
    Const adFldMayBeNull = &H00000040
    Const adFldLong = &H00000080
    Const adFldRowID = &H00000100
    Const adFldRowVersion = &H00000200
    Const adFldCacheDeferred = &H00001000

    '---- EditModeEnum Values ----
    Const adEditNone = &H0000
    Const adEditInProgress = &H0001
    Const adEditAdd = &H0002
    Const adEditDelete = &H0004

    '---- RecordStatusEnum Values ----
    Const adRecOK = &H0000000
    Const adRecNew = &H0000001
    Const adRecModified = &H0000002
    Const adRecDeleted = &H0000004
    Const adRecUnmodified = &H0000008
    Const adRecInvalid = &H0000010
    Const adRecMultipleChanges = &H0000040
    Const adRecPendingChanges = &H0000080
    Const adRecCanceled = &H0000100
    Const adRecCantRelease = &H0000400
    Const adRecConcurrencyViolation = &H0000800
    Const adRecIntegrityViolation = &H0001000
    Const adRecMaxChangesExceeded = &H0002000
    Const adRecObjectOpen = &H0004000
    Const adRecOutOfMemory = &H0008000
    Const adRecPermissionDenied = &H0010000
    Const adRecSchemaViolation = &H0020000
    Const adRecDBDeleted = &H0040000

    '---- GetRowsOptionEnum Values ----
    Const adGetRowsRest = -1

    '---- PositionEnum Values ----
    Const adPosUnknown = -1
    Const adPosBOF = -2
    Const adPosEOF = -3

    '---- enum Values ----
    Const adBookmarkCurrent = 0
    Const adBookmarkFirst = 1
    Const adBookmarkLast = 2

    '---- MarshalOptionsEnum Values ----
    Const adMarshalAll = 0
    Const adMarshalModifiedOnly = 1

    '---- AffectEnum Values ----
    Const adAffectCurrent = 1
    Const adAffectGroup = 2
    Const adAffectAll = 3

    '---- FilterGroupEnum Values ----
    Const adFilterNone = 0
    Const adFilterPendingRecords = 1
    Const adFilterAffectedRecords = 2
    Const adFilterFetchedRecords = 3
    Const adFilterPredicate = 4

    '---- SearchDirection Values ----
    Const adSearchForward = 1
    Const adSearchBackward = -1

    '---- ConnectPromptEnum Values ----
    Const adPromptAlways = 1
    Const adPromptComplete = 2
    Const adPromptCompleteRequired = 3
    Const adPromptNever = 4

    '---- ConnectModeEnum Values ----
    Const adModeUnknown = 0
    Const adModeRead = 1
    Const adModeWrite = 2
    Const adModeReadWrite = 3
    Const adModeShareDenyRead = 4
    Const adModeShareDenyWrite = 8
    Const adModeShareExclusive = &Hc
    Const adModeShareDenyNone = &H10

    '---- IsolationLevelEnum Values ----
    Const adXactUnspecified = &Hffffffff
    Const adXactChaos = &H00000010
    Const adXactReadUncommitted = &H00000100
    Const adXactBrowse = &H00000100
    Const adXactCursorStability = &H00001000
    Const adXactReadCommitted = &H00001000
    Const adXactRepeatableRead = &H00010000
    Const adXactSerializable = &H00100000
    Const adXactIsolated = &H00100000

    '---- XactAttributeEnum Values ----
    Const adXactCommitRetaining = &H00020000
    Const adXactAbortRetaining = &H00040000

    '---- PropertyAttributesEnum Values ----
    Const adPropNotSupported = &H0000
    Const adPropRequired = &H0001
    Const adPropOptional = &H0002
    Const adPropRead = &H0200
    Const adPropWrite = &H0400

    '---- ErrorValueEnum Values ----
    Const adErrInvalidArgument = &Hbb9
    Const adErrNoCurrentRecord = &Hbcd
    Const adErrIllegalOperation = &Hc93
    Const adErrInTransaction = &Hcae
    Const adErrFeatureNotAvailable = &Hcb3
    Const adErrItemNotFound = &Hcc1
    Const adErrObjectInCollection = &Hd27
    Const adErrObjectNotSet = &Hd5c
    Const adErrDataConversion = &Hd5d
    Const adErrObjectClosed = &He78
    Const adErrObjectOpen = &He79
    Const adErrProviderNotFound = &He7a
    Const adErrBoundToCommand = &He7b
    Const adErrInvalidParamInfo = &He7c
    Const adErrInvalidConnection = &He7d
    Const adErrStillExecuting = &He7f
    Const adErrStillConnecting = &He81

    '---- ParameterAttributesEnum Values ----
    Const adParamSigned = &H0010
    Const adParamNullable = &H0040
    Const adParamLong = &H0080

    '---- ParameterDirectionEnum Values ----
    Const adParamUnknown = &H0000
    Const adParamInput = &H0001
    Const adParamOutput = &H0002
    Const adParamInputOutput = &H0003
    Const adParamReturnValue = &H0004

    '---- CommandTypeEnum Values ----
    Const adCmdUnknown = &H0008
    Const adCmdText = &H0001
    Const adCmdTable = &H0002
    Const adCmdStoredProc = &H0004

    '---- SchemaEnum Values ----
    Const adSchemaProviderSpecific = -1
    Const adSchemaAsserts = 0
    Const adSchemaCatalogs = 1
    Const adSchemaCharacterSets = 2
    Const adSchemaCollations = 3
    Const adSchemaColumns = 4
    Const adSchemaCheckConstraints = 5
    Const adSchemaConstraintColumnUsage = 6
    Const adSchemaConstraintTableUsage = 7
    Const adSchemaKeyColumnUsage = 8
    Const adSchemaReferentialContraints = 9
    Const adSchemaTableConstraints = 10
    Const adSchemaColumnsDomainUsage = 11
    Const adSchemaIndexes = 12
    Const adSchemaColumnPrivileges = 13
    Const adSchemaTablePrivileges = 14
    Const adSchemaUsagePrivileges = 15
    Const adSchemaProcedures = 16
    Const adSchemaSchemata = 17
    Const adSchemaSQLLanguages = 18
    Const adSchemaStatistics = 19
    Const adSchemaTables = 20
    Const adSchemaTranslations = 21
    Const adSchemaProviderTypes = 22
    Const adSchemaViews = 23
    Const adSchemaViewColumnUsage = 24
    Const adSchemaViewTableUsage = 25
    Const adSchemaProcedureParameters = 26
    Const adSchemaForeignKeys = 27
    Const adSchemaPrimaryKeys = 28
    Const adSchemaProcedureColumns = 29
    %>

  4. #4
    scrivila così, e cancella qeul fil edi inclusione

    codice:
    ' PRELEVA GLI ULTIMI 10 NEWS DAL DATABASE (SE SONO PRESENTI)
    SQL = "SELECT TOP 10 * FROM NEWS ORDER BY ID DESC"
    RecSet.Open SQL, Conn, 1, 2
    
    ' CONTROLLA SE SONO PRESENTI NEWS NEL DB
    If Not RecSet.Eof Then

  5. #5
    se lo scrivo così:

    codice:
    <%
    ' PERCORSO DEL DATABASE 
    url_DB = "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("/db/database.mdb")
    
    Set Conn = Server.CreateObject("ADODB.Connection") 
    conn.Open url_DB
    
    Set RecSet = Server.CreateObject("ADODB.Recordset")
    
    ' PRELEVA GLI ULTIMI 10 NEWS DAL DATABASE (SE SONO PRESENTI)
    SQL = "SELECT TOP 10 * FROM NEWS ORDER BY ID DESC"
    RecSet.Open SQL, Conn, 1, 2
    
    ' CONTROLLA SE SONO PRESENTI NEWS NEL DB
    If RecSet.Eof Then
    %>
    ho questo errore:

    codice:
    Microsoft OLE DB Provider for ODBC Drivers error '80004005'
    
    [Microsoft][Driver ODBC Microsoft Access]Errore generale. Impossibile aprire la chiave 'Temporary (volatile) Jet DSN for process 0xbe4 Thread 0xe58 DBC 0xbb68f2c Jet' del Registro di sistema.
    
    /Default.asp, line 54
    stranissima sta cosa... Tralatro il servizio tecnico del manteiner mi consiglia di mettere il percorso come:

    codice:
    c:\domains\audaxvolley.it\db\database.mdb

  6. #6
    lo stai provando in locale?
    se si chiudi il database e riprova

  7. #7
    no, stò provando da remoto...

  8. #8
    a cosa corrisponde la linea 54 dove ti da l'errore?

  9. #9
    codice:
    Set Conn = Server.CreateObject("ADODB.Connection")

  10. #10
    WoW... sai ke nn ho mai avuto nessun tipo di errore sulla creazione di quell'oggetto?... prova a reinserire l'include senza toccare altro

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.