Je suis en ASp et lors de ma requete j'ai l'erreur suivante :
Microsoft OLE DB Provider for ODBC Drivers erreur '80040e10'
[Microsoft][Pilote ODBC Microsoft Access] Trop peu de paramètres. 6 attendu.
/requete1.asp, ligne 52
Ma base est faite de 3 table : Client(CodeClient,NomClient), Fichier(NomFichier,Taille,ID,CodeClient), User(CodeClient,Login,Password)...
Pourquoi le code ci dessous ne marche pas?
Dim Conn
strcode=Request.form("code")
strpass=Request.form("pass")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)};" & _
" DBQ=" & Server.MapPath("client.mdb")
Conn.Open
SQL="SELECT NomFichier, Taille FROM Fichier F WHERE CodeClient.F=(SELECT CodeClient FROM Client C WHERE CodeClient.C=(Select CodeClient FROM User U WHERE Login.U=strcode AND Password.U=strpass))"
'Set RS = Server.CreateObject("ADODB.Recordset")
'RS.Open SQL,Conn,2,3,adCmdTable
Dim Rs
Set Rs = Conn.Execute(SQL)
' tant qu'il y a des fiches
while not RS.eof %>
<%=RS("NomFichier")%> -
<%=RS("Taille")%>
<%RS.MOVENEXT ' fiche suivante
wend
Rs.Close
Set Rs = Nothing
Conn.Close : Set Conn=Nothing
-------------------------------
Réponse au message :
-------------------------------
Je suis en ASp et lors de ma requete j'ai l'erreur suivante :
Microsoft OLE DB Provider for ODBC Drivers erreur '80040e10'
[Microsoft][Pilote ODBC Microsoft Access] Trop peu de paramètres. 6 attendu.
/requete1.asp, ligne 52
Ma base est faite de 3 table : Client(CodeClient,NomClient), Fichier(NomFichier,Taille,ID,CodeClient), User(CodeClient,Login,Password)...
Pourquoi le code ci dessous ne marche pas?
Dim Conn
strcode=Request.form("code")
strpass=Request.form("pass")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)};" & _
" DBQ=" & Server.MapPath("client.mdb")
Conn.Open
SQL="SELECT NomFichier, Taille FROM Fichier F WHERE CodeClient.F=(SELECT CodeClient FROM Client C WHERE CodeClient.C=(Select CodeClient FROM User U WHERE Login.U=strcode AND Password.U=strpass))"
'Set RS = Server.CreateObject("ADODB.Recordset")
'RS.Open SQL,Conn,2,3,adCmdTable
Dim Rs
Set Rs = Conn.Execute(SQL)
' tant qu'il y a des fiches
while not RS.eof %>
<%=RS("NomFichier")%> -
<%=RS("Taille")%>
<%RS.MOVENEXT ' fiche suivante
wend
Rs.Close
Set Rs = Nothing
Conn.Close : Set Conn=Nothing