Migration de BDD Paradox vers SQL server Problème dans le programme Delphi

Version imprimable

18/02/2016, 15h40
fatimaroza77

Migration de BDD Paradox vers SQL server Problème dans le programme Delphi

Bonjour,

quand j'ai migré la base de données Paradox vers SQL server dans mon programme Delphi 6 un message d'erreur : identificateur non declaré : 'Set Key'
comment je peux résoudre ce problème ?
19/02/2016, 10h03
Ph. B.

Bonjour,

Citation:

Envoyé par fatimaroza77

quand j'ai migré la base de données Paradox vers SQL server dans mon programme Delphi 6 un message d'erreur : identificateur non declaré : 'Set Key'
comment je peux résoudre ce problème ?

Pour l'instant, je ne sais pas... :? mais peut-être qu'en donnant un peu plus de détails de l'endroit où cela se passe (requête Sql, script, code delphi à la compilation, l'exécution), on pourra vous donner des réponses pertinentes... :zoubi:
21/02/2016, 09h11
fatimaroza77

Bonjour;
on voulant migrer ma base de données de paradox vers adodb (base de données Sql) dans le programme delphi de l'application et aprés le basculment de la base de données lors de la compliation du programme une erreur apparait lors de la compliation :
identificateur non déclaré :'Set Key'
21/02/2016, 09h15
tourlourou

Il ne te reste plus qu'à nous fournir la portion de code signalée fautive par le compilateur pour que nous puissions essayer de t'aider à résoudre le problème.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
if bd.decompte.FieldValues['pris_charg']='O' THEN
                     begin
                       bd.decompte.Open;
 
 
                       bd.decompte.SetKey; // l'erreur se déclenche  à ce niveau         
                       bd.decompte.Fields[0].AsString:=querymis.FieldValues['num_ordmis'];
                            then
                             begin
                             bd.lg_decompte.SetKey;
                             bd.lg_decompte.Fields[0].AsString:=dbedit3.Text;
                             bd.lg_decompte.Fields[1].AsString:='A';
                             if bd.lg_decompte.GotoKey then
                              begin
                              bd.lg_decompte.Edit;
                              bd.lg_decompte.FieldValues['codfrai']:='A';
                             bd.lg_decompte.FieldValues['nbre']:=1;
                              bd.lg_decompte.FieldValues['mont_unit']:='2400,00';
                              bd.lg_decompte.FieldValues['mont_tot']:=(bd.lg_decompte.FieldValues['mont_unit']*bd.lg_decompte.FieldValues['nbre'])*25/100;
                              bd.lg_decompte.Post;
                              end;
                             end;

21/02/2016, 10h58
tourlourou

Il est certain que la communication des types de bd et de son membre decompte serait un plus pour l'aide à la résolution du problème, puisque la teneur du message d'erreur indique clairement que SetKey n'est pas reconnu comme une méthode de bd.decompte...

Bonjour,

a mon avis SetKey est inutile et tout ce code serait certainement bien mieux remplacé par un ordre SQL !

Code:

1
2
3
4
 
if bd.decompte.FieldValues['pris_charg']='O' THEN
                     begin
                       bd.decompte.Open;

comment on peu tester une valeur si bd.decompte n'est pas déjà ouvert !

Code:

1
2
3
4
5
6
7
8
9
10
11
                             bd.lg_decompte.Fields[0].AsString:=dbedit3.Text;
                             bd.lg_decompte.Fields[1].AsString:='A';
                             if bd.lg_decompte.GotoKey then
                              begin
                              bd.lg_decompte.Edit;
                              bd.lg_decompte.FieldValues['codfrai']:='A';
                             bd.lg_decompte.FieldValues['nbre']:=1;
                              bd.lg_decompte.FieldValues['mont_unit']:='2400,00';
                              bd.lg_decompte.FieldValues['mont_tot']:=(bd.lg_decompte.FieldValues['mont_unit']*bd.lg_decompte.FieldValues['nbre'])*25/100;
                              bd.lg_decompte.Post;
                              end;

remplaçable par une requête avec 2 paramètres

Code:

UPDATE LG_DECOMPTE SET CODEFRAI='A',NBRE=1,MONT_UNIT=2400.00,MONT_TOT=:MT WHERE CHAMPCLE1='A' AND CHAMP0=:C1

avec 2 instructions pour les paramètres et une pour exécuter la requête (execsql)