Discussion :

[hocine]

Bonjour,
j'essaye d’exécuter une requête depuis delphi pour maj d'un champs

Code :

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

1
2
3
4
 
  st1:='UPDATE perso SET perso.nom = Replace([nom],".","");';
  dm2.ADOQperso.SQL.Text:=st1;
  dm2.ADOQperso.ExecSQL;

en exécutant mon application un message d'erreur
" Fonction 'Replace' non définie dans l'expression."
je souhaite connaitre où est le problème.

[SergioMaster]

Bonjour,

ce n'est clairement pas un problème Delphi 7 mais plutôt un problème de syntaxe SQL ou de driver car la fonction Replace n'est dispo qu'à partir d'access 2000
pour moi, [nom] dans le SQL n'est pas une string ni une colonne
j'utiliserai

Code :

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

st1:='UPDATE perso SET nom = Replace(nom,".","");';

Mais comme je n'utilise ni access ni Ado puisqu'aucun des deux ne font partie de mes préférences ...

[ShaiLeTroll]

On trouve sur Google, on trouve effectivement l'info remontée par SergioMaster et exactement ce message d'erreur sur notre présent forum

C'est même une FAQ : Replace n'existe pas sous Access 97, comment faire ?

Un essai dans un SELECT au lieu d'un UPDATE, ajoute un TDBGrid, un TDataSource sur une nouvelle TADOQuery ADOQpersoForGrid juste pour faire le test, pas d'Exception et résultat comme attendu

Code :

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

1
2
3
  st1:='SELECT nom, Replace(nom,".","") AS remplacement FROM perso;';
  dm2.ADOQpersoForGrid.SQL.Text:=st1;
  dm2.ADOQpersoForGrid.Open;

Cela remontera ton erreur, tu pourras soit mettre à jour soit mettre en place une solution paliative.

Si tu ne peux pas changer ta version de ACCESS (2000), tu peux créer ta propre fonction, voir cette réponse publiant le REPLACE interne du VB au niveau SQL

[hocine]

Merci ShaiLeTroll pour la réponse mais hélasse sa n'a pas marché. toujours le même message d'erreur

Fonction 'Replace' non définie dans l'expression

delphi7
windows7 64 bits
access 2007

[ShaiLeTroll]

Je n'ai pas ACCESS mais depuis le temps, ce problème devrait résolu

Au pire tu pouvais faire un algo Delphi genre

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
 
QWrite.SQL := 'UPDATE PERSO SET NOM = :pNomR WHERE NOM = :pNom';
QWrite.Prepared := True;
 
QRead.SQL := 'SELECT NOM FROM PERSO';
QRead.Open();
while not QRead.EoF do
begin
  QWrite.ParamByName('pNom').AsString := QRead.FieldByName('NOM').AsString;
  QWrite.ParamByName('pNomR').AsString := StringReplace(QRead.FieldByName('NOM').AsString, '.', '', [rfReplaceAll]);
  if QWrite.ParamByName('pNomR').AsString <> QWrite.ParamByName('pNom').AsString then
    QWrite.ExecSQL();
 
  QRead.Next();
end;

En Excel par exemple "1234567890" on remplace "456" par "ABC" ça donne "123ABC7890"
Avec
A1 = 1234567890
A2 = 456
A3 = ABC

Code EXCEL :

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

=CONCATENER(GAUCHE(A1;TROUVE(A2;A1)-1);A3;DROITE(A1;NBCAR(A1)-TROUVE(A2;A1)-NBCAR(A2)+1))

On peut vite le transformer en SQL ACCESS, à l'arrache je dirais

Code sql :

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

SELECT nom, Left(nom, InStr(".", nom) - 1) & "" & Right(nom, Len(nom) - InStr(".", nom) - Len(".") + 1) AS remplacement FROM perso

donc

Code :

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

st1:='SELECT nom, Left(nom, InStr(".", nom) - 1)  & Right(nom, Len(nom) - InStr(".", nom) - Len(".") + 1) AS remplacement FROM perso;';

CHARINDEX ou InStr à vérifier

Cela remplace qu'une seule fois, le premier

Donc au pire

Code :

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

1
2
3
4
5
6
 
dm2.ADOQperso.SQL.Text := 'UPDATE perso SET perso.nom = Left(nom, InStr(".", nom) - 1)  & Right(nom, Len(nom) - InStr(".", nom) - Len(".") + 1)';
dm2.ADOQperso.Prepared := True;
repeat 
  dm2.ADOQperso.ExecSQL();
until dm2.ADOQperso.RowsAffected = 0;