Pointer sur le bon enregistrement Firebird et delphi2007

Version imprimable

bonjour
depuis ce matin je rame et j'arrive pas à trouve une solution , je suis bloqué
bon voila, je voudrai transfere des données d'une base de données à un autre
j'ai un probleme avec une table (produit) y a 2 cas:
le 1er: quand le produit n'existe pas dans la bdd il l'ajoute , la y a pas de probleme
2eme cas: quand le produit existe deja faudrai faire une MAJ de certain champs ( sur tout stock), mais la j'arrive pas à pointer sur le bon produit, il reste toujour sur le 1er enregistrement
voila mon code

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
57
58
//===================produit================
 with Datamodule3.DETAILBLTRANSFERT_t do
     begin
       Datamodule3.DETAILBLTRANSFERT_t.first ;
        while not Datamodule3.DETAILBLTRANSFERT_t.EOF  do
        begin
        datamodule4.code_barre_t.open;
        datamodule4.Produit_T.open;
        Datamodule3.DETAILBLTRANSFERT_t.Open;
        datamodule4.code_barre_t.open;
         //***********  table produit   ***********
          datamodule4.localise.Close;
          datamodule4.localise.SQL.Text:= 'select * from code_barre where code_barre =:mm';
          datamodule4.localise.Params[0].Value:= datamodule3.DETAILBLTRANSFERT_tCODEBARRE.Value;
          datamodule4.localise.Open;
 
          if datamodule4.localise.RecordCount=1 then
           begin
           showmessage('produit 1');
           datamodule4.Produit_T.edit;
           datamodule4.Produit_TQUANTITESTOCK.Value:= datamodule4.Produit_TQUANTITESTOCK.Value + datamodule3.DETAILBLTRANSFERT_tQUANTITE.value;
           datamodule4.Produit_TPRIXACHAT.value:= datamodule3.DETAILBLTRANSFERT_tPRIXVENTE.Value;
           datamodule4.Produit_TPRIXVENTE.value:= datamodule3.DETAILBLTRANSFERT_tPRIXVENTE.Value;
           datamodule4.Produit_TPRIXVENTEDETAIL.value:= datamodule3.DETAILBLTRANSFERT_tPRIXVENTE.Value;
           datamodule4.Produit_TQUANTITESTOCK.value:= datamodule3.DETAILBLTRANSFERT_tQUANTITE.Value + datamodule4.Produit_TQUANTITESTOCK.value;
           datamodule4.Produit_T.Post;
           datamodule4.Produit_T.close;
           datamodule4.IBTransaction2.Commit;
           datamodule4.Produit_T.open;
            end
            else
              begin
               showmessage('produit a ajouter');
               datamodule4.Produit_T.open;
               datamodule4.Produit_T.Append;
               datamodule4.Produit_TNOMCOMMERCIAL.value:= datamodule3.DETAILBLTRANSFERT_tNOMCOMMERCIAL.Value;
               datamodule4.Produit_TPRIXVENTE.value:= datamodule3.DETAILBLTRANSFERT_tPRIXVENTE.Value;
               datamodule4.Produit_TPRIXACHAT.value:= datamodule3.DETAILBLTRANSFERT_tPRIXVENTE.Value;
               datamodule4.Produit_TPRIXVENTEDETAIL.value:= datamodule3.DETAILBLTRANSFERT_tPRIXVENTE.Value;
               datamodule4.Produit_TQUANTITESTOCK.value:= datamodule3.DETAILBLTRANSFERT_tQUANTITE.Value;
              datamodule4.Produit_T.Post;
              datamodule4.IBTransaction2.Commit;
       //==============ajout CodeBarre===================
              datamodule4.Produit_T.open;
              datamodule4.code_barre_t.open;
              datamodule4.code_barre_t.Append;
              datamodule4.code_barre_tCODE_BARRE.value:= datamodule3.DETAILBLTRANSFERT_tCODEBARRE.Value;
              datamodule4.code_barre_tCODE_PRODUIT.Value:=  datamodule4.Produit_TCODEPRODUIT.Value;
              showmessage('code prod '+ datamodule4.code_barre_tCODE_PRODUIT.AsString);
              datamodule4.code_barre_t.Post;
    //=====================================
 
               end;
 
          Datamodule3.DETAILBLTRANSFERT_t.next;
        end;
   end;
   showmessage('c bon produit');

svp aidez moi c'est vraiment urgent

Et ce que tu peux dir plus à propos de la base de donnée utilisé.
Sinon je pencherais pour un système comme suit
- un query qui extrait les informations de la table source
- un query qui regarde si un enregistrement existe en fonction d'une clé dans la table cible.
- un query qui fait l'update ou l'insert dans la table cible.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 While Not QrySource.Eof do begin QryCheckExistance.ParamByName('LeCritere').AsString := QrySource.FieldByName('LaRef').AsString; QryCheckExistence.Open; Case QryCheckExistence.FieldByName('Exist').AsBoolean of True : //Tu Update la ligne de table Cible False : //Tu Insere la ligne de source vers CIble end; QryCheckExistence.Close; QrySource.Next; end;
Voilà ce que je suis en tran de faire actuellement sauf que comme j'utilise FireBird, c'est une procedure stocké qui se charge de verifier si la ligne existe dans la table cible et de faire directement l'insert ou update de la table cible. Donc du cous, je parcours juste Source et execute ma procedure stocké.

A+

23/12/2008, 15h20
makaphrodite

la base de donnée d'origine y a 3 tables, mais celle qui m'interesse le plus c'est produit ( codeproduit, code_barre, nomcommercial, qtestock)
la base de donnée distination contien : une table produit(codeproduit,qtestock..), et table code_barre( code_barre, code_produit)
et pour voir si le produit existe ou pas je fait le teste sur le code_barre.code_barre
c'est ce que je fais avec la requete localise

Alors
Pourquoi ne pas creer une PS vu que ta base est sous FB. Tiens un truc vite fait sous Firebird

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
 
CREATE PROCEDURE TPRODUIT_IMPORT(
    PCODEPRODUIT VARCHAR(25),
    PCODEBARRE VARCHAR(25), 
    PNOMCOMMERCIAL VARCHAR(100),
    PQTESTOCK INTEGER,
    PPRIXACHAT NUMERIC(14,2),
    PPRIXVENTE NUMERIC(14,2),
    PPRIXVENTEDETAIL NUMERIC(14,2))
AS
BEGIN
  IF (EXISTS(SELECT CODE_BARRE FROM CODE_BARRE WHERE (UPPER(CODE_BARRE) = UPPER(:PCODEBARRE)))) THEN
  BEGIN
    UPDATE PRODUIT 
    SET QTESTOCK = QTESTOCK + :PQTESTOCK,
        PRIXACHAT = :PPRIXACHAT,
        PRIXVENTE = :PPRIXVENTE,
        PRIXVENTEDETAIL = :PPRIXVENTEDETAIL
    WHERE (UPPER(CODE_BARRE) = UPPER(:PCODEBARRE));
  END
  ELSE
  BEGIN
    INSERT INTO  CODE_BARRE (
        CODE_BARRE,
        CODE_PRODUIT)
    VALUES (
        UPPER(:PCODEBARRE), 
        :PCODEPRODUIT);
 
    INSERT INTO PRODUIT (
        CODE_BARRE, 
        CODEPRODUIT,        
        NOMCOMMERCIAL,
        QTESTOCK,
        PRIXACHAT,
        PRIXVENTE,
        PRIXVENTEDETAIL)
    VALUES (
        UPPER(:PCODEBARRE), 
        :PCODEPRODUIT,        
        :PNOMCOMMERCIAL,
        :PQTESTOCK,
        :PPRIXACHAT,
        :PPRIXVENTE,
        :PPRIXVENTEDETAIL);
  END    
END

Maintenant à l'utilisation, tu aura besoin d'un compo IbStoredproc ou equivalent et d'une Query ou ta table DETAILBLTRANSFERT_t

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
 
with Datamodule3 do
Try
    //Start Transaction
    DETAILBLTRANSFERT_t.Open;
    DETAILBLTRANSFERT_t.First;
    IB_PROC.StoredProcName := 'TPRODUIT_IMPORT';//Notre composant IbStoredProc
    IB_PROC.Transaction.StartTransaction;        
    While Not DETAILBLTRANSFERT_t.Eof do
    begin
        IB_PROC.Close;
        IB_PROC.ParamByName('PCODEPRODUIT').AsString           := DETAILBLTRANSFERT_tCODEPRODUIT.Value;
        IB_PROC.ParamByName('PCODEBARRE').AsString             := DETAILBLTRANSFERT_tCODEBARRE.Value;
        IB_PROC.ParamByName('PNOMCOMMERCIAL').AsString         := DETAILBLTRANSFERT_tNOMCOMMERCIAL.Value;
        IB_PROC.ParamByName('PQTESTOCK').AsInteger             := DETAILBLTRANSFERT_tQUANTITE.value;
        IB_PROC.ParamByName('PPRIXACHAT').AsCurrency         := DETAILBLTRANSFERT_tPRIXVENTE.Value;
        IB_PROC.ParamByName('PPRIXVENTE').AsCurrency         := DETAILBLTRANSFERT_tPRIXVENTE.Value;
        IB_PROC.ParamByName('PPRIXVENTEDETAIL').AsCurrency    := DETAILBLTRANSFERT_tPRIXVENTE.Value;            
        IB_PROC.ExecProc;
        DETAILBLTRANSFERT_t.Next;
    end;
    IB_PROC.Transaction.Commit;
    IB_PROC.Close;
Except
    IB_PROC.Transaction.RollBack; //Erreur;
end;

Regarde si j'ai raté un truc sinon adapte le code.

A+

voila ce que j'ai fait pour résoudre mon problème, merci pour votre aide

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
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
 if (Datamodule3.BLTRANSFERT_tVERIF.Value <> 1) then
    begin
      datamodule4.BonEntre_t.Active:= true;
      datamodule4.BonEntre_t.Append;
      datamodule4.BonEntre_tDATEBE.Value:= datamodule3.BLTRANSFERT_tDATEBL.Value;
      datamodule4.BonEntre_tNUMFOURNISSEUR.Value:= 1;
      datamodule4.BonEntre_tOBSERVATION.asstring:= 'livraison de la direction';
      datamodule4.BonEntre_t.Post;
//=====================================
//===================produit================
 with Datamodule3.DETAILBLTRANSFERT_t do
     begin
       Datamodule3.DETAILBLTRANSFERT_t.first ;
        while not Datamodule3.DETAILBLTRANSFERT_t.EOF  do
          begin
        datamodule4.code_barre_t.open;
        Datamodule3.DETAILBLTRANSFERT_t.Open;
        datamodule4.code_barre_t.open;
         //***********  table produit   ***********
          datamodule4.codebarre_qr.Close;
          datamodule4.codebarre_qr.Params[0].Value:= datamodule3.DETAILBLTRANSFERT_tCODEBARRE.Value;
          datamodule4.codebarre_qr.Open;
          if datamodule4.codebarre_qr.RecordCount=1 then
             begin
           valcodeproduit := datamodule4.codebarre_qrCODE_PRODUIT.Value;
           datamodule4.localise.SQL.clear;
           datamodule4.localise.SQL.text := 'select * from produit where codeproduit = :cdeprod';
           datamodule4.localise.Params[0].Value:= valcodeproduit;
           datamodule4.localise.Open;
            if datamodule4.localise.RecordCount=1 then
               begin
 
           datamodule4.Produit_T.edit;
           datamodule4.Produit_TPRIXACHAT.value:= datamodule3.DETAILBLTRANSFERT_tPRIXVENTE.Value;
           datamodule4.Produit_TPRIXVENTE.value:= datamodule3.DETAILBLTRANSFERT_tPRIXVENTE.Value;
           datamodule4.Produit_TPRIXVENTEDETAIL.value:= datamodule3.DETAILBLTRANSFERT_tPRIXVENTE.Value;
          // datamodule4.Produit_TREF.value:= datamodule3.DETAILBLTRANSFERT_tREF.Value;
                 if datamodule4.Produit_T.Locate('codeproduit',ValCodeProduit,[loPartialkey]) then
                  begin
                   datamodule4.Produit_T.edit;
                   datamodule4.Produit_TQUANTITESTOCK.Value:=   datamodule4.Produit_TQUANTITESTOCK.Value + datamodule3.DETAILBLTRANSFERT_tQUANTITE.Value
                  end;
           datamodule4.Produit_T.Post;
           datamodule4.Produit_T.close;
           datamodule4.IBTransaction2.Commit;
           datamodule4.Produit_T.open;
 
               end;
            end
            else
              begin
               datamodule4.Produit_T.open;
               datamodule4.Produit_T.Append;
               datamodule4.Produit_TNOMCOMMERCIAL.value:= datamodule3.DETAILBLTRANSFERT_tNOMCOMMERCIAL.Value;
               datamodule4.Produit_TPRIXVENTE.value:= datamodule3.DETAILBLTRANSFERT_tPRIXVENTE.Value;
               datamodule4.Produit_TPRIXACHAT.value:= datamodule3.DETAILBLTRANSFERT_tPRIXVENTE.Value;
               datamodule4.Produit_TPRIXVENTEDETAIL.value:= datamodule3.DETAILBLTRANSFERT_tPRIXVENTE.Value;
               datamodule4.Produit_TREF.value:= datamodule3.DETAILBLTRANSFERT_tREF.Value;
               datamodule4.Produit_TQUANTITESTOCK.value:= datamodule3.DETAILBLTRANSFERT_tQUANTITE.Value;
               datamodule4.Produit_T.Post;
               position:=datamodule4.Produit_T.GetBookmark;
               datamodule4.IBTransaction2.Commit;
       //==============ajout CodeBarre===================
              datamodule4.Produit_T.open;
              datamodule4.Produit_T.GotoBookmark(position);
              datamodule4.code_barre_t.open;
              datamodule4.code_barre_t.Append;
              datamodule4.code_barre_tCODE_BARRE.value:= datamodule3.DETAILBLTRANSFERT_tCODEBARRE.Value;
              datamodule4.code_barre_tCODE_PRODUIT.Value:=  datamodule4.Produit_TCODEPRODUIT.Value;
              datamodule4.code_barre_t.Post;
    //=================Fin CB ====================
              end;
 
          Datamodule3.DETAILBLTRANSFERT_t.next;
        end;
   end;
     showmessage('transfer du produit est fini');