Discussion :

[helico57570]

Bonjour à tous,

Voici mon problème....
Un bouton "Export" qui lorsque l'on clique copie tous les entrées d'une table dans une BDD et qui l'envoie vers la même table se trouvant dans une autre BDD..
Le but? sauver les données dans une autre BDD..

Mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandExport_Click()
 
Dim MaDB As DAO.Database
Set MaDB = CurrentDb()
On Error GoTo SendError
MsgBox ("Before exporting all datas, be sure that the computer is connected to the harddrive/server!")
CurrentDb.Execute "INSERT INTO  tblPatientAdmins IN 'C:\Users\dnr\Desktop\20131029(3)FWDatabaseAccess2010\LARAdminV1.accdb' SELECT * FROM tblPatientAdmins"
SendError:
    MsgBox ("A problem occured with the connection to the server, close the database and try again!")
    Exit Sub
 
End Sub

Mon problème?
Eh bien, rien ne se passe et pourtant la localisaton de la seconde BDD est bien C:\Users\dnr\Desktop\20131029(3)FWDatabaseAccess2010\LARAdminV1.accdb' SELECT * FROM tblPatientAdmins

Alors que se passe-t-il?
Faut il activer une librairy ou mon code est il faux?

Merci à vous...

[Thierry_PALLIER]

Bonjour helico57570
Je crois que la méthode Execute ne renvoie pas de message d'erreur(s) !
Quand çà marche ,c'est bien ,sinon tant pis !
Et je crois que l'asterix "*" ne marche pas non plus pour ce type de requête. Dans le doute,nomme tous tes champs.
Cdlt

[Tofalu]

Votre code est bizarre : dans tous les cas, erreur ou non vous passez dans SendError:

Vous affectez Currentdb à MaDb mais vous ne vous en servez pas, curieux.

Vous avez essayé de lancer le SQL directement depuis Access ?

[helico57570]

Bonjour,

J'ai également fait un RunSql du type Insert into....mais là, j'ai eu un message d'erreur de type violiation de clé...

Je m'explique:
En fait dans la première DB, la clé primaire est un autonumber..
Dans la seconde DB, la clé primaire change sur un autre champ mais qui existe aussi dans la première DB(Sans être la clé primaire).
Avant l'exportation de la DB1 vers la DB2, j'active une requête de modification combinant différents paramètres de la même table, pour enfin remplir ce champ qui deviendra la clé primaire dans la seconde DB
Y'a-t-il un moyen de résoudre ce problème de violation, car finalement cela résoudrait tout....

Merci

[Kloun]

Bonjour,

L'option dbFailOnError sur le execute permet de s'arrêter si erreur:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

maDB.Execute monSQL, dbFailOnError

Et pour le problème d'insertion, une jointure sur la table dans laquelle il faut ajouter devrait permettre de n'ajouter que les lignes manquantes.