AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Datenbanken Delphi Autovervollständigung.
Thema durchsuchen
Ansicht
Themen-Optionen

Autovervollständigung.

Ein Thema von thomasvonmuenster1 · begonnen am 21. Apr 2004 · letzter Beitrag vom 21. Apr 2004
 
Akut-Programming

Registriert seit: 18. Aug 2003
648 Beiträge
 
#3

Re: Autovervollständigung.

  Alt 21. Apr 2004, 11:55
Also, ich weiß jetzt nicht genau, ob ich dich richtig verstanden hab. Aber wenn du wissen willst, ob der String im "memofeld" ist, könntest du es doch z.B. so machen
Delphi-Quellcode:
Query1.active:=false;
Query1.SQL.Clear;
Query1.SQL.Add('select titel,datei from tabelle1 where memofeld like %'+edit1.Text+'%');
Query1.ExecSQL;
Query1.active:=true;

if Query1.RecordCount<>1
then begin
Query2.SQL.Clear;
Query2.SQL.Add(insert into tabelle1 values (titel, datei, memofeld) ('Beispiel','datei1.txt',+edit1.text));
Query2.ExecSQL;
end else if Query1.RecordCount=1
then begin
Application.MessageBox('Der String existiert bereits in der Datei!','Datensatz vorhanden', MB_OK + MB_ICONINFORMATION);
end;
Funktionalität hab ich jetzt nicht getestet. Aber so könntest du z.B. abfragen ob der String aus deinem Edit in dem Text in deiner Tabelle ist. Über die abfrage des Recordcounts kannst du dann je nach belieben weitere Aufgaben ausführen. - So wie im oberen Code: wenn das Recordcount 1 ergibt, ist der String enthalten, andernfalls soll er es einfügen. Ist vielleicht nicht die beste Lösung, aber ich hoffe es reicht erstmal.

Gruß,
Akut-Programming
be cool, be hot ... just be
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 00:52 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz