Copier une base de donnée

Question

Salut à tous !

Je suis coincé sur une option.

J'ai une base de données DataBase1.mdb
J'ai une base de données DataBase2.mdb

J'ai deux tables dans DataBase1.mdb
- Personne (User, Password)
- Travail (Titre, Rang)

J'ai deux tables dans DataBase2.mdb
- Utilisateur (User, Password, Acces)
- Fonction (Titre, Rang, Date)

J'ai un formulaire avec un bouton [Command1] qui au clic doit copier les informations de la base de données DataBase1.mdb à DataBase2.mdb et mettre les zones vide sur "0" (comme Acces qui sera égale à "0" et Date qui sera = à "01/01/2010"

Pouvez vous m'aider svp ?

Merci						

----------
OS        : Windows XP SP3 et Vista 32
Platforme : VB 6.0 + SP6
Ok VB6.0 c'est pas net !

Sinsitrus · Answer

J'ai connecté deux Data comme suite :
Data1a.DatabaseName = "C:\DataBase1.mdb"
Data1a.RecordSource = "Personne"
Data1a.Refresh

Data2a.DatabaseName = "C:\DataBase2.mdb"
Data2a.RecordSource = "Utilisateur"
Data2a.Refresh


Puis à l'aide de ce code :
Data1a.Database.Execute ("Copy * from Personne Data2a.database.execute!Utilisateur")

Je souhaiterais copier les information d'une table à une autre... mais ca ne fonctionne pas. Pouvez vous m'aider svp ?

Sinsitrus · Answer

Ca a été dur mais... j'ai trouvé... ouf !

If Not (Data1a.Recordset.BOF And Data1a.Recordset.EOF) Then
Data1a.Recordset.MoveLast
Data1a.Recordset.MoveFirst
    Do While Not Data1a.Recordset.EOF
    With Data2a.Recordset
    .AddNew
    .Utilisateur = Data1a.Recordset!User
    .Password = Data1a.Recordset!Password
    .Update
    End With
    Data1a.Recordset.MoveNext
    Loop
End If

Copier une base de donnée

2 réponses

Votre réponse