Connexion à une base de données

Signaler
Messages postés
4
Date d'inscription
vendredi 7 février 2003
Statut
Membre
Dernière intervention
30 avril 2003
-
Messages postés
4
Date d'inscription
vendredi 7 février 2003
Statut
Membre
Dernière intervention
30 avril 2003
-
Bonjour

Je code un fichier .vbs que j'execute avec wscript dans une console DOS.
Dans ce fichier je cherche à faire une connection à une base de données.
Voici la fonction que j'utilise

Function DB_Connexion()
Dim LObj_Conn
Dim strDBConnectionString
strDBConnectionString
"ProviderMicrosoft.Jet.OLEDB.4.0;Data Source=C:\test\Base_eVisio.mdb"
' Connexion a la base de donnee
on error resume next
set LObj_Conn = Server.CreateObject("ADODB.Connection")
'LObj_Conn.Open Application("strDBConnectionString")
LObj_Conn.Open strDBConnectionString

' gestion de l'erreur
if Err.number <> 0 then
Trace "Probleme de connexion a la base du service :
" & Err.Description, "DB_Connexion", KI_TraceEcran
end if
On error goto 0

set DB_Connexion = LObj_Conn
End Function

Quand je fais appel à cette fonction dans mon fichier .vbs, j'ai l'erreur suivante : 424 objet requis: 'LOjb_Conn'

Si quelqu'un a une idée, je suis preneur
Merci

2 réponses

Messages postés
404
Date d'inscription
mardi 18 décembre 2001
Statut
Membre
Dernière intervention
15 juillet 2014
20
il faut remplcer la ligne
set LObj_Conn = Server.CreateObject("ADODB.Connection")
par set LObj_Conn = CreateObject("ADODB.Connection")

en effet server. est un object ASP et n'a plus lieu en vbscript
Messages postés
4
Date d'inscription
vendredi 7 février 2003
Statut
Membre
Dernière intervention
30 avril 2003

Je te remercie pour l'information.
C'est nickel, je me connecte bien à la base maintenant.
Merci encore
A+
Gildas