delphi7 requete access fonction replace n'est pas reconnue

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

Code:

---

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.

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:

---

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

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:

---

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

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

Citation:

---

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

---

delphi7
windows7 64 bits
access 2007

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:

---

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:

---

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

---

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

---

donc

Code:

---

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:

---

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;

---