Liaison entre deux BBDD

Question

Pour produir factures des ventes entre deux dates (ou dans un mois) j'ai fait le suivant procdmnt: Il s'agit de deux BBDD et un filtre.

Private Sub Imprimer_Click()
'Cycle des clients
Do While NOT Adodc1.Rs.EOF
- clientx = Adodc1.Rs.Fields("Clients").Value- condition "Client '" & clientx & "' And DateAchat >= "'  & MaskedBox1  &  "' And DateAchat <= '" & MaskedBox2  "'"
- Adodc2.Rs.Filter = condition
- jfin =  Adodc2.Rd.Recordcount 
- For j = o to ( jfin - 1)
-- Printer print...
- Next j
 Adodc1.Rs.MoveNext
Loop
End Sub
.....Probleme: La variable clientx du premier cycle ne pase pas au seconde, ni de la fa&#231;on que j'ai mis ni dans la fa&#231;on: condition "Client '" & Adodc1.Rs.Fields("Clients)".Value & etc...
J'ai verifi&#233; que le probleme n'est pas dans les dates (que transitoirment j'ai elimin&#233;es), m&#225;is dans la lieaison entre les deux BBDD que je n'obtiens pas. Qu'est-ce que j'ai fait mal ???
Merci de tout coeur, Lasenka

crenaud76 · Answer

Attention à la valeur du RecordCount sur le RS de ADODC2 qui ne vaut que le Nb d'enregistrement effectivement lu !! Donc zéro juste derrière ton .Filter = ...
Ajoute un Adodc2.RS.MoveLast puis un Adodc2.RS.MoveFirst entre le Adodc2.rs.Filter ... et le jfin adodc2.rs.recordcount ...
Et puis je ne me souvient plus s'il faut fair eun .refresh sur le RS après le Filter ou bien s'il le fait tout seul ? A vérifier ...

Christophe

Tuning Max · Answer

D&#233;sol&#233; mais je ne comprends pas trop. Ton code manque un peut de clart&#233; et de commentaires. Quel est les relations entre tes deux bases de donn&#233;es (liens sur un champs num&#233;rique ou texte), comment les ouvrent tu, comment sont d&#233;clar&#233;es tes variables?
Donne-nous le code complet ou plus d'informations si tu veux que l'on t'aide. 


A bient&#244;t!

lasenka · Answer

Mci. Quant a les liens entre les deux BBDD. Table Clients, ADODC1, clef principal le champ "Client". Table Ventes, ADODC2, sans clef, mais avec le champ commun "Client".
Bien sur, declar&#233; texte. La variable "clientx" declar&#233;e comme String.  Le cycle exterieur (Do While) travaille dans la table Clients. Le cycle intetieur (For... Next) dans la table Ventes. Faut il quelque renseignement additionelle ? Mci pour votre rapidit&#233;.
Lasenka

crenaud76 · Answer

As-tu testé le MoveLast et MoveFirst que je t'ai recommandé ?

lasenka · Answer

Mci Ch&#232;re Christophe: Oui, oui. Mais j'obtiens "EOF ou BOF trouv&#233;". J'ai intercept&#233; le message d'erreur, mais encore les conditions du premier cycle n'entrent dans le s&#233;conde. J'en sais pas quoi faire. C'est n'est pas une application complexe; seulement deux clefs principaux (Clients et Suppliers) et une seule table commune, cette de ventes. Le reste des tables con attach&#233;es a une ou une autre des clefs principaux. Mais ce proced est completement crucial. Mci pour ton inter&#234;t.

lasenka · Answer

Une correction: Je me suis exprim&#233; incorrectement quand je parle de "Liaison entre deux BBDD". R&#233;elment je voudrais et devrais dir : "Liaison entre deux TABLES d'une BDD". Vous aurez compris sans doute l'erreur. Merci.

Tuning Max · Answer

Pourquoi ne pas faire tout simplement une requ&#234;te SQL. A mon avis ce serat bien moin lourd que deux recordset et plus rapide

Tu pourrais faire un truc du genre :

*************************** start code *****************************
' Tu creer une requ&#234;te SQL directement en code s&#233;lectionnant les enregistrements selon tes crit&#232;res
dim StrChaineSQL as string

StrChaineSQL = " SELECT Clients.Client, Clients.DateAchat, Ventes.DateAchat  " & _
                                               " FROM Clients INNER JOIN Ventes ON Clients.Client = Ventes.Client " & _
                                               " WHERE (((Clients.DateAchat)>= '" & MaskedBox1 & "' And (Clients.DateAchat)<= '" & MaskedBox2& "'));"

' Et si tu souhaite avoir un recordset tu l'ouvre depuis ta requ&#234;te SQL
Set db = CurrentDb
Set rcd = db.OpenRecordset(StrChaineSQL)

************************ end code ********************************


Attention je ne suis pas s&#251;r de la requ&#234;te SQL car je n'ai pas trop compris si le champ Date Achat et dans la table Clients ou Ventes. Ceci &#233;tant c'est plus pour te donner une id&#233;e, tu modifieras en cons&#233;quence

Voil&#224; et bon courage


Courage et pers&#233;v&#233;rance sont les mamelles de la r&#233;ussite!

lasenka · Answer

Merci pour votre tr&#235;s pr&#233;cieuse aide.&#199;a marche finalment. J'ai pr&#233;f&#233;r&#233; maintiendre la "philosophie" initiale, &#231;a sera pour moi plus ais&#233;. Voici le code pour si il  peut &#234;tre util  a un autre "patient" .
...
Private Sub Imprimer_.Click()
' Cycle des Clientes Adodc1
Do While NOT Adodc1.Rs.Eof
- Printer.print En-t&#234;te
- clientx = Adodc1.Rs.Fields("Client").Value- condition " Client ' "  & Clientx & " ' And DateVente >= '" & MaskEdBox1 & " ' And DateVente <= ' " & MaskEdBox2 & "'"
- Adodc2.Rs.Filter = condition
- Adodc2.Rs.MoveFirst   ' &#199;a &#233;tait le point, Christophe !!
- jfin = Adodc2.Rs.RecordCount
' Cycle des Ventes
- For j = 0 To (jfin - 1)
-- printer.Print Detaill
-- Adodc2.Rs.MoveNext
-- If Adodc2.Rs.Eof Then
---- il faut ajouter quelque code
-- End If
-- Adodc2.Rs.Filter = ""
- Next j
- Printer.Print Resum&#233;
- Actualiser ' la table Factures emises     
- Adodc1.Rs.MoveNext
Loop
End Sub
...
Mci nouvellement, Alberto
-- Adodc2.Rs.MoveNext