methode find ("critere") [Résolu]

[mohcultiv]

bonjour,

j'ai besoin d'utilisé la méthode find dans mon code mais celle-ci me retourne une erreur:

Code :

1
2
Microsoft OLE DB Provider for ODBC Drivers (0x80040E29)
L'ensemble de lignes ne prend pas en charge le défilement arrière.

voici un extrait de mon code:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
<%
Dim formation
Set formation = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM formation "
formation.Open sql, Conn
%>
 
 
<%
Dim Valeur
Set Valeur = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM valeur where mois=" & month(derdate) & " and num_geo=" & niv & " order by annee desc"
Valeur.Open sql, Conn
%>
 
<%
while not formation.eof
	valeur.movefirst
	valeur.find ("code_formation='" & formation("Code_Formation") & "'")
	formation.movenext
wend%>

[roro06]

Bonjour

2 choses :

1/ il faut spécifier un cursortype et un locktype à la méthode open :

Code :

Valeur.Open sql, Conn, 2, 3

cursortype=2 : adOpenDynamic (permet de naviguer dans le recordset)
locktype = 3 : adLockOptimistic (permet eventuellement une mise a jour)

2/La methode find parcours le recordset et s'arrete en "bout". Avant de l'utiliser, il faut donc revenir au debut :

Code :

1
2
3
if not valeur.bof then valeur.moveFirst()
valeur.find ("code_formation='" & formation("Code_Formation") & "'")
etc ...

[mohcultiv]

merci cela fonctionne éffectivement.