Erreur de concaténations dans un DATAMODULE

Version imprimable

Bonjour,
je fais une petite application sous DElPHI. Je manipule l'objet DATASET pour l'accès aux données des mes tables ORACLE.

Je suis profane en programmation DELPHI, j'espère que je pourrai avoir un coup de main pour me débloquer.

Voici mon bout de code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
rocedure Tmoduledata.OracleDataSet1AfterDelete(DataSet: TDataSet);
var donne:string;
begin
     ShortDateFormat:='dd/mm/aaaa hh:nn:ss';
     donne:='insert into ops$asy.vio_mvt '||
       ' (cmp_cod,vio_chassis,vio_mvt_ope,vio_year,vio_numdos,vio_mvt_type,vio_mvt_date,vio_mvt_oper) values '||
       '( '''||OracleDataSet1.FieldByName('cmp_cod').AsString||''','''||
        OracleDataSet1.FieldByName('vio_chassis').AsString||''',''D'','''||
        OracleDataSet1.FieldByName('vio_year').AsString||''','''||
        OracleDataSet1.FieldByName('vio_numdos').AsString||''',''Suppression'','||
        'ToDate('''||DatetimeToStr(now)||''',''DD/MM/YYYY HH24:mm:ss''),'''')';
 
        oraclequery1.SQL.Text:=donne;
        oraclequery1.Execute;
 
 
end;

Je ne sais pas si je fais mal les concaténations, j'ai plein de messages d'erreurs suivants :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
[Erreur] Unit3.pas(70): Caractère incorrect dans le fichier d'entrée : '|' ($7C)
[Erreur] Unit3.pas(71): Opérateur ou point-virgule manquant
[Erreur] Unit3.pas(71): Caractère incorrect dans le fichier d'entrée : '|' ($7C)
[Erreur] Unit3.pas(72): Opérateur ou point-virgule manquant
[Erreur] Unit3.pas(72): Caractère incorrect dans le fichier d'entrée : '|' ($7C)
[Erreur] Unit3.pas(73): Opérateur ou point-virgule manquant
[Erreur] Unit3.pas(73): Caractère incorrect dans le fichier d'entrée : '|' ($7C)
[Erreur] Unit3.pas(73): Caractère incorrect dans le fichier d'entrée : '|' ($7C)
[Erreur] Unit3.pas(74): Opérateur ou point-virgule manquant
[Erreur] Unit3.pas(74): Caractère incorrect dans le fichier d'entrée : '|' ($7C)
[Erreur] Unit3.pas(75): Opérateur ou point-virgule manquant
[Erreur] Unit3.pas(75): Caractère incorrect dans le fichier d'entrée : '|' ($7C)
[Erreur] Unit3.pas(75): Caractère incorrect dans le fichier d'entrée : '|' ($7C)
[Erreur] Unit3.pas(76): Opérateur ou point-virgule manquant
[Erreur] Unit3.pas(76): Caractère incorrect dans le fichier d'entrée : '|' ($7C)
[Erreur] Unit3.pas(76): Caractère incorrect dans le fichier d'entrée : '|' ($7C)
[Erreur] Unit3.pas(76): Instruction attendue, mais expression de type 'String' trouvée
[Erreur fatale] ficheeval.dpr(7): Impossible de compiler l'unité utilisée 'Unit3.pas'

Merci de votre attention

10/04/2007, 13h10
alainvh

Je suis loin d'être un spécialiste en Delphi, mais il me semble que la concaténation ne peut s'effectuer que par le signe +
Exemple:
donne:='insert into ops$asy.vio_mvt '+'(cmp_cod,vio_chassis)';
10/04/2007, 13h24
hadid

Citation:

Envoyé par alainvh

Je suis loin d'être un spécialiste en Delphi, mais il me semble que la concaténation ne peut s'effectuer que par le signe +
Exemple:
donne:='insert into ops$asy.vio_mvt '+'(cmp_cod,vio_chassis)';

je me suis rendu compte tout de suite après avoir envoyé le message.

Merci mais j'ai autre soucis de quote maintenant dur dur la programmation non !!!
10/04/2007, 13h32
alainvh

Avec les quote , il y a une astuce pour les apostrophes : double-quote
Exemples:

nom:='voici l''hiver' (avec 2 quotes derrière le l) pour affecter à la variable nom l'expression voici l'hiver

Erreur : Operateur ou point-virgule manquant

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure Tmoduledata.OracleDataSet1AfterDelete(DataSet: TDataSet);
var donne:string;
begin
     ShortDateFormat:='dd/mm/aaaa hh:nn:ss';
     donne:='insert into ops$asy.vio_mvt '+
       ' (cmp_cod,vio_chassis,vio_mvt_ope,vio_year,vio_numdos,vio_mvt_type,vio_mvt_date,vio_mvt_oper) values '+
       '( '''+OracleDataSet1.FieldByName('cmp_cod').AsString+''','''+
        OracleDataSet1.FieldByName('vio_chassis').AsString+''',''D'','''+
        OracleDataSet1.FieldByName('vio_year').AsString+''','''+
        OracleDataSet1.FieldByName('vio_numdos').AsString+''',''Suppression'','+
        ''ToDate'('''+DatetimeToStr(now)+''',''DD/MM/YYYY HH24:mm:ss''),''''')';
 
        oraclequery1.SQL.Text:=donne;
        oraclequery1.Execute;
 
end;

Mon erreur est localisé au niveau de la ligne Todate

Operateur ou point-virgule manquant
Instruction attendue, mais expression de type 'String' trouvée

10/04/2007, 13h52
alainvh

Envoie-moi le texte exact que tu veux passer dans ta variable donne (sans écrire les quote que demande Delphi)

Citation:

Envoyé par alainvh

Envoie-moi le texte exact que tu veux passer dans ta variable donne (sans écrire les quote que demande Delphi)

Voici le texte brut :

Code:

1
2
3
4
5
 
donne:= 'insert into ops$asy.vio_mvt (cmp_cod,vio_chassis,vio_mvt_ope,vio_year,vio_numdos,vio_mvt_type,vio_mvt_date,vio_mvt_oper) 
        values (OracleDataSet1.FieldByName('cmp_cod').AsString, OracleDataSet1.FieldByName('vio_chassis').AsString, 'D',
        OracleDataSet1.FieldByName('vio_year').AsString, OracleDataSet1.FieldByName('vio_numdos').AsString ,'Suppression',
        ToDate(DatetimeToStr(now), DD/MM/YYYY HH24:mm:ss),'')';

merci pour le coup de main

10/04/2007, 14h25
SergioMaster

qu'est ce que c'est ce todate ?

ce serait pas plutôt formatdatetime('mm/dd/yyyy hh:mm:ss',now) ?
un petit cast ne serait pas mal non plus
CAST('+Quotedstr(formatdatetime('mm/dd/yyyy hh:mm:ss',now))+' AS DATE)
enfin je suis pas ORACLE MAIS FIREBIRD

Voici ma traduction :

Code:

1
2
3
4
5
 
donne:='insert into ops$asy.vio_mvt (cmp_cod,vio_chassis,vio_mvt_ope,vio_year,vio_numdos,vio_mvt_type,vio_mvt_date,vio_mvt_oper) 
        values (OracleDataSet1.FieldByName('+''+'cmp_cod'+''+').AsString, OracleDataSet1.FieldByName('+''+'vio_chassis'+''+').AsString, '+''+'D'+''+',
      OracleDataSet1.FieldByName('+''+'vio_year'+''+').AsString, OracleDataSet1.FieldByName('+''+'vio_numdos'+''+'.AsString ,'+''+'Suppression'+''+
      ', ToDate(DatetimeToStr(now), DD/MM/YYYY HH24:mm:ss),'+''+''+')';

Je me suis contenté de remplacer chacune des quotes de ton expression par +''+ (sauf la toute première et la toute dernière quotes)