Probleme de connexionRésolu

Question

bonjour. j ai un gros probleme et je ne sais pas vraiment ce qui se passe.

alors voila la situation. je suis sur un Intranet. la BDD est sur un serveur et je suis sur un Ordi Client.

la base de donn&#233;es est une base ACCESS. je suis en ASP.

le probleme est : Si je rafraichis une page qui lit dans la base, la premi&#232;re lecture fonctionne mais pas la 2eme. il faut toujours attendre genre 30s - 1 min. A ce moment la et je fais de nouveau F5 et ca marche mais si je reactualise, je suis de nouvo oblig&#233; d attendre et ainsi de suite ....

HELP !!!!!!!!!!!!!!

voila mon code :

config.asp

<%


dim Condbstr
dim Conn1
dim userSet


AdresseBDD = "c:/Inetpub/wwwroot/Qualite/qualite/mdb/BDD_Planning.mdb"
AdresseEXCEL = "c:/Inetpub/wwwroot/Qualite/qualite/mdb/Planning.xls"


'*********************************************************************


sub connectBase(ReketSQL)
 
 on error resume next
 
 Set Conn1 = Server.CreateObject("ADODB.Connection")
 Condbstr = "DRIVER={Microsoft Access Driver (*.mdb)};" & "DBQ=" & AdresseBDD
 Conn1.open Condbstr
 
 set userSet = Conn1.Execute(ReketSQL)


end sub

sub DeconnecteBase()


 on error resume next


 Conn1.close
 set Conn1=Nothing


end sub
%>

---------------------------------------------------------------------------------

DETAIL.AS

sur cette page, il y a ca :

connectBase("SELECT Preparation , Deploiement FROM TablePlanning WHERE NomTache='"&NomTache&"' AND NumPrecedent="&NumPrece&"")

SVP, aidez moi

lilo44 · Accepted Answer

bon ca y&#233; j ai trouv&#233; apr&#232;s 2 jours de recherche 

il manquait le fichier GLOBAL Asa a la racine !!!

je sais pas a quoi il sert mais ca marche

lilo44 · Answer

j ai enlev&#233; les ON ERROR RESUME NEXT pour avoir l erreur et j ai ca :


Provider erreur '80004005' 
Erreur non sp&#233;cifi&#233;e 
/Planning/config.asp, ligne 28 

correspondant a la ligne

sub connectBase(ReketSQL)
 
 'on error resume next
 
 Set Conn1 = Server.CreateObject("ADODB.Connection")
 Condbstr = "DRIVER={Microsoft Access Driver (*.mdb)};" & "DBQ=" & AdresseBDD
 ==>> Conn1.open Condbstr
 
 set userSet = Conn1.Execute(ReketSQL)


end sub

Probleme de connexion

2 réponses

Votre réponse

Discussions similaires