[VB/VBA/VBS] Lier 2 bases access avec VB6

Lier 2 bases access avec VB6 [VB/VBA/VBS] - VB/VBA/VBS - Programmation

Marsh Posté le 11-03-2005 à 10:45:36    

Salut
 
voilà j'ai un petit problème sous vb6 :
 
J'ai 2 bases access et je voudrais lier les tables d'une des 2 bases dans l'autre.
 
Sous VBA dans access : aucun problème, mais sous VB6 ca ne mar che pas...
 
Mon code est celui-ci :
 

Code :
  1. Dim DBS_1 As Database
  2. Dim DBS_2 As Database
  3. Dim RCS_rs As Recordset
  4. Dim DatabaseName As String
  5. Dim DatabaseName_2 As String
  7. DatabaseName="d:\datas\base_num_1.mdb"
  8. DatabaseName_2="d:\datas\base_num_2.mdb"
  10. ' ouvrir la base 1
  11. Set DBS_1 = OpenDatabase(DataBaseName, False, False)
  13. ' faire le lien entre les 2 bases
  14. DoCmd.TransferDatabase acImport, "Microsoft Access", DataBaseName_2, acTable, "T_Fichier_Boutons", "T_Fichier_Boutons"
  16. Requete = "SELECT * FROM T_Fichier_Boutons;"
  17. Set RCS_rs = DBS_1.OpenRecordset(Requete)


 
La commande transferdatabase ne retourne pas d'erreur mais ne donne aucun resultat, la table n'est pas liée et la requete qui vient après se plante lamentablement...
 
Quelqu'un pourrait-il me filer un ptit coup de main et me dire ou est mon erreur ??
 
Merci

Reply

Marsh Posté le 11-03-2005 à 10:45:36   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed