Veritabanı - Bul Değiştir

[Frrst]

iyi akşamlar üstatlar,

SQLite veritabanına FDQuery ((DataModule) ile bağlanıyorum. Veritabanında tel1, te2, tel3 gibi alanlar ve daha önce maskedit kullanarak girişleri (555) 555 55 55 şeklinde yapmıştım.

Şimdi birden çok olan bu alanlardaki "(" ve " " boşluk karakterini bir buton yordamına yazacağım SQL ile  kaldırmak istiyorum. Nasıl yapabileceğim konusunda yardımlarınızı bekliyorum.

-------------------------------------------
Şu şekilde fonksiyon ve AfterScoll yordamına yazdığım kodlarla (bu forumdan alıntılanan) bu işlemi yapabiliyorum ancak çok yoğun sorguya neden oluyor.

function KarakterSil(Harf: String): String;
const
 Karakter: String = '( )';
var
 N: Integer;
begin
 for N := 1 to length(Karakter) do
 begin
   Harf := StringReplace(Harf, Karakter[N], '', [rfReplaceAll]);
   Result := Harf;
 end;
end;

procedure DataModule1.FDQuery1AfterScroll(DataSet: TDataSet);
begin
 if Length(DQuery1.FieldByName('tel1').AsString) <> 10 then
 begin
   DQuery1.Edit;
   DQuery1.FieldByName('tel1').AsString := KarakterSil(DQuery1.FieldByName('tel1').AsString);
   DQuery1.Post;
 end;

 if Length(DQuery1.FieldByName('tel2').AsString) <> 10 then
 begin
   DQuery1.Edit;
   DQuery1.FieldByName('tel2').AsString := KarakterSil(DQuery1.FieldByName('tel2').AsString);
   DQuery1.Post;
   ...
 end;
end;

[mrmarman]

Merhaba
Bu işlemleri sql ile veritabanı tarafında yapmak isteyebilirsiniz.

Boşluk, parantez aç/kapa karakterlerini bu linkteki sql string fonksiyonlarından yardım alarak yapmayı deneyebilirsiniz.

[ugorkem]

Sql in Replace komutu işini çözecektir

UPDATE
   table_name
SET
   field_name = REPLACE(field_name ,'(','');

[Abdullah ILGAZ]

Veri deseniniz sabit ise sütun bazında birkaç parça olacak şekilde update sorgusu hazırlayıp çözümleyebilirsiniz.

SQL ile parantezleri pratik bir şekilde uçurmak için: Replace(Replace(Tel1,')',''),'(','')