Connexion a une base access en asp.

Signaler
Messages postés
85
Date d'inscription
jeudi 10 juin 2004
Statut
Membre
Dernière intervention
4 juillet 2006
-
Messages postés
28
Date d'inscription
dimanche 14 septembre 2003
Statut
Membre
Dernière intervention
4 juillet 2010
-
bonjour,

je suis debutant en asp, et je cherhce a realiser une connexion a un BD access. Je voulias savoir si il etait possible d'acitver la connection dans le application start et de ne pas avoir a le redeclarer ailleurs ?
par ex : pour le global.asa

sub Application_OnStart
Session("started")=now()
connectionBD
end sub


sub connectionBD
'-------déclaration de la base------------------------------
DSN_BASE = "DBQ=" & Server.Mappath("BD/mirroir_bd_mobile.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};Driverld=25"
'-------création de la connection et du recordset-----------
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open DSN_BASE
Set Rs = Server.CreateObject("ADODB.Recordset")
end sub

j'ai entendu de plus que le Application_ on end ne marchait pas , est ce tjrs vrai ?
pour finir, si la 1ere partie de ma question est gérable, que dois je rajouter pour pouvoir effectuer une requete dans une autre page ?

pour le moment jai :

login=Request.Form("login")
password=Request.Form("pass")
'-------définition et exécution de la requête---------------
RequeteSQL = "Select Firstname,Lastname,right From user_right (login, password, Firstname, Lastname, right) where login="& user &" and password="& password &""
RsLot.Open RequeteSQL , Conn

merci d'avance :)

1 réponse

Messages postés
28
Date d'inscription
dimanche 14 septembre 2003
Statut
Membre
Dernière intervention
4 juillet 2010

Salut,

Tu peux essayer cela (je ne suis pas sur que cela fonctionne) :

sub Application_OnStart

' Lock l'application
Application.Lock

'-------déclaration de la base------------------------------
DSN_BASE = "DBQ=" & Server.Mappath("BD/mirroir_bd_mobile.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};Driverld=25"
'-------création de la connection et du recordset-----------

' Création de l'objet de connexion
Set Conn = Server.CreateObject("ADODB.Connection")
Application("MaConnexion") = Conn

' Ouverture de la connexion
Application("MaConnexion").Open DSN_BASE

' Création d'un RecordSet
Set Rs = Server.CreateObject("ADODB.Recordset")
Application("MonRS") = Rs

' dé-Lock l'application
Application.UnLock

end sub

sub Application_OnStop

' Lock l'application
Application.Lock

' Suppression du RS
Set Application("MonRS") = Nothing

' Fermeture de la connexion
Application("MaConnexion").Close

' Suppression du RS
Set Application("MaConnexion") = Nothing

' dé-Lock l'application
Application.UnLock

end sub

A+

Walter