-
Forum: Sonstige Fragen zu Delphi
Delphi
by m-werk,
11. Apr 2012
Hi, danke für die Hilfe, hat funktioniert.
Das mit den Open, Refresh usw. wurde mir so gesagt. Ganz versteh ich es auch nicht da ADOQuery1 sowieso aktiv ist.
-
Forum: Sonstige Fragen zu Delphi
Delphi
by m-werk,
11. Apr 2012
Ha, eine Frage hätte ich noch.
Ich hab versucht, eine MessageBox einzubauen, so dass diese Erscheint, wenn KEIN Kunde gefunden wurde. Leider schlug mein Versuch fehl, Da diese Messagebox immer wieder erscheint, obwohl ein Kunde gefunden wurde. Ich weiss nicht, wo ich meine Box hinsetzen muss!
procedure TForm1.BtnSearchClick(Sender: TObject);
begin
ADOQuery1.Close;
...
-
Forum: Sonstige Fragen zu Delphi
Delphi
by m-werk,
11. Apr 2012
Komisch, heute hab ich es nochmal probiert und nun funktioniert es, ohne dass der 1. Datensatz auch erscheint.
Danke für die Hilfe
-
Forum: Sonstige Fragen zu Delphi
Delphi
by m-werk,
10. Apr 2012
Da kommen im Access auch nur jene beiden Datensätze, welche HUBER heißen,
-
Forum: Sonstige Fragen zu Delphi
Delphi
by m-werk,
10. Apr 2012
Ja, aber es gibt NUR ein Edit-Feld. Dort wird entweder der Nachname oder die Telefonnummer eingetragen.
Also steht im Edit eigentlich IMMER was drinn!
-
Forum: Sonstige Fragen zu Delphi
Delphi
by m-werk,
10. Apr 2012
Hallo, wenn ich in Access dieses Select ausführe:
SELECT * FROM kundendaten WHERE nachname LIKE 'Huber' OR telefon1 LIKE ''
dann kommen nur die beiden Datensätze, wo der Nachname "Huber" ist.
In Delphi kommt aber zusätzlich noch der 1. Datensatz. Der Innhalt ist aber ein ganz ein anderer.
begin
ADOQuery1.Close;
ADOQuery1.SQL.Text:='SELECT * FROM kundendaten WHERE nachname LIKE...
-
Forum: Sonstige Fragen zu Delphi
Delphi
by m-werk,
4. Apr 2012
So, wenn ich beim Select nur einen Wert hernehme, also wenn ich alle OR weglasse, dann funktionierts.
Sobald ich aber mehrere Spalten abfragen möchte, dann kommt immer der 1. Datensazt mitangezeigt im DBGrid!
-
Forum: Sonstige Fragen zu Delphi
Delphi
by m-werk,
4. Apr 2012
Ok habs kappiert, aber trotzdem bekomme ich immer noch den 1. Datensatz im DBGrind nach der suche mitangezeigt!
-
Forum: Sonstige Fragen zu Delphi
Delphi
by m-werk,
4. Apr 2012
Das versteh ich jetzt nicht ganz: Wo kommt der Bereich "const" und "var" genau hin?
-
Forum: Sonstige Fragen zu Delphi
Delphi
by m-werk,
4. Apr 2012
Mensch, eh so einfach. Wo ich überall dies versucht hab....
So, die Suche funktioniert FAST. Ich hab diese jetzt noch um 3 weitere Felder erweitert:
procedure TForm1.BtnSearchClick(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.SQL.Text:='SELECT * FROM kundendaten WHERE nachname LIKE :name OR telefon1 LIKE :telefon1 OR telefon2 LIKE :telefon2';
...
-
Forum: Sonstige Fragen zu Delphi
Delphi
by m-werk,
4. Apr 2012
Ja schon aber wenn ich dort dies so eingebe
where nachname like %:name%
funktioniert das ganze nicht
-
Forum: Sonstige Fragen zu Delphi
Delphi
by m-werk,
4. Apr 2012
Ok, hab ich gemacht.
Eine Sache wäre noch: Das mit den Platzhalter vor und dannach.
Wo werden die denn eingebaut?
-
Forum: Sonstige Fragen zu Delphi
Delphi
by m-werk,
4. Apr 2012
SORRY, ich nehme alles zurück.
Hab den Fehler entdeckt! war ein , drinn
Jetzt funktioniert die suche wie sie soll.
DANKE FÜR DIE HILFE
-
Forum: Sonstige Fragen zu Delphi
Delphi
by m-werk,
4. Apr 2012
Gehhh, das kann doch wohl nicht sein.
Das ist jetzt mein Button.
procedure TForm1.BtnSearchClick(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.SQL.Text:='select * from kundendaten, where nachname like :name';
ADOQuery1.Parameters.ParseSQL(ADOQuery1.SQL.Text,true);
ADOQuery1.Parameters.ParamByName('name').Value := EditSearch.Text;
ADOQuery1.Open;
-
Forum: Sonstige Fragen zu Delphi
Delphi
by m-werk,
4. Apr 2012
Diese änderung hab ich schon gemacht, aber es kommt jetzt trotzdem eine Fehlermeldung:
Exception-Klasse EDatabaseError mit Meldung "ADOQuery1: Parameter 'name' nicht gefunden".
Diese Fehlermeldung tritt hier in der ADOQuery1.Parameters..... auf.
procedure TForm1.EditSearchExit(Sender: TObject);
begin
ADOQuery1.Parameters.ParamByName('name').Value := EditSearch.Text;
if...
-
Forum: Sonstige Fragen zu Delphi
Delphi
by m-werk,
4. Apr 2012
Ich komm nicht dahinter :(
-
Forum: Sonstige Fragen zu Delphi
Delphi
by m-werk,
4. Apr 2012
procedure TForm1.EditSearchExit(Sender: TObject);
begin
ADOQuery1.Parameters.ParamByName('name').Value := EditSearch.Text;
if ADOQuery1.Active then
ADOQuery1.Refresh
else
ADOQuery1.Open;
end;
procedure TForm1.BtnSearchClick(Sender: TObject);
-
Forum: Sonstige Fragen zu Delphi
Delphi
by m-werk,
4. Apr 2012
So, nun hab ich folgenden Code mal drinn, leider funktioniert dieser nicht:
procedure TForm1.BtnSearchClick(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.SQL.Text:='select * from kundendaten, where nachname like :name';
ADOQuery1.SQL.parameterbyname('name').asstring:=EditSearch.Text;
ADOQuery1.Open;
end;
-
Forum: Sonstige Fragen zu Delphi
Delphi
by m-werk,
4. Apr 2012
Ich hab es mal so eingebaut.
Ich habe eine neue ADOQuery1 eingebaut und mit meiner ADOConnection1 verbunden. Unter DataSource habe ich meine DataSource1 eingegeben.
Weiters hab ich noch eine DataSource2 eingebaut und mein DBGrid mit dieser Verbunden. Diese DataSource2 hab ich dann auch mit der ADOQuery1 verbunden.
So, dein Code oben leuchtet mir ein, nur wie baue ich diesen in den...
-
Forum: Sonstige Fragen zu Delphi
Delphi
by m-werk,
4. Apr 2012
Ok, danke mal für die Antworten.
Wenn ich den select befehl für die Query eingebe, was muss ich als Value eingeben, so dass die Werte vom Feld "EditSearch" herangezogen werden?
-
Forum: Sonstige Fragen zu Delphi
Delphi
by m-werk,
4. Apr 2012
Hallo Leute!
So, nach knapp 10 Jahren bin ich wieder zurück. Ich bin gerade dabei ein kleines Kundenverwaltungsprogramm zu erstellen. Hat etwas gedauert bis ich wieder drinn bin.
Hab jetzt aber ein kleines Problem noch mit meinem Programm.
Soweit funktioniert alles. Ich möchte mein Programm nur etwas verbessern.
Mit folgendem Code kann ich nach Datensätzen suchen und diese werden mir...