Telefonnummer in Datenbank Finden

[ajmbarros]

Das sieht sehr gut aus. Werde ich gleich mal in die Tat umsetzten.

[ajmbarros]

Anbei die Funktionierende Lösung dank einer Procedure:

Code:

CREATE PROCEDURE STRTOINT(
  STRINGWERT VARCHAR(80) CHARACTER SET ISO8859_1 COLLATE ISO8859_1)
RETURNS(
  RESULT VARCHAR(80) CHARACTER SET ISO8859_1 COLLATE ISO8859_1)
AS
DECLARE VARIABLE laenge INTEGER;
DECLARE VARIABLE pos INTEGER;
DECLARE VARIABLE zeichen CHAR(1);
BEGIN
  /* Procedure body */
  
  laenge = char_length(:STRINGWERT);
  if (:laenge > 0) then
  begin
    pos = 1;
    while (:pos <= :laenge) do
    begin
      zeichen = substring(:STRINGWERT from :pos for 1);
      if (:zeichen in ('0','1','2','3','4','5','6','7','8','9')) then
        result = coalesce(:result, '')||:zeichen;
      pos = :pos + 1;
    end
  end
  
  SUSPEND;
END;

Und mit diesem select ist auch kein zweites Feld nötig:

Code:

select *
from ANSPR a
where (select result from  STRTOINT(a.TEL)) = '0123456'

Ich hab natürlich einige Datenbank-Reads aber es hält sich in unter einer Sekunde.

Evtl. muss ich mit den Landesvorwahlen tricksen bzw. muss ich mal testen wie gut das mit einem like '%0123456' funktioniert, wenn ich vorher im Delphi-Code die Landesvorwahlen immer raus nehme. Nochmals vielen Dank!

[Dejan Vu]

Zitat von ajmbarros:

Und mit diesem select ist auch kein zweites Feld nötig:

Muss ja nicht, aber wenn Du mal mehr Daten hast, würdest Du dich freuen. 'Unter einer Sekunde' ist übrigens bei den paar Daten ein GAU, imho. Eine DB sollte zum Finden einzelner Sätze 0.1 Sekunden brauchen, mehr nicht. Ein Table-Scan sollte bei Standardsuchen vermieden werden, finde ich.

[p80286]

Was soll's, er hat verkorkste Daten, eine Möglichkeit so zu tun als sei alles in Ordnung, also geht's weiter so.

http://de.wikiquote.org/wiki/Max_Liebermann

Gruß
K-H