afalaque
Messages postés1Date d'inscriptionjeudi 21 janvier 2010StatutMembreDernière intervention21 janvier 2010
-
21 janv. 2010 à 10:44
Bonjour,
Je vais être bref. Je code un programme en delphi 7 qui a pour but de copier un fichier texte dans une table sous sql server 2008 avec le composant ADOT. Une fois la table remplie j'ouvre une autre table paradoxe avec le composant BDE simple. Je dois comparer les deux tables et mettre à jour la table paradoxe si il y a une valeur commune d'apres le champ LSNRMTD(table paradoxe) et lieferschein ( table normale). Mon soucis est la, dans la table paradoxe il y a une clé composé de deux champs clé1,LSNRMTD alors que dans ma table normale il n'y a pas de clé primaire car c'est une table unique. J'ai fait :
ADOT_XSST.first
while not ADOT_XSST.EOF do
begin
while not T_fusion.eof do
begin
if T_fusion.FieldByName('LSNRMTD').value =ADOT_XSST.FieldByName('lieferschein').value then
begin
T_fusion.edit
T_fusion.FieldByName('KDGRP').Value:=ADOT_XSST.fieldbyname('Kundengrup').Value;
...
T_fusion.post
end;
T_fusion.next
end;
end;
Cela marche mais le resultat est beacoup beaucoup trop long.
QUand j'essaye de faire