Ma Question :
Il s'agit de mettre en place un programme en VB de transfert de données d'une Base en access 1 vers Access 2000 en ADOX
Pour cela j'ai déjà crée une BD avec les tables et les colonnes(contenant leur titre) en ADOX, et fais un essai avec le petit prog en VB pour connaître les tables et les champs de Based2000, ça marche, mais je suis bloqué pour la mise en place de prog pour le transfert de toutes les données de Access 1 vers Access 2000.
Access 1 (BD s'appelle Based Contient 41 tables (y compris Tables Locales et Liées)
Access 2000 s'appelle Based2000 (41 Tables)
Voici le code qui permet de connaître le nbre de tables ainsi que les champs dans BD 2000


Sub Main()
Call ADOListTables
End Sub

Sub ADOListTables()
Dim cat As New ADOX.Catalog
Dim db As ADODB.Connection
Dim i As Integer
Dim j As Integer
'Ouverture du catalogue
cat.Activeconnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=C:\Documents and Settings\DARIUS\Bureau\dossier darius\Based2000.mdb"
'Création d'une boucle dans la base de données et impression du nom des tables
For i = 0 To cat.Tables.Count - 1
If cat.Tables(i).Type = "TABLE" Then
MsgBox cat.Tables(i).Name
'Création d'une boucle dans une table de la BD et impression des champs d'une table
For j = 0 To cat.Tables(i).Columns.Count - 1
MsgBox cat.Tables(i).Columns(j).Name
Next j
End If
Next i
End Sub

Je pense que à partir de For i il faire une requête avec le prog.
Si vous pouviez m'aider je vous en remercie.
merci.