Visualizzazione dei risultati da 1 a 3 su 3
  1. #1
    Utente di HTML.it L'avatar di Scream
    Registrato dal
    Apr 2002
    Messaggi
    228

    global.asa e connessione al DB

    Ciao a tutti avevo una pagina form.asp in questo modo:

    codice:
    Dim strConnessione
    strConnessione = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/path/database.mdb")
    
    Set Rs= Server.CreateObject("ADODB.Recordset")
    Rs.ActiveConnection = strConnessione
    Rs.Source = "SELECT * FROM tabella"
    Rs.CursorType = 0
    Rs.CursorLocation = 2
    Rs.LockType = 3
    Rs.Open()
    'istruzioni
    Rs.Close
    set Rs = Nothing
    set strConnessione = Nothing
    Ovviamente l'istruzione era poi simile anche nella pagina di raccolta dati ecc...

    Il problema si è verificato quando ho dovuto creare il global.asa con all'interno la connessione al DB per modificare automaticamente alcuni campi.
    Poichè c'era una connessione all'interno del global.asa ho pensato di eliminarla dalla pagina form.asp (e l'avrei fatto anche sulle altre) Ora ho il file global.asa in questo modo:
    codice:
    <SCRIPT RUNAT=Server Language=VBScript>
    Sub Application_OnStart
    Dim strConnessione
    strConnessione= "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/path/database.mdb")
    End Sub
    
    Sub Session_OnStart
    
    Set RsNew= Server.CreateObject("ADODB.Recordset")
    RsNew.ActiveConnection = strConnessione
    RsNew.Source = "SELECT * FROM tabella_1"
    RsNew.CursorType = 0
    RsNew.CursorLocation = 2
    RsNew.LockType = 3
    RsNew.Open()
    
    'operazioni sui record
    
    RsNew.Close
    set RsNew= Nothing
    
    End Sub
    
    Sub Application_OnEnd
    strConnessione.Close
    set strConnessione= Nothing
    End Sub
    </SCRIPT>
    e la form in questo:
    codice:
    Set Rs= Server.CreateObject("ADODB.Recordset")
    Rs.ActiveConnection = strConnessione
    Rs.Source = "SELECT * FROM tabella"
    Rs.CursorType = 0
    Rs.CursorLocation = 2
    Rs.LockType = 3
    Rs.Open()
    'istruzioni
    Rs.Close
    set Rs = Nothing
    Chi mi aiuta a capire dove sbaglio?

  2. #2
    ma non si deve fare:

    codice:
    Application("strConnessione")="..."
    e richiamare application("strConnessione") nelle pagine e non la var strConnessione?


  3. #3
    Utente di HTML.it L'avatar di Scream
    Registrato dal
    Apr 2002
    Messaggi
    228
    Ok ora funziona... grazie!

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.