Discussion :

[reuqnas]

Bonjour,

j'aimerai savoir comment en delphi, faut il faire pour mettre a jour un champs de foxpro avec une valeur calculer en delphi, je m'explique j'ai un champs vide dans foxpro, j'aimerai en parcourant cette requête, je fait diverses opération ou j'obtient un toto avec une valeur différente a chaque tour de boucle et j'aimerai donc insérer cette valeur a chaque fois dans ma table foxpro, j'ai essayer avec :

Code :

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

1
2
3
4
5
6
7
 
sql := 'update matable set champs1 := ' + toto  ;
 
    replacesql('tmp', sql);
    execsql('tmp');                                 
    firstrecord('tmp');                                                              
    While not QueryEOF('tmp') do

merci de votre aide

[SergioMaster]

Bonjour,

ce code ressemble plus a du code foxpro que delphi !

en supposant
1 - que le BDE attaque une table foxpro (jamais essayé)
2- que FoxPro traite le SQL (à la manière de Paradox)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Query.SQL.Clear;
Query.SQL.Text:='update matable set champs1 =:toto'  ; 
Query.ParamByName('toto').asSTring:='Toto';
Query.ExecSQL;
// à ce stade tous les enregistrements de la Table auront la colonne 1 = 'Toto'
 
Query.SQL.Text:='SELECT * FROM MATABLE';
Query.Open; (ou Query.Active:=True);              // on est déjà sur le 1° Record 
While not Query.EOF do
 begin
   .... // Traitement
   Next; 
 end;