Discussion :

[christel1982]

bonjour,

j'essai de me connecter sur sql Serveur 2000 a partir de mon pc en ASP

J'utilise un serveur web local IIS

j'ai une erreur:

Set conn = Server.CreateObject("ADODB.Connection")

conn.Open "Provider=sqloledb;" & _
"Data Source=SV004\FDS;" & _
"Initial Catalog=REC_WEB;" & _
"User Id=sa;" & _
"Password=mdp"

Dim objconn = Server.CreateObject("ADODB.Connection")
Set objrs =Server.CreateObject("ADODB.Recorset")
objconn.Open "DIPLOME", objconn

While Not objrs.EOF
strOut=objrs("dip_intitule") & ":" & objrs("dip_libelle")
srtOut=strOut & " " & objrs("dip_intitule")
Responsa.Write Server.HTMLEncode(strOut) & "<br>"
objrs.MoveNext
Wend

if objrs.RecordCount=0 then
Response.Write "il n y a pas d'enreg"
end if

Type d'erreur :
Erreur de compilation Microsoft VBScript (0x800A0401)
Fin d'instruction attendue
/rtm/Default.asp, line 25, column 12
Dim objconn = Server.CreateObject("ADODB.Connection")
-----------^

Est ce que ca peut venir de droit d'accès ? d'utilisateur? ou ca a rien a voir

[Immobilis]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim Mavariable

doit rester seul

Dim objconn
Set objconn = Server.CreateObject("ADODB.Connection")

[christel1982]

Dim objconn
Set objconn = Server.CreateObject("ADODB.Connection")
' chaine de connexion


objconn.Open "Provider=sqloledb;" & _
"Data Source=SV004\FDS;" & _
"Initial Catalog=REC_WEB;" & _
"User Id=sa;" & _
"Password=mdp"

Set objrs =Server.CreateObject("ADODB.Recorset")
objconn.Open "DIPLOME", objconn

While Not objrs.EOF
strOut=objrs("dip_intitule") & ":" & objrs("dip_libelle")
srtOut=strOut & " " & objrs("dip_intitule")
Responsa.Write Server.HTMLEncode(strOut) & "<br>"
objrs.MoveNext
Wend

if objrs.RecordCount=0 then
Response.Write "il n y a pas d'enreg"
end if

objrs.Close
objconn.Close
j'ai maintenant comme erreur:

Type d'erreur :
Objet Server, ASP 0177 (0x800401F3)
ProgID non valide Pour de plus amples informations relatives à ce message, veuillez visitez le site du Support technique en ligne Microsoft sur : http://www.microsoft.com/contentredirect.asp.

[Immobilis]

T'as pas l'impression de répéter deux fois la mm chose là?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
objconn.Open "Provider=sqloledb;" & _ 
"Data Source=SV004\FDS;" & _ 
"Initial Catalog=REC_WEB;" & _ 
"User Id=sa;" & _ 
"Password=mdp" 
 
Set objrs =Server.CreateObject("ADODB.Recorset") 
objconn.Open "DIPLOME", objconn

[christel1982]

j'ai toujours une erreur a la ligne Set objrs = Server.CreateObject("ADODB.Recorset")
Type d'erreur :
Objet Server, ASP 0177 (0x800401F3)
ProgID non valide Pour de plus amples informations relatives à ce message, veuillez visitez le site du Support technique en ligne Microsoft sur : http://www.microsoft.com/contentredirect.asp.

j'ai modifie le code

Dim objconn
Set objconn = Server.CreateObject("ADODB.Connection")
' chaine de connexion


objconn.Open "Provider=sqloledb;" & _
"Server=SV004\FDS;" & _
"DataBase=REC_WEB;" & _
"User Id=sa;" & _
"Password=forum"

Set objrs = Server.CreateObject("ADODB.Recorset")
objConn.Open Application("essaisql_ConnString")

objrs.Open "DIPLOME", objconn

While Not objrs.EOF
strOut=objrs("dip_intitule") & ":" & objrs("dip_libelle")
srtOut=strOut & " " & objrs("dip_intitule")
Response.Write Server.HTMLEncode(strOut) & "<br>"
objrs.MoveNext
Wend

if objrs.RecordCount=0 then
Response.Write "il n y a pas d'enreg"
end if

objrs.Close
objconn.Close

[escafr]

merci dediter ton message avc les balises code.. pq la c'est pas lisisble..

mici

[Immobilis]

T'es têtue toi

objconn.Open "Provider=sqloledb;" & _
"Server=SV004\FDS;" & _
"DataBase=REC_WEB;" & _
"User Id=sa;" & _
"Password=forum"

Set objrs = Server.CreateObject("ADODB.Recorset")
objConn.Open Application("essaisql_ConnString")

Tu fais pas deux fois un open?

Où est-ce que tu renseignes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application("essaisql_ConnString")

?

[christel1982]

ok lol desole, j'ai tout refais proprement et ca marche ! merci !!!