pitié aidez moi! VBA sous ACCESS

Question

VBA ou SQL ACCESS
J'ai 2 bases de donn&#233;es A et B avec la tables A1 et B1
De la base de donn&#233;es A provenant du si&#232;ge, je dois rapatrier des donn&#233;es vers ma base de donn&#233;es B. 

Dans la table A et B, il y a les champs Produits et Composants. Le Produit "X" se r&#233;p&#232;te autant de fois qu'il y a de composants. Et donc il y a des doublons autant dans le champ Produits que le champ Componsant ( ou le composant se retrouve autant de fois qu'il est pr&#233;sent dans les diff&#233;rents produits.)

Par contre j'arrive &#224; automatiser l'import via SQL, le probl&#232;me, c'est que dans la table B, il y a deja des produits.
Et je voudra mettre une condition avant l'import pour dire que les composants du produits X de la table A ne doivent pas etre import&#233;s si les composants du produit X sont d&#233;j&#224; pr&#233;sents dans B.

Produit : A, B, C, D
Composant: X,Y,Z,V

Composition des produits:
Table B
A;X
A;Y
A;V
B;Y
B;Z
B;V
C;X
C;Z
C;V

Table A
A;X
A;Z ==> diff&#233;rent de la table B
D;Z==>nouveau produit D non pr&#233;sent dans la table B
D;Y

Il faudrait donc importer juste le nouveau produit D, et le composant Z pour le produit"A".

J'avais pens&#233; &#224; passer par une table "tampon"
'Supprimer les doublons dans la BOM
DoCmd.RunSQL "SELECT DISTINCT * INTO [BOM Import] FROM BOM"
DoCmd.RunSQL "DELETE * FROM BOM"
DoCmd.RunSQL "INSERT INTO BOM SELECT * FROM [BOM Import]"
DoCmd.RunSQL "DELETE * FROM [BOM Import]"

Mais le r&#233;sultat n'est pas concluant...
Vraiment je suis dans l'impasse... et g besoin d'aide!..

Merci d'avance pour l'aide!

au secours!!

M000004965 · Answer

Utilise des RecordSet pour r&#233;aliser des recherches et des comparaisons.

=======================================================
d&#233;claration global


Global CnAccess As ADODB.Connection
Global RsAccess1 As ADODB.Recordset
Global RsAccess2 As ADODB.Recordset
Global DB_Access As String


Global SQL1 As String
Global SQL2 As String
Global SQL_DB As String
Global Reponse As String


*****************************************************************


Sub Open_Connection1()


    Set CnAccess = New ADODB.Connection
    CnAccess.ConnectionString = _
        "Provider=Microsoft.Jet.OLEDB.3.51;" & _
        "Data Source=" & DB_Access
    CnAccess.Open


End Sub


******************************************************************


Sub Open_RecordSet1()


    '   Cr&#233;e et ouvre le recordset
    Set RsAccess1 = New ADODB.Recordset
    RsAccess.Open SQL, CnAccess, adOpenDynamic, adLockPessimistic


End Sub


******************************************************************


Sub Close_Connection1()


    CnAccess.Close


End Sub


*******************************************************************


Sub Close_RecordSet1()


    RsAccess1.Close


End Sub


******************************************************************


Private Sub Verification_traitement()


    PathFileDB = "D:\Projet"
    NameFileDB = "BASE_Access.mdb"
    DB_Access = PathFileDB & NameFileDB


 call Open_Connection1()
  SQL_DB = "SELECT * FROM A"
  call Open_RecordSet1()


R&#233;aliser les test et recherches dans les RecordSet
pour savoir si un produit existe d&#233;j&#224; ou non
Si oui => tu ne l'ajoute pas
Si non => tu l'ajoute.


  call Close_RecordSet1()
 call Close_Connection1()


End Sub


*****************************************************************


''exemple de navigation dans un RecordSet


DIM Recherche as string


if RsAccess.EOF = False then    ' V&#233;rifie qu'il existe au moins un enregistrement


    RsAccess.MoveFirst   'se place sur le premier enregistrement


    Do    'ammorce une boucle "tant que..."


       if RsAccess![BOM Import] = Recherche then 
          'R&#233;alise une comparaison entre une variable et  la valeur d'un recordset
   
          GoTo SUITE 'comme il y a concordance, tu n'ajoute pas ton produit


       else


          'Il n'y a pas concordance, tu ajoute ton produit dans la table B
          call Ajouter_Produit()


       endif


SUITE:
        RsAccess.MoveNext  'passer &#224; l'enregistrement suivant
    Loop While RsAccess.EOF = False 
'la boucle se poursuie jusqu'au dernier enregistrement
'la fin d'un RecordSet est indiqu&#233; par EOF
'le d&#233;but par BOF


endif


End Sub


*********************************************************************


Private Sub Ajouter_Produit()


    SQL1 = "SELECT A.A, A.B FROM A;"
    SQL2 = "SELECT B.A, B.B FROM B;"


    call Open_Connection1()
    call Open_RecordSet1()
    call Open_RecordSet2()


        RsAccess2.AddNew 'Ajouter un enregistrement


        RsAccess2![A] = RsAccess1![A]
        RsAccess2![B] = RsAccess1![A]


        RsAccess2.Update 'Valider l'ajout en mettant &#224; jour la base


    call Close_RecordSet1()
    call Close_RecordSet2()
    call Close_Connection1()


End Sub

cs_tchoukette · Answer

et sous SQL c'est possible aussi ? ou c oblig&#233; par VBA? 

au secours!!

cs_tchoukette · Answer

et sous SQL c'est possible aussi ? ou c oblig&#233; par VBA? 

au secours!!

M000004965 · Answer

sous VBA : pas de probl&#232;me &#224; ma connaissance

M000004965 · Answer

place ton code dans un module ".BAS"

cs_tchoukette · Answer

chuis toujours perdue... 
Dsl ms g pa f&#233; de VBA pouss&#233;, et sa f&#233; qq mois que je n'y ai pa touch&#233; ... 

au secours!!

M000004965 · Answer

J'ai relev&#233; ton "cahier des charges"
Je tache de r&#233;aliser un script d'exemple complet dans une base access durant le week-end.

cs_tchoukette · Answer

merci de sacrifier une partie de ton We pour moi!

Je suis au bord du suicide la ... fo que je finisse sa le plus tot possible... sinon il ser&#233; possible que je me fasse virer .... ( de mon stage...  c un peu mieux que si je n'&#233;tais vraiment embauch&#233;e)

Juste encore une tite pr&#233;cision, les produits dans ma table ne se r&#233;sume pas 4 ou 5 produits... mais plutot &#224; des centaines....multipli&#233;s par le nombre de composants les constitutant...

Marci marci !!!

au secours!!

M000004965 · Answer

Je ne t'ai pas oubli&#233;, le code arrive....

M000004965 · Answer

C'est dispo :http://www.vbfrance.com/code.aspx?ID=34823

M000004965 · Answer

D'autre part:

tu as diff approches possible pour ton probl&#232;me.
1) toute base de donn&#233;es intelligemment construite doit avoir une cl&#233; primaire !


Soit un incr&#233;ment auto soit un champ qui va contenir des donn&#233;es uniques telles que n&#176; commande ou de facture.


Il te serai ainsi plus simple d&#146;identifier les nouveaux enregistrements.


2) Il te suffis d&#146;ajouter une ligne de commande dans la proc&#233;dure d&#146;ajout d&#146;un nouvel enregistrement de la baseA qui renseignerait une table suppl&#233;mentaire contenant les nouveaux enregistrements. Il ne te resterai plus qu&#146;&#224; vider cette table tous les jours en r&#233;cup&#233;rant les enregistrement dans ta baseB.

cs_tchoukette · Answer

ah g pa acces au fichier, chuis pas membre ... 

au secours!!

Pitié aidez moi! VBA sous ACCESS

12 réponses

Discussions similaires