Discussion :

[hadid]

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 :

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
 
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 :

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
 
[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

[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)';

[hadid]

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 !!!

[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

[hadid]

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
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

[alainvh]

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

[hadid]

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 :

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

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

[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

[alainvh]

Voici ma traduction :

Code :

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

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)