Recordcount/ado/Access helpRésolu

Question

bjr
j'ai un pb avec recordcount
voici mon code:
Dim x As Integer, Z As Integer
Dim y As String, W As String
Dim adoconnection As ADODB.Connection
Dim adorecordset As ADODB.Recordset
Dim CONNECTSTRING As String
Set adoconnection = New ADODB.Connection
Set adorecordset = New ADODB.Recordset
Dim resultat As String
Dim NOM2 As String


Randomize
CONNECTSTRING = "provider=microsoft.jet.oledb.4.0;" & "data source=c:\jeucalin\gages.mdb"
adoconnection.Open CONNECTSTRING '+le mot de passe

If truc "F" Then W "A"
If bidule "H" Then W "B"

Z = adorecordset.RecordCount
x = (Int(Rnd * Z)) 'Nb aléatoire
resultat = "select * from " & (W) & " where numéro=" & x
adorecordset.Open resultat, adoconnection, , , adCmdText

Text1 = adorecordset!gage

Je n'arrive pas à déterminer le Z pour qu'il me prenne un enregistrement alléatoire  sur ma base.

merci pour votre aide

Neow26 · Accepted Answer

D&#233;j&#224; dans ton extrait de code tu r&#233;cup&#232;res ton recordcount avant d'ouvrir ton rs donc normal qu'il soit pas initialis&#233;.


Ensuite, il faut faire attention aux options que tu utilises, si tu ouvre ton rs en adOpenForwardOnly, ton recordcount sera &#224; 0 &#224; l'ouverture alors qu'en adOpenStatic il sera bien initialis&#233;. Par contre avec le adOpenStatic les performances sont moins bonnes.

La meilleur solution reste de faire une requete count en adOpenForwardOnly dans un souci de performances.
Ce qui te donnerai :
adorecordset.Open "select count(*) as Nb from " & (W), adoconnection, adOpenForwardOnly, adLockReadOnly
if not adorecordset.EOF then
      Z = CInt(adorecordset("Nb"))
      adorecordset.close
      x = (Int(Rnd * Z)) 'Nb al&#233;atoire
      resultat = "select * from " & (W) & " where num&#233;ro=" & x
      adorecordset.Open resultat, adoconnection, adOpenForwardOnly, adLockReadOnly
end if

cs_DARKSIDIOUS · Answer

Attention, il faut que tes numéro dans ta base soit tous contigus ! Il vaut mieux faire : Z = adorecordset.RecordCount x = (Int(Rnd * Z)) 'Nb aléatoire resultat = "select * from " & (W) adorecordset.Open resultat, adoconnection, , , adCmdText adorecordset.move(Z) _

ecranbleu27 · Answer

merci,
au moins sur ce forum,
on est sur d'avoir une réponse, éfficace!
patrik

Recordcount/ado/Access help

3 réponses

Discussions similaires