lire et manipuler un recordset en vba excel

bonjour tout le monde

j'ai un objet recordset rsT qui contient les resultat d'une requete, je veux mettre la taille du recordset (càd le nombre de ligne) dans une varible integer, et ensuite mettre juste quelques ligne ds mon fichier excel:(c'est à dire comment peut on parcourir les lignes du recordset).
avec cette ligne du code (Range("A2").CopyFromRecordset rsT)
il copy tout le resultat , mais je veux juste par exemple les 5 premières lignes
merci bp, mon code est le suivant:
(j'ai penser d'utiliser la methode getrows mais je pense c pas possible!!!!!!!:(:bug:)

Code:

---

1 2 3 4

SQL_text= " SELECT * FROM[" & NomFeuille & "$] '" Set rsT = New ADODB.Recordset Set rsT = cn.Execute(SQL_tersfaible) Range("A2").CopyFromRecordset rsT

---

ou bien est ec que je peut utilser le rst recordset comme un tableau, et comment je peux acceder à la valeur d'une cellule donné: rst.fields(i) ça c'est pour la colonne et la ligne comment on fait???? je pense que rst.fields(i,j) n'existe pas!!!!!!!!!!!!!!!alors svp dites moi comment on peut faire?? merci par avance:oops::(

bonjour


Remplace simplement

Code:

---

SELECT * FROM

---

par

Code:

---

SELECT TOP 5 * FROM

---

bonne journée
michel

et pour avoir la valeur du nombre de lignes ds le recordset???
si je met cout(*)
je sais qu'il me donne la valeur mais qaund j'affecte à une variable et me dit erreure type??? càd
var = rsT.value
sachant que j'ai utilisé count ds la requete!
merci encore , c vrai pour la selection c bon:yaisse2:

bonjour,

pour obtenir le nombre de ligne, utilise

Code:

---

Rst.RecordCount

---

cordialement

bonjour tout d'abord merci
au fait je viens de l'essayer mais il me donne un résultat=-1 c bizard or il ya 250 eregistrement
!!!je comprd pas trop le pbm merci encore

j'ai essayé d'utiliser l'instruction count

Code:

---

nombre = rsT.Fields(0).Value

---

mais il m'affiche aussi un message d'erreur
BOF ou EOF est égale à true!!!!est ce quelqun sait d'ou vient le probleme,,???:cry::oops: merci par avance

re

peux tu montrer ton code?

cordialement

tu sais mon code est un peu long !! tu trouveras des variable que je n'ai pas encore utilisé....c pour apres. merci pour te reponse
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 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 58 59

Private Sub CommandButton4_Click() Dim cn As ADODB.Connection Dim Fichier As String Dim RA As String, RB As String, RC As String, RD As String, RE As String Dim RF As String, RG As String, RH As String, RI As String, RJ As String Dim RK As String, RL As String, RV As String Dim NomFeuille As String, SQL_tersfaible As String, SQL_faible As String Dim SQL_moyen As String, SQL_fort As String, SQL_avere As String Dim nbconso As Integer, nbconsotresfaible As Integer, nbconsofaible As Integer Dim nbconsomoyen As Integer, nbconsofort As Integer, nbconsoavere As Integer Dim rsTtresfaible As ADODB.Recordset 'Initialization des variables nbconso = 10 RA = " " & " " & "A" RB = " " & " " & "B" RC = " " & " " & "C" RD = " " & " " & "D" RE = " " & " " & "E" RF = " " & " " & "F" RG = " " & " " & "G" RH = " " & " " & "H" RI = " " & " " & "I" RJ = " " & " " & "J" RK = " " & " " & "K" RL = " " & " " & "L" RV = " " & " " & "V" 'Définit le classeur fermé servant de base de données Fichier = "s:\LYNDAYAKOUBEN\saintetiennenord.xls" 'Nom de la feuille dans le classeur fermé NomFeuille = "Feuil1" Set cn = New ADODB.Connection '--- Connection --- With cn .Provider = "Microsoft.Jet.OLEDB.4.0" .ConnectionString = "Data Source=" & Fichier & _ ";Extended Properties=""Excel 8.0;HDR=yes""" .Open End With '----------------- 'Définit la requête. '/!\ Attention à ne pas oublier le symbole $ après le nom de la feuille. SQL_tersfaible = " SELECT TOP 5 * FROM[" & NomFeuille & "$] WHERE MARCHE = 'CONSOMMA' and NOTEB2 IN( '" & RA & "', '" & RB & "', '" & RC & "', '" & RD & "')" Set rsTtresfaible = New ADODB.Recordset Set rsTtresfaible = cn.Execute(SQL_tersfaible) '--- Boucle sur les entêtes pour récupérer les noms --- For i = 0 To rsTtresfaible.Fields.Count - 1 Cells(1, i + 1) = rsTtresfaible.Fields(i).Name Next i '----------------------------------------------------- 'Ecrit le résultat de la requête dans la cellule A2 Range("A" & nbconso & "").CopyFromRecordset rsTtresfaible '----------------------------------------------------- 'recupérer le nombre de lignes nbconsotresfaible = rsTtresfaible.Fields(0).Value MsgBox "le nombre de lignes est:" & nbconsotresfaible '----------------------------------------------------- '--- Fermeture connexion --- cn.Close Set cn = Nothing

---

re

si tu veux le nombre d'occurences trouvé, va faire un tour ici

Je regarderai ton code ce soir, je n'ai plus le temps

@+

tu sais ne fais pas attention à top 5 ds la requete, parceque ce je cherche le nombre d'enregitrementsquand c'est select *
merci
je pense que je ne suis pas la seul à avoir ce prbleme j'essaye de voir plus des las facs précedent mais pour l'instant je trouve pas la solution!!!!! merci

je cherche encore de ma part merci et bien tot

re

Si tu as Acces, consulte l'aide. Elle est beaucoup plus détaillée que celle d'Excel pour les RecordSets.


cordialement

d'acord je le ferai maintenant et je te tiendrai au courant de la suite.
tu sais j'ai essyé d'utiliser ce que tu m 'as envoyé, et ça renvoie le résultat 0!!! donc c toujours pas gagné merci comme meme
code

Code:

---

1 2 3 4 5

intcompteur = 0 Do While Not rsTtresfaible.EOF intcompteur = intcompteur + 1 Loop MsgBox "le nombre de lignes est:" & intcompteur

---

re



si tu fais

Code:

---

1 2 3 4 5

SQL_tersfaible = " SELECT TOP * FROM[" & NomFeuille & "$] Set rsTtresfaible = New ADODB.Recordset Set rsTtresfaible = cn.Execute(SQL_tersfaible)   msgbox rsTtresfaible.recordcount

---

qu'est ce que ça donne?

@+
nb n'oublie pas les balises codes, je te les ai placées.

tu sais je pense qu'il faut que je rajoute : adOpenKeyset pour que record count marche mais qaund j'essaye de l'introduire il m'affiche un message d'erreur§§§!!!!!:bug:

tu sais c'est ça que j'ai essayé quand il me donnait -1 alors je comprend pas ce que tu as changé???? comme ça n'a pas marché j'ai essayé count ds select qui marche pas non plus!!! alors j'ai pas trop compris ce que tu veux que je change??

re

très bonne piste

Code:

---

1 2 3 4

Set rsTtresfaible= New ADODB.Recordset rsTtresfaible.Open SQL_tersfaible , , adOpenKeyset, adLockOptimistic Msgbox rsTtresfaible.RecordCount

---

@+

et oui mais ça m'affiche un message d'erreur. au fait est ce que je dois placer cette ligne

Code:

---

rsTtresfaible.Open SQL_tersfaible, adOpenKeyset, adLockOptimistic

---

seulement au depart???

moi je l'ai met comme suit:

Code:

---

1 2 3

Set rsTtresfaible = New ADODB.Recordset rsTtresfaible.Open SQL_tersfaible, adOpenKeyset, adLockOptimistic Set rsTtresfaible = cn.Execute(SQL_tersfaible)

---

re

Le HDR doit être =NO

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Sub test() Set Cn = New ADODB.Connection ' pour Xl 2007 Cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _ "Data Source=" & Fichier & ";" & _ "Extended Properties=""Excel 12.0;HDR=NO;""" 'Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _   "Data Source=" & Fichier & ";" & _   "Extended Properties=""Excel 8.0;HDR=No;"";"     '------------------ strSQL = "SELECT * FROM [" & NomFeuille & "$]" Set Rst = New ADODB.Recordset Rst.Open strSQL, , adOpenKeyset, adLockOptimistic MsgBox Rst.RecordCount + 1 Set Rst = Nothing Set Cn = Nothing   End Sub

---

après, je ne sais pas comment lier tes deux recordsets
je t'avoue que je me suis plongé dans ADO que la semaine dernière.

Attends que Silkyroad ou un autre pro passe par là.

cordialement

merci comme je vais continuer les recherches dans cette direction
à bien tot avec mes remerciements