connexion à une base de données

Question

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:	est\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

shaiulud · Answer

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

bigorne · Answer

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

Connexion à une base de données

2 réponses

Votre réponse

Discussions similaires