Discussion :

[delphino7]

bonjour

jai deux table T1 et T2 ; T1 elle a 9 colonnes X1.......X9, T2 9 colonnes aussi J1....................J9 jaimerai remplir les colonnes de T2 seulement si la colonne
de T1 et remli ( elle nest pas vide ) je copie la colonne rempli dans lune des colonnes vide de T2 voila ce que jai fait :

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
procedure TForm3.Button8Click(Sender: TObject);
begin
Table1.First;
while not Table1.Eof do
 begin
    Table2.Insert;
    If Table1.FieldByName('x1').AsInteger <> 0 then
     begin
     Table2.FieldByName('Lignes').AsString := Table1.FieldValues['Lignes'];
     Table2.FieldByName('J1').AsInteger := Table1.FieldValues['X1'];
     end
     else
     if Table1.FieldByName('X2').AsInteger <> 0 Then
     begin
     Table2.FieldByName('Lignes').AsString := Table1.FieldValues['Lignes'];
     Table2.FieldByName('J2').AsInteger := Table1.FieldValues['X2'];
     end
     else
     if Table1.FieldByName('X3').AsInteger <> 0 Then
     begin
     Table2.FieldByName('Lignes').AsString := Table1.FieldValues['Lignes'];
     Table2.FieldByName('J3').AsInteger := Table1.FieldValues['X3'];
     end
     else
     if Table1.FieldByName('X4').AsInteger <> 0 Then
     begin
     Table2.FieldByName('Lignes').AsString := Table1.FieldValues['Lignes'];
     Table2.FieldByName('J4').AsInteger := Table1.FieldValues['X4'];
     end
     else
     if Table1.FieldByName('X5').AsInteger <> 0 Then
     begin
     Table2.FieldByName('Lignes').AsString := Table1.FieldValues['Lignes'];
     Table2.FieldByName('J5').AsInteger := Table1.FieldValues['X5'];
     end
     else
     if Table1.FieldByName('X6').AsInteger <> 0 Then
     begin
     Table2.FieldByName('Lignes').AsString := Table1.FieldValues['Lignes'];
     Table2.FieldByName('J6').AsInteger := Table1.FieldValues['X6'];
     end
     else
     if Table1.FieldByName('X7').AsInteger <> 0 Then
     begin
     Table2.FieldByName('Lignes').AsString := Table1.FieldValues['Lignes'];
     Table2.FieldByName('J7').AsInteger := Table1.FieldValues['X7'];
     end
     else
     if Table1.FieldByName('X8').AsInteger <> 0 Then
     begin
     Table2.FieldByName('Lignes').AsString := Table1.FieldValues['Lignes'];
     Table2.FieldByName('J8').AsInteger := Table1.FieldValues['X8'];
     end;
 table2.post;
end;

ici le program verifi juste la 1er colonne et transfert les enregistrement sil trouve la colonne rempli (non vive) vers la 1er colonne de la table2 mais il ne s'arrete pas en plus il verifi juste la 1 er colonne de la table1 les autres colonnes il ne les verifi pas


est-ce que quelqu'un peu m'orienter ou m'aider svp ?


merci

[Cl@udius]

ici le program verifi juste la 1er colonne et transfert les enregistrement sil trouve la colonne rempli (non vive) vers la 1er colonne de la table2 mais il ne s'arrete pas en plus il verifi juste la 1 er colonne de la table1 les autres colonnes il ne les verifi pas

C'est normal puisque tu utilises des if..then..else. Si le 1° if est à true il n'exécute pas la partie else.

Je verrais plutot ceci avec une boucle:

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
procedure TForm3.Button8Click(Sender: TObject);
var
  I: Integer;
  FldSrc, FldDest: string;
begin
  Table1.First;
  while not Table1.Eof do
  begin
    Table2.Insert;
    Table2.FieldByName('Lignes').AsString := Table1.FieldValues['Lignes'];
    for I := 1 to 9 do
    begin
      FldSrc := 'X' + IntToStr(I);
      FldDest := 'J' + IntToStr(I);
      if not Table1.FieldByName(FldSrc).IsNull then
        Table2.FieldByName(FldDest).AsInteger := Table1.FieldByName(FldSrc).AsInteger;
    end;
    Table2.Post;
    Table1.Next;
  end;
end;

@+

[delphino7]

merci je vais lessayer et je te rend la reponse tout de suite


merci

[delphino7]

tu sais au debut il a fait il a tester tout les colonnes et rempli les autres

mais quand jai fait un deuxieme test apres avoir supprimer tout les enregistrement ,jai clicker pour fair le test il a rempli que la premiere colonnes de la T2 en plus il ne sais pas arreter !!!!


pourquoi ?

merci

[delphino7]

non attend cl@udius tu sais quoi jai compris lerreur moi je regarder la table physiquement je veu dir dans le database desktop pour voir le resulta alors la table2 ma eu elle me mentrer la trace quelle a garder de mon premeir test

donc quesque jai fait jai mit un dbgrid et crois moi il maffiche le bon resulta

merci


mais tu sais cl@udius je ne sais toujours pas Vider une table avec ton prgram il maffiche toujours 'table is busy 'tu sais jai vraiment besoin de ce program pour vider completement mes tables pour que la table ne garde aucune trace
sil te plait


merci

[Cl@udius]

mais tu sais cl@udius je ne sais toujours pas Vider une table avec ton prgram il maffiche toujours 'table is busy 'tu sais jai vraiment besoin de ce program pour vider completement mes tables pour que la table ne garde aucune trace
sil te plait

Ce n'est pas là qu'il fallait continuer cette discussion, mais bon:

Code SQL :

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

1
2
 
   DELETE FROM TA_TABLE;

Tout simplement.

[delphino7]

ok je vais clicker sur resolu et je vais ouvrir une autre discuttioon pour vider une table ok merci