Discussion :

[sekiryou]

Salut,

Je veux utiliser la propriétée "recordcount" pour savoir si mon recordset contient des enregistrements. Mais cette propriété me retourne toujours "-1" peut-importe s'il y a des enregistrements ou pas.

Dans le fond, c'est que je veux mettre une condition comme celle-ci :

Code :

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

1
2
3
4
 
if rs_scat.recordcount <> 0 then
    [...]
end if

Qu'est-ce qui ne fonctionne pas là-dedans? est-ce qu'il existe une autre façon de faire la même chose?

[Piotrek]

Salut

essaie un petit rs_scat.movelast avant de faire le .recordcount

[sekiryou]

ça me fait l'erreur suivante :

Microsoft OLE DB Provider for ODBC Driverserror '80040e24'

Rowset does not support fetching backward.

/index.asp, line 197

[leviathan516]

Salut,
tu peux peut etre essayer ca:

Code :

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

1
2
3
4
 
if rs_scat.eof = false AND rs_scat.bof = false then
.....
end if

verifie si c'est false ou true qu'il faut mettre je ne suis plus sur dans quel cas il renvoie true et dans quel cas il renvoie false

[Gwenn]

Salut,

il faut que tu ajoutes cette ligne avant l'ouverture de ton recordset

Code :

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

1
2
 
oRs.CursorLocation = adUseClient

[sekiryou]

Salut,
tu peux peut etre essayer ca:

Code :

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

1
2
3
4
 
if rs_scat.eof = false AND rs_scat.bof = false then
.....
end if

verifie si c'est false ou true qu'il faut mettre je ne suis plus sur dans quel cas il renvoie true et dans quel cas il renvoie false

Déjà essayer... et ça ne fonctionne pas. Il me fait une erreur bizarre du même genre que la première.

Salut,

il faut que tu ajoutes cette ligne avant l'ouverture de ton recordset

Code :

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

oRs.CursorLocation = adUseClient

J'essais ça immédiatement et je vous en redonne des nouvelles.

[sekiryou]

bon, j'ai essayé la dernière chose... ça me fait cette erreur:

ADODB.Recordset error '800a0e79'

Operation is not allowed when the object is open.

/index.asp, line 186

Je suis en train de me dire qu'il n'y a pas de moyen de faire ce que je veux faire !!?

[Gwenn]

Biensur que ca marche

Fonction exemple :

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
Function NbreOpe(idAg)
Dim oConnx
Dim oRsNOpe
Dim StrSQL
Dim Nbre
				Set oConnx = Server.CreateObject("ADODB.CONNECTION")
				Set oRsNOpe = Server.CreateObject("ADODB.Recordset")
				oConnx.Open BD_03
				oRsNOpe.CursorLocation = adUseClient
				StrSQL = "SELECT Agent_id FROM LienAgOp WHERE Agent_id=" & idAg			
				oRsNOpe.Open  strSQL, oConnx
				If Not oRsNOpe.EOF Then			
					Nbre = oRsNOpe.RecordCount
				Else
					Nbre = 0
				End if
				oRsNOpe.Close
				oConnx.Close
				Set oRsNOpe = Nothing
				Set oConnx = nothing
				NbreOpe = Nbre
End Function

Ton message d'erreur me fait dire que ta connexion est deja ouverte

Autre chose, "adUseClient" est defini par adovbs.asp qui doit etre inclu sur chaque page

[sekiryou]

Salut Gwenn, J'ai fait ce que tu as dis, mais j'ai un autre message d'erreur qui me dit :

ADODB.Recordset error '800a0bb9'

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

/index.asp, line 191

Voici le snippet de mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
186 set conn = Server.CreateObject("ADODB.connection")
187 set rs_cat = Server.CreateObject("ADODB.Recordset")
188 set rs_scat = Server.CreateObject("ADODB.Recordset")
189	
190 conn.open strconn
191 rs_scat.CursorLocation = adUseClient 
192
193 sqlCat = "SELECT * FROM categories WHERE id_parent=1 AND id_arrondissement=1 AND parution=1 AND page='' ORDER BY ordre DESC"				
194 sqlSousCat = "SELECT * FROM categories WHERE id_parent IN (SELECT id FROM categories WHERE id_parent=1 AND page='') AND id_arrondissement=1 AND parution=1 ORDER BY ordre Desc"
195
196 rs_cat.Open sqlCat, conn
197 rs_scat.Open sqlSousCat, conn

[Gwenn]

C'est que tu n'inclus pas le fichier adovbs.asp (ADO constants include file for VBScript) dans toutes tes pages asp

Code :

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

<!--#include file="../utils/adovbs.asp"-->

Si tu ne trouves pas ce fichier de constantes, je pourrais te l'envoyer

edit : un lien pour adovbs.asp :

http://www.andrew.cmu.edu/user/pnguyen/includes/adovbs.asp

[sekiryou]

ok... ça fonctionne dans une page test... mais quand je le copie dans le vrai code, ça me sort cette erreur :

ADODB.Recordset error '800a0bb9'

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

/index.asp, line 183

Pourtant c'est le même code que dans ma page test qui elle fonctionne à 100% ?

PS: la ligne 183 contient "rs_cat.CursorLocation = adUseClient"

[Gwenn]

mais le vrai code aussi doit inclure adovbs.asp !!

[sekiryou]

mais le vrai code aussi doit inclure adovbs.asp !!

je suis gêné là.... c'est vrai j'ai oublier...

Maintenant que ce bout de code est dans ma vrai page .asp, j'ai un autre problème.

Je vais créer un autre sujet de discussion, je crois que ça va aller mieux... je vais rééditer ce message pour mettre le lien --> [ici] <--.
[connexion base de données] requête dynamique...