synchroniser bdd access avec oracle

Version imprimable

02/05/2007, 20h01
andreditdd

synchroniser bdd access avec oracle

Bonjour,
j'aimerais pouvoir transférer des données situées sur une bdd access stoké en local dans une bdd oracle située sur un serveur.
J'aimerais qu' apres le transfert, il y ai un test qui permet de savoir si ce transfert c'est bien déroulé.
Dans ce cas, les données de la bdd access seront suprimées.

Je ne sais pas par où commencer.

Merci d'avance,
André
03/05/2007, 08h51
Rayek
Il faudrait que tu sois un peut plus précis au niveau de ton problème, car ta demande est un peu vague.

pour ma part je ferais de la manière suivante :

1- Transfert de l'intégralité des données ACCESS vers Oracle.
2- Parcours des données de la table ACCESS avec ceux de la table oracle.
- Si Données Access = Données Oracle alors on supprime la ligne dans Access
- Si Données Access <> Données Oracles alors on passe à la ligne suivante.
3- Vérification de ce qu'il reste dans Access et étude des problèmes qu'ont rencontré les lignes restantes.
03/05/2007, 13h05
andreditdd

Merci pour ta réponse.
C'est en fait comme cela que je voyais la chose mais je ne vois pas trop bien comment réaliser ça.

En fait, pour préciser, j'ai une application qui doit enregistrer ses données dans une base Oracle distante (ça je sais le faire :lol: ).
Comme le réseau n'est pas infaillible, je demande à mon application de tester si la connection est ok (ça aussi c'est ok).
Si la connection est out, je demande à mon application de stocker ses données dans une base Access locale (re ok).

Le probleme c'est que j'aimerais que quand la connection est rétablie, mon application transfere les données Access vers Oracle, teste si le transfert est ok et effaces les données Access si le transfert c'est bien déroulé.

Merci,
André
03/05/2007, 14h47
Rayek

Bin au moment ou ta connexion est Ok, tu vérifies que tu n'es pas de données dans la table ACCESS.
Si tu as des données tu les transferes comme tu ferais pour des données normales sauf que la source est la table ACCESS au lieu de la source d'origine que tu as.
Dès que le traitement avec la table Access est finit, tu relances le transfert normal des données vers Oracle.
03/05/2007, 17h55
andreditdd

Merci pour ta réponse,
mais je ne comprend pas bien comment réaliser ça car si j'ai bien compris le systeme des Query, je dois en mettre un par BDD.
Avec mon Query1 je peux selectionner les données de la BDD1 mais pour écrire les données dans la BDD2 je dois employer le Query 2.
Pour tester, je ne peux pas comparer les value des 2 Query car la BDD2 comprend les données de la BDD1 + d'autre données. Donc les 2 BDD ne seront jamais équales.

Merci,
André

Citation:

Envoyé par andreditdd

Merci pour ta réponse,
mais je ne comprend pas bien comment réaliser ça car si j'ai bien compris le systeme des Query, je dois en mettre un par BDD.
Avec mon Query1 je peux selectionner les données de la BDD1 mais pour écrire les données dans la BDD2 je dois employer le Query 2.
Pour tester, je ne peux pas comparer les value des 2 Query car la BDD2 comprend les données de la BDD1 + d'autre données. Donc les 2 BDD ne seront jamais équales.

Merci,
André

Ca ne gène en rien.
il te suffit de faire une recherche des données de QueryAccess en réalisant une requete avec la QueryOracle :
- si les données correspondent (valeur des champs) alors c'est que tu as
- si les données ne correspondent pas, à toi de voir si tu mets à jours ou si tu abandonnes
- Si les données ne sont pas trouvées alors tu les rajoutes à ta base Oracle.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 With QueryAccess do begin Close; SQL.Clear; SQL.Add('Select * from LaTbleQuiVaBien'); Open; end; While not QueryAccess.Eof do begin With QueryOracle do begin Close; SQL.Clear; SQL.Add('Select * from LaTableQuiVaBien'); SQL.add('Where LeChampQuiVaBien = ' + QueryAccess.FieldByName('LeChampQuiVaBien').AsString; Open; // traitement des cas if RecordCount > 0 then // Traitement des cas Identique et pas identique else // Traitement du cas où les données ne sont pas trouvées dans Oracle end; // With QueryAccess.next; end;

04/05/2007, 10h25
andreditdd

Un grand merci Malatar,
j'avoue que là je suis dans les cordes et que je ne maitrise pas :?

J'ai essayé ton code mais à l'execution, j'ai un message d'erreur:
Le paramètre "Ce qui ce trouve dans le champquivabien" n'a pas de valeur par défaut

Merci pour ta patience,
André
04/05/2007, 10h31
Rayek

Fait voir le code que tu as écrit en laissant les noms des tables et champs que tu utilises afin que je puisse corriger au cas où.
Car j'espère que tu as compris que LeChampQuiVaBien était un exemple et qu'il fallait que tu mettes un champs significatif de ta table (Je préfère préciser au cas où ^^).

Citation:

Malatar à écrit: Car j'espère que tu as compris que LeChampQuiVaBien était un exemple et qu'il fallait que tu mettes un champs significatif de ta table (Je préfère préciser au cas où ^^).

Oui oui, j'avais bien compris :mrgreen:

Pour mon essai, j'ai placé 2 BDD access avec un seul champ sur chacune d'elle.
J'ai 2 ADOConnection et 2 Query (+ grids pour visualiser).
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 procedure TForm1.Button1Click(Sender: TObject); var test : string; begin With ADOQuery1 do begin Close; SQL.Clear; SQL.Add('Select * from Table1'); Open; end; While not ADOQuery1.Eof do begin With ADOQuery2 do begin Close; SQL.Clear; SQL.Add('Select * from Table1'); SQL.add('Where champ1 = ' + ADOQuery1.FieldByName('champ1').AsString); Open; // traitement des cas if RecordCount > 0 then // Traitement des cas Identique et pas identique else // Traitement du cas où les données ne sont pas trouvées dans Oracle end; // With ADOQuery1.next; end; end;
Encore merci,
André

04/05/2007, 11h33
Rayek
Champ1 est numérique ou alphanumérique ?
Car ca change au niveau de l'appel des variables en SQL.

pour un numérique il faut écrire de la manière suivante :
Code:

1 2 SQL.add('Where champ1 = ' + ADOQuery1.FieldByName('champ1').AsString);
Mais pour un alphanumérique il faut encadrer par des ' la valeur.
Code:

1 2 SQL.add('Where champ1 = ' + QuotedStr(ADOQuery1.FieldByName('champ1').AsString));
04/05/2007, 12h40
andreditdd

Merci Malatar,
en ce qui concerne ta derniere correction, c'est impec.
Neanmoin, je ne m'en sort pas.
Comme je pense que c'est moi qui m'y prend comme une bille,
je joint mon fichier d'essai afin de vous aider dans l'aide que vous m'apportez.

Pour info, la BDD temporaire access comprendra < de 100 ligne sur une vingtaine de colonnes et la BDD Oracle aura des milliers de lignes et les mèmes colones.

André

1 pièce(s) jointe(s)

J'ai corrigé ton code (je me suis permis de renommer tes composants), mais la logique m'échappe franchement.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 With AA1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('Select * from Table1');
    Open;
  end;
 
  While not AA1.Eof do
  begin
    With AO2 do
    begin
      Close;
      SQL.Clear;
      SQL.Add('Select * from Table1');
      SQL.add('Where champ1 = ' + QuotedStr(AA1.FieldByName('champ1').AsString));
      Open;
 
      // traitement des cas
      if RecordCount > 0 then begin
       // Traitement des cas Identique et pas identique
      end
      else begin
        // Traitement du cas où les données ne sont pas trouvées dans Oracle
// -------------------------------------
        Close;
        SQL.Clear;
        SQL.Add('Insert into table1 (N°,champ1,champ2)');
        SQL.Add('Values ( :SN°,:SNR100,:SDAT)');
        ParamCheck := True;
        Parameters.ParamByName('SN°').Value := 1;
        Parameters.ParamByName('SNR100').Value := 'ok';
        Parameters.ParamByName('SDAT').Value := 'reok';
        try
          ExecSQL;
        Except on E:Exception do
          Memo1.Lines.add('Erreur insert new : ' + E.Message);
        end; // try
// pourquoi insères tu des données autre que celle de la table d'où tu fais des recherche ????
// -------------------------------------
      end; // if
    end; // With
    AA1.next;
  end; // while
 
  With AO2 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('Select * from table1');
    Open;
  end;
end;

AA1 = Adoquery1 connecté à bd1
AO1 et AO2 sont connecté à bd2

04/05/2007, 15h22
andreditdd

Un Grand merci Malatar,
pour la logique, je t'explique l'idée:
L'utilisateur dois entrer des données dans une base de données Oracle distante ( de l'ordre de 200 lignes de +- 20 données par 24 heures).
Ces données sont très importantes et ne peuvent pas se perdre.
En cas de rupture de réseau, le travail ne peut pas s'arreter donc je pense le permettre en remplacant dans ce cas le stockage en local sur une BDD temporaire.
Quand le réseau est réparé, il faut que les données stockées en local alimentent la BDD distante et ce sans augmenter la masse de travail de l'utilisateur.

L'exe que j'ai envoyé n'est qu'un petit test loin de la réalité afin de comprendre comment réaliser ce transfert.

Je te suis Très reconnaissant de ton aide,

André
04/05/2007, 15h35
andreditdd

Malatar, effectivement, je ne cherche pas à insèrer des données autre que celle de la table où je fais des recherche.
C'était un bout de code que j'avais placé pour tester le début du code.

Je dois mettre quoi à la place ???

André
04/05/2007, 15h44
Rayek

Citation:

Envoyé par andreditdd

Malatar, effectivement, je ne cherche pas à insèrer des données autre que celle de la table où je fais des recherche.
C'était un bout de code ue j'avais placé pour tester le début du code.

Je dois mettre quoi à la place ???

André

J'aurais inséré les données de la table1 de la Bd1 à la place de faire ton insert sur des données qui n'ont rien à voir.
Car avec ton code, tu n'as rien transferé du tout, tu as vérifié s'il n'existait pas dans la BD2 les données de la BD1, et si ca n'existe pas, alors j'insère des données sortie de nuls part.
Il est clair que le test de vérifications si ca existe dans la BD2 te renverra toujours que ca n'existe pas.

J'espère avoir été clair :mrgreen:
04/05/2007, 15h52
andreditdd

Malatar, tu as raison.
Je dois inséré les données de la table1 de la Bd1 dans la bd2.
Le truc c'était un test.

Je dois bien mettre un:

Code:

SQL.Add('Insert into table1 (' + QuotedStr(AA1.FieldByName('champ1').AsString))');

???????????

André

Non
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Close; SQL.Clear; SQL.Add('Insert into table1 (N°,champ1,champ2)'); SQL.Add('Values ( :SN°,:SNR100,:SDAT)'); ParamCheck := True; Parameters.ParamByName('SN°').Value := AA1.fieldByName('N°').asInteger; // j'avais aps vu mais a éviter les nom avec de caractère hors lettre et chiffre Parameters.ParamByName('SNR100').Value := AA1.fieldByName('Champ1').asString; Parameters.ParamByName('SDAT').Value := AA1.fieldByName('Champ2').asString; try ExecSQL; Except on E:Exception do Memo1.Lines.add('Erreur insert new : ' + E.Message); end; // try
Enfin je pense que c'est çà.

C'est pourtant pas dur.

1- Je prend la première ligne de ma source de données 1 (BD1/Table1)
2- Je vérifie que cette ligne n'existe pas dans la base de données 2 (BD2/Table1)
3- La source n'existe pas, alors j'insère les données de la BD1/Table1 dans la BD2/Table2

Je peux pas faire mieux, après je dois te faire le programme et c'est pas le but :P

04/05/2007, 16h24
andreditdd

Super, MERCI :king:

C'est cela que je voulais.
Je ne savais pas si je devais indiquer les champs un par un comme tu 'as fais ou mettre un *.
Tu as répondu à toutes mes interrogations du moment...

Je te remercie pour ta patience et le temps passé pour moi,
André