[Access] Fusionner deux bases de donnees

Marsh Posté le 05-07-2006 à 10:26:15

Hello

Ptite galere de stagiaire, je dois fusionner des bases de donnees access qui ont la meme structure
Je suis debutant access et on m'a file ca parce qu'en ce moment c'est un peu temps mort.

J'ai utilise une requete union sql sur les tables mais ca ne marche pas
les bases sont comme ca
Table1
code clients (numero auto, ptain les cons) plein d'autres trucs
Table2
un historique lie au code clients

Le probleme c'est que comme les vendeurs ont utilise la base separement, il y a des numeros identiques et que je perds le lien avec la seconde table avec mes requetes
que faudrait il faire?

Merci merci :hello:

Message cité 1 fois

Reply

Marsh Posté le 05-07-2006 à 10:26:15

Reply

Marsh Posté le 05-07-2006 à 11:17:40

une macro pour importer d'une base à l'autre tes tables...

Reply

Marsh Posté le 05-07-2006 à 11:37:04

J'ai trouve ca comme code vba sur internet, je vais voir si ca marche

Code :

Sub Insertion(oRst1 As DAO.Recordset, orst2 As DAO.Recordset)
On Error GoTo err
Dim Fld As DAO.Field
orst2.AddNew
For Each Fld In oRst1.Fields
If (Fld.Attributes And dbAutoIncrField) = 0 Then
orst2.Fields(Fld.Name).Value = Fld.Value
End If
Next Fld
orst2.Update
err:
End Sub
Sub copier()
Dim NomTable1 As String, NomTable2 As String
Dim oRst1 As DAO.Recordset, orst2 As DAO.Recordset
Dim odb As DAO.Database
Dim Message As String
Set odb = currentdb
NomTable1 = "TblClient"
NomTable2 = "TblClientSansDoublons"
Set oRst1 = odb.OpenRecordset(NomTable1)
Set orst2 = odb.OpenRecordset(NomTable2)
While Not oRst1.EOF
Insertion oRst1, orst2
oRst1.MoveNext
Wend
If Not orst2.EOF Then orst2.MoveLast
Message = "Opération terminée" & vbCrLf & vbCrLf & _
"La table source comportait : " & oRst1.RecordCount & " enregistrement(s)," & vbCrLf & _
"la table de destination en comporte " & orst2.RecordCount
MsgBox Message, vbInformation, "MAJ terminée"
End Sub

Reply

Marsh Posté le 05-07-2006 à 13:25:17

nope rien a voir en fait

bon je vais devoir apprendre le dao apparemment :'(

Reply

Marsh Posté le 05-07-2006 à 14:12:13

Il faut inserer ligne par ligne...

Tu prend le premier client, tu l'insert dans la table de destination sans id (tu auras un nouvel id vu qu'il est en auto increment), tu recupert cet id generer et tu insert l'histo des commande qui correspond... Puis tu passe au suivant...

Reply

Marsh Posté le 05-07-2006 à 14:35:26

Je crois que je vais faire comme ca

meme si elle est un peu grosse je pense que c'est encore le mieux...

Reply

Marsh Posté le 05-07-2006 à 16:02:59

merci merci d'ailleurs!!

Reply

[Access] Fusionner deux bases de donnees

Sujets relatifs:

Leave a Replay