Problème de recordset

**tantrum** · 07/03/2011, 15h00

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 :

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

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** · 07/03/2011, 16h30

Bonjour, quel code as tu à la ligne 17 ?

**tantrum** · 07/03/2011, 16h52

RS.Open SQL,Conn,3,3

**eclisse** · 07/03/2011, 18h14

AS tu esayé de modifier les curseurs, genre :

Code :

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

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** · 07/03/2011, 18h45

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** · 08/03/2011, 01h37

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** · 08/03/2011, 10h00

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

Code :

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

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 :

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

MM_rsUser.Close

**eclisse** · 08/03/2011, 10h37

Salut.

Code :

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

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 :

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

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** · 08/03/2011, 13h57

maitenant j'ai sa comme erreur:

Microsoft VBScript compilation error '800a03f6'

Expected 'End'

/admin/mdp.asp, line 172

**eclisse** · 08/03/2011, 15h11

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** · 08/03/2011, 16h21

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

Code :

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

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** · 08/03/2011, 16h32

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** · 08/03/2011, 16h37

ok mais j'ai une erreur à cette ligne:

Code :

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

rs_addoffre_cmd.ActiveConnection = conn.ConnectionString

**tantrum** · 08/03/2011, 16h39

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 :

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

Conn.Open DSN_BASE

**eclisse** · 08/03/2011, 17h02

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** · 08/03/2011, 17h22

emploi c'est le nom de ma table

**eclisse** · 08/03/2011, 17h47

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

Code :

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

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

par

Code :

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

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

**tantrum** · 08/03/2011, 17h57

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 :

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

Set rs_addoffre = rs_addoffre_cmd.Execute

**eclisse** · 08/03/2011, 19h35

Je me demande surtout qu'est ce qu'il execute ....

le .cmd est vide non ?

**tantrum** · 09/03/2011, 17h28

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

Problème de recordset

ASP

Discussions similaires

Partager

Partager