recordcount Encore et encore
Bonjour, je sais que cette question a été posée des centaines de fois et j'aii du lire les trois quart des réponses à ce sujet.
Comment fais on marcher le recordcount?
voici une partie de 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
| sub test()
dim sqlcmd as string
dim rs as ADODB.Recordset
Set rs = New ADODB.Recordset
SqlCmd = "select * from Table"
for i = 1 to 4
for j = 1 to4
rs.Open SqlCmd, maconnection, i, j
If Not (rs.EOF And rs.BOF) Then
msgbox i & " " & j & " " & rs.RecordCount
rs.movelast
msgbox i & " " & j & " " & rs.RecordCount
rs.movefirst
msgbox i & " " & j & " " & rs.RecordCount
endif
next i
next j
set rs = maconnection.execute(SqlCmd)
msgbox rs.RecordCount
rs.movelast
msgbox rs.RecordCount
rs.movefirst
msgbox rs.RecordCount
end sub |
quelque soit la méthode que je tente d'utiliser, je récupere -1
ça a de quoi m'énerver...
merci d'avance
Gratesnif.
