Problème de recordset

[tantrum]

Bonjour,
J'ai cette erreur:

ADODB.Recordset error '800a0bb9'

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

/admin/mdp.asp, line 17

Je ne comprends comment je pourrais faire pour la résoudre.
Je vous mets le code:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
chemin=Server.Mappath("placemed.mdb")
DSN_BASE="DBQ=" & chemin & ";Driver={Microsoft Access Driver (*.mdb)};"
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open DSN_BASE
Set RS=Server.CreateObject("ADODB.RecordSet")
' *** Validate request to log in to this site.
MM_LoginAction = Request.ServerVariables("URL")
If Request.QueryString <> "" Then MM_LoginAction = MM_LoginAction + "?" + Server.HTMLEncode(Request.QueryString)
MM_valUsername = CStr(Request.Form("utilisateur"))
If MM_valUsername <> "" Then
  MM_redirectLoginSuccess = "menu.asp"
  MM_redirectLoginFailed = "erreurmdp.asp"
' Là, je ne sais pas quel champ contient le mot de passe et quel champ le login donc à modifier éventuellement
  SQL = "SELECT id, utilisateur FROM mdp WHERE id = '"&Request.Form("mdp")&"' AND utilisateur = '"&MM_valUsername&"'"
   RS.Open SQL,Conn,3,3
  If Not RS.EOF Or Not RS.BOF Then 
   Session("MM_Username") = RS("utilisateur")
   RS.Close
   Response.Redirect(MM_redirectLoginSuccess)
  End If
  MM_rsUser.Close
  Response.Redirect(MM_redirectLoginFailed)
End If

Merci d'avance pour votre aide.

[eclisse]

Bonjour, quel code as tu à la ligne 17 ?

[tantrum]

RS.Open SQL,Conn,3,3

[eclisse]

AS tu esayé de modifier les curseurs, genre :

Code :

RS.Open SQL,Conn

??

Et Normalement, juste le test EOF est utile. Faire un test sur le EOF et BOF me semble pas probant...

[tantrum]

je vien d'essayer et j'ai toujours la même erreur:

Microsoft OLE DB Provider for ODBC Drivers error '80040e07'

[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.

/admin/mdp.asp, line 17

[eclisse]

je viens de relire ton premier mail :

' Là, je ne sais pas quel champ contient le mot de passe et quel champ le login donc à modifier éventuellement

Du coup, je me demande si tu n'as pas un pb dans les champs de ta requete. As tu essayé de parcourir tes champs pour voir si tes 2 existes ?

[tantrum]

J'ai fais des modifications, maintenant je ne sais pas si c'est correct j'ai encore une erreur:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
chemin=Server.Mappath("placemed.mdb")
DSN_BASE="DBQ=" & chemin & ";Driver={Microsoft Access Driver (*.mdb)};"
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open DSN_BASE
Set RS=Server.CreateObject("ADODB.RecordSet")
' *** Validate request to log in to this site.
MM_LoginAction = Request.ServerVariables("URL")
If Request.QueryString <> "" Then MM_LoginAction = MM_LoginAction + "?" + Server.HTMLEncode(Request.QueryString)
MM_valUsername = CStr(Request.Form("utilisateur"))
If MM_valUsername <> "" Then
  MM_redirectLoginSuccess = "menu.asp"
  MM_redirectLoginFailed = "erreurmdp.asp"
' Là, je ne sais pas quel champ contient le mot de passe et quel champ le login donc à modifier éventuellement
  SQL = "SELECT id, utilisateur FROM mdp WHERE utilisateur = '"&Request.Form("mdp")&"' AND mdp = '"&MM_valUsername&"'"
    RS.Open SQL,Conn,3,3
  If Not RS.EOF Or Not RS.BOF Then 
   Session("MM_Username") = RS("utilisateur")
   RS.Close
   Response.Redirect(MM_redirectLoginSuccess)
  End If
  MM_rsUser.Close
  Response.Redirect(MM_redirectLoginFailed)
End If

Voici l'erreur que j'ai encore:

Microsoft VBScript runtime error '800a01a8'

Object required: 'MM_rsUser'

/admin/mdp.asp, line 23

La ligne 23 correspond à :

Code :

MM_rsUser.Close

[eclisse]

Salut.

Code :

MM_rsUser.Close

????

C'est un objet ?? il est ouvert où, je ne le vois pas dans ton code ???
je crois que tu as fait un mélange des genres entre objets...

Si je reprens ton code :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
chemin=Server.Mappath("placemed.mdb")
DSN_BASE="DBQ=" & chemin & ";Driver={Microsoft Access Driver (*.mdb)};"
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open DSN_BASE
Set RS=Server.CreateObject("ADODB.RecordSet")
' *** Validate request to log in to this site.
MM_LoginAction = Request.ServerVariables("URL")
If Request.QueryString <> "" Then MM_LoginAction = MM_LoginAction + "?" + Server.HTMLEncode(Request.QueryString)
MM_valUsername = CStr(Request.Form("utilisateur"))
If MM_valUsername <> "" Then
	MM_redirectLoginSuccess = "menu.asp"
	MM_redirectLoginFailed = "erreurmdp.asp"
	' Là, je ne sais pas quel champ contient le mot de passe et quel champ le login donc à modifier éventuellement
	SQL = "SELECT id, utilisateur FROM mdp WHERE id = '"&Request.Form("mdp")&"' AND utilisateur = '"&MM_valUsername&"'"
	RS.Open SQL,Conn,3,3
	If Not RS.EOF Then 
		Session("MM_Username") = RS("utilisateur")
	RS.Close
	Response.Redirect(MM_redirectLoginSuccess)
End If
set RS = nothing
Conn.Close
set conn = nothing
Response.Redirect(MM_redirectLoginFailed)

Dis moi ce que ça donne

[tantrum]

maitenant j'ai sa comme erreur:

Microsoft VBScript compilation error '800a03f6'

Expected 'End'

/admin/mdp.asp, line 172

[eclisse]

dans le code que tu avais posté, j'avais un END IF en trop. il doit donc t'en manquer un en bas du code

[tantrum]

c'est bon j'ai trouvé, par contre pour les autres pages j'ai seulement à changer la connexion à la table c'est ça?

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
<%
Dim MM_editAction
MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
  MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)
End If
 
' boolean to abort record edit
Dim MM_abortEdit
MM_abortEdit = false
%>
<%
If (CStr(Request("MM_insert")) = "form1") Then
  If (Not MM_abortEdit) Then
    ' execute the insert
    Dim MM_editCmd
 
    Set MM_editCmd = Server.CreateObject ("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_placemed_STRING
    MM_editCmd.CommandText = "INSERT INTO [offre emploi] (numero_offre, canton, titre, [description], taux, date_publication) VALUES (?, ?, ?, ?, ?, ?)" 
    MM_editCmd.Prepared = true
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 201, 1, -1, Request.Form("numerooffre")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 201, 1, -1, Request.Form("canton")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 201, 1, -1, Request.Form("titre")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param4", 201, 1, -1, Request.Form("description")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param5", 201, 1, -1, Request.Form("taux")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param6", 201, 1, -1, Request.Form("date")) ' adLongVarChar
    MM_editCmd.Execute
    MM_editCmd.ActiveConnection.Close
 
    ' append the query string to the redirect URL
    Dim MM_editRedirectUrl
    MM_editRedirectUrl = "confirmationadd.asp"
    If (Request.QueryString <> "") Then
      If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then
        MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
      Else
        MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
      End If
    End If
    Response.Redirect(MM_editRedirectUrl)
  End If
End If
%>
<%
Dim rs_addoffre
Dim rs_addoffre_cmd
Dim rs_addoffre_numRows
 
chemin=Server.Mappath("placemed.mdb")
DSN_BASE="DBQ=" & chemin & ";Driver={Microsoft Access Driver (*.emploi)};"
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open DSN_BASE
Set RS=Server.CreateObject("ADODB.RecordSet")
 
Set rs_addoffre = rs_addoffre_cmd.Execute
rs_addoffre_numRows = 0

C'est bien ça?

[eclisse]

Oui, et à enlever les %> <% qui ne servent à rien. Pas la peine de fermer et de réouvrir les balises, ça pompe de la ressource pour rien...

[tantrum]

ok mais j'ai une erreur à cette ligne:

Code :

rs_addoffre_cmd.ActiveConnection = conn.ConnectionString

[tantrum]

pardon il me mets cette erreur: Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified

/admin/addoffre.asp, line 54

ligne 54 :

Code :

Conn.Open DSN_BASE

[eclisse]

Tu es sûr du nom de la base dasn ton DSN ??? *.emploi ???
ça ma parait bizarre... tu ne confondrais pas nom de la table avec nom de la base ?

[tantrum]

emploi c'est le nom de ma table

[eclisse]

Oui, c'est bien ce qui me semblait...
remplace

Code :

DSN_BASE="DBQ=" & chemin & ";Driver={Microsoft Access Driver (*.emploi)};"

par

Code :

DSN_BASE="DBQ=" & chemin & ";Driver={Microsoft Access Driver (*.mdb)};"

[tantrum]

mais oui je suis bête.
Maintenant j'ai autre erreur:
Microsoft VBScript runtime error '800a01a8'

Object required: ''

/admin/addoffre.asp, line 57

Ligne 57=

Code :

Set rs_addoffre = rs_addoffre_cmd.Execute

[eclisse]

Je me demande surtout qu'est ce qu'il execute ....
le .cmd est vide non ?

[tantrum]

excuse moi le cmd !! c'est quoi déjà?