Discussion :

[andreditdd]

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é

[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.

[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 ).
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é

[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.

[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é

[Rayek]

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 :

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

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;

[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é

[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ù ^^).

[andreditdd]

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

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 :

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

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é

[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 :

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

1
2
 
SQL.add('Where champ1 = ' + ADOQuery1.FieldByName('champ1').AsString);

Mais pour un alphanumérique il faut encadrer par des ' la valeur.

Code :

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

1
2
 
SQL.add('Where champ1 = ' + QuotedStr(ADOQuery1.FieldByName('champ1').AsString));

[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é

[Rayek]

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

Code :

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

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

[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é

[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é

[Rayek]

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

[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 :

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

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

???????????

André

[Rayek]

Non

Code :

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

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

[andreditdd]

Super, MERCI

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é