[Delphi] Zoekfunctie voor database

[Verwijderd]

Ik wil maken dat er een DBGrid op Form1 staat, die laat alle artikelen zien die in de database staan.
Eronder zit een Edit veldje waar ik mijn zoek/trefwoord invul, en daarnaast zit een zoek knop.

Ik heb de volgende code:

procedure TForm1.Button1Click(Sender: TObject); begin if ADOTable1.Locate('ZOEKNAAM',Edit1.Text,[loPartialKey]) then begin edit2.Text := ADOTable1.FieldByName('CDARTIKEL').Text; edit3.Text := ADOTable1.FieldByName('ZOEKNAAM').Text; edit4.Text := ADOTable1.FieldByName('OMSCHR').Text; end; end;

Maar ik wil het zo maken, dat als ik nog een keer op Zoeken klik, dat hij dan het volgende artikel zoekt.

Ik heb van een kennis gehoord dat ik dat eventueel met een Query kan doen.
Ik heb dus een query toegevoegd.

Als code heb ik onder de knop zoeken:

procedure TForm1.Button1Click(Sender: TObject); begin with ADOQuery1 do begin SQL.Clear; SQL.Text := 'SELECT *' + 'FROM ARTIKELEN ' + 'WHERE ZOEKNAAM = ZOEKNAAM '; Parameters.ParamByName('zoeknaam').Value := Edit1.Text; try Open; except on e:Exception do ShowMessage('Het openen van de tabel is mislukt'); end; end; end;

Maar daarbij krijg ik de fout: Parameter: Zoeknaam not found.
Dus dat snap ik niet.

En mij lijkt het dat ik nog meer moet instellen enzo om het te laten werken als een zoekfunctie (of zie ik dat verkeerd?)?

Kan iemand mij helpen?

[NMe]

Achter je * in je SELECT-clause mist een spatie. Daarnaast is WHERE zoeknaam = zoeknaam altijd true. Eén van beide zal denk ik een variabele moeten worden.

We hebben trouwens ook code-tags, dus waarom zo lastig doen met tables?

[Verwijderd]

Ik ben een beginner, en ik moet nou voor een project van school een sofrware pakket schrijven.
Dus het is voormij allemaal redelijk nieuw.

Wat zijn code-tags?

Ik heb nou:

[/quote] with ADOQuery1 do
begin
SQL.Clear;
SQL.Text := 'SELECT * ' +
'FROM ARTIKELEN ' +
'WHERE ZOEKNAAM = Edit1.text ';

Parameters.ParamByName('zoeknaam').Value := Edit1.Text;
[quote]

Maar dan krijg ik nog steeds de zelfde fout.
De tabel heet trouwens ARTIKELEN, en het veld (kollom) heet ZOEKNAAM.

[ Voor 54% gewijzigd door Verwijderd op 03-08-2006 10:16 ]

[NMe]

Allereerst zet je nu letterlijk "Edit1.text" in je string, dat moet je niet hebben. Je wil de waarde van die variabele erin hebben, dus je zal het zaakje aan elkaar moeten plakken met een +. Daarnaast is het een tekstwaarde, dus moet je er quotes omheen zetten.

Delphi:

'WHERE zoeknaam = "' + Edit1.Text + '"';

Zoiets vermoed ik, al weet ik niet of je database engine blij is met dubbele quotes in plaats van enkele.

Verder: Hoe post je code? / Hoe gebruik je de code tag?

[Rum]

Als je parameters wilt gebruiken moet je de parameters "markeren" met een : .

Hier ff een voorbeeldje:

code:

  GetStateQuery.SQL.Clear;
  GetStateQuery.SQL.Add('SELECT * FROM ' + Language + ' WHERE StateName = :StateName');
  GetStateQuery.Parameters.ParamByName('StateName').Value := StateName;

Dus voor jou zou dit goed kunnen:

code:

with ADOQuery1 do
begin
SQL.Clear;
SQL.Text := 'SELECT * ' +
'FROM ARTIKELEN ' +
'WHERE ZOEKNAAM = :zoeknaam ';

Parameters.ParamByName('zoeknaam').Value := Edit1.Text;

[ Voor 27% gewijzigd door Rum op 03-08-2006 10:31 ]

[Verwijderd]

Oke, ik krijg ondertussen geen foutmeldingen meer daardoor, bedankt Rum.

Maar hij zoekt nog niet. Maar daarvoor zul je ook nog wel een andere code nodig hebben....
Kunnen jullie mij helpen?

[Rum]

Je wilt dus de resultaten van de Query een voor een tonen, waarbij je elke keer dat je op de knop drukt het volgende record weergeeft.

Even uit het hoofd:

code:

procedure TForm1.Button1Click(Sender: TObject);
begin
  with ADOQuery1 do
    begin
      if (isempty = true) or (eof = true) then
        begin
          active := false;
          SQL.Clear;
          SQL.Text := 'SELECT *' +
          'FROM ARTIKELEN ' +
          'WHERE ZOEKNAAM = :zoeknaam ';

          Parameters.ParamByName('zoeknaam').Value := Edit1.Text;

          try
            active := true;
            if isempty = false then First;
          except
            on e:Exception do
              ShowMessage('Het openen van de tabel is mislukt');
          end;
        end
      else
        begin
          if isempty = false then next;
        end;
      if isempty = false then
        begin
          edit2.Text := ADOQuery1.FieldByName('CDARTIKEL').Text;
          edit3.Text := ADOQuery1.FieldByName('ZOEKNAAM').Text;
          edit4.Text := ADOQuery1.FieldByName('OMSCHR').Text;
        end;
    end;
end;

Ik denk dat dit een heel eind moet komen...

[Rum]

Ik heb hem toch maar ff nagemaakt en het blijkt nog niet helemaal te werken. Het laatste record laat hij 2 maal zien... Je moet zelf maar ff uitzoeken waardoor dat komt.

edit:
De EOF wordt pas gezet na het laatste record. Daar had ik ff niet aangedacht. Je moet de (eof = true) in regel 5 vervangen door (recno = recordcount). Dan gaat het wel goed!

De code komt er dan dus zo uit te zien:

code:

procedure TForm1.Button1Click(Sender: TObject);
begin
  with ADOQuery1 do
    begin
      if (isempty = true) or (recno = recordcount) then
        begin
          active := false;
          SQL.Clear;
          SQL.Text := 'SELECT *' +
          'FROM ARTIKELEN ' +
          'WHERE ZOEKNAAM = :zoeknaam ';

          Parameters.ParamByName('zoeknaam').Value := Edit1.Text;

          try
            active := true;
            if isempty = false then First;
          except
            on e:Exception do
              ShowMessage('Het openen van de tabel is mislukt');
          end;
        end
      else
        begin
          if isempty = false then next;
        end;
      if isempty = false then
        begin
          edit2.Text := ADOQuery1.FieldByName('CDARTIKEL').Text;
          edit3.Text := ADOQuery1.FieldByName('ZOEKNAAM').Text;
          edit4.Text := ADOQuery1.FieldByName('OMSCHR').Text;
        end;
    end;
end;

[ Voor 78% gewijzigd door Rum op 03-08-2006 12:26 ]

[Depress]

Ik heb niet de code van Rum bekeken. Maar wat ik zou doen is alle resultaten opslaan in een lijst. Een variable op True zetten dat er resultaten zijn opgehaald. En die door lopen als de Variable true is.

Lijkt mij het makelijkste voor jouw probleem

Delphi:

while(ResultatenOver = True) do
begin
  edit1.text := resultaat;
end;

[Rum]

Ik zit er nu wel aan te denken dat mijn code nog niet in gaat op het feit dat als je de zoekterm veranderd, hij niet direct begint met opnieuw zoeken. Dat doet hij pas nadat hij alle zoekresultaten heeft getoond. Dit kun je oplossen door een extra boolean die aangeeft of de zoekterm veranderd is... Lijkt me simpel!

[Verwijderd]

Hij geeft nu in ieder geval geen foutmeldingen meer (gelukkig).
Maar in het DBGrid laat hij niks zien (ik neem aan dat dat de bedoeling is?).

[Ozzy]

Verwijderd schreef op donderdag 03 augustus 2006 @ 14:33:
Hij geeft nu in ieder geval geen foutmeldingen meer (gelukkig).
Maar in het DBGrid laat hij niks zien (ik neem aan dat dat de bedoeling is?).

Wat bedoel je met dat hij niets laat zien? Geen data? Of zie je niet dat hij naar de volgende gevonden record springt? Heb je de datasource die aan die tabel hangt wel aan het grid gekoppeld?

[Rum]

DBGrid heeft een property Datasource. Als je daar een datasource, met daar weer een adotable (oid), aan koppelt, zal de DBGrid de Data weergeven. Je zult dat wel allemaal zelf aan moeten geven.
Mag ik opmerken dat ik je in deze kwestie niet echt inventief vind?

[Verwijderd]

Nou, de grid is idd verbonden aan de DataSource, maar nog laat hij niks zien.

[Ozzy]

Verwijderd schreef op donderdag 03 augustus 2006 @ 15:39:
Nou, de grid is idd verbonden aan de DataSource, maar nog laat hij niks zien.

Is de table die gekoppeld is wel active? Door .open of Active := True;

[ Voor 5% gewijzigd door Ozzy op 03-08-2006 15:55 ]

[Verwijderd]

Ja, die is actief.
Maar die code zou het normaal zo moeten doen?

Ik heb die hele code dus onder de knop Zoeken gezet.
Maar moet ik bij de ObjectInspector bij de Query niks bij SQL instellen ofzo?

[Ozzy]

Verwijderd schreef op donderdag 03 augustus 2006 @ 17:07:
Ja, die is actief.
Maar die code zou het normaal zo moeten doen?

Ik heb die hele code dus onder de knop Zoeken gezet.
Maar moet ik bij de ObjectInspector bij de Query niks bij SQL instellen ofzo?

Dat wordt in Rum's voorbeeld gedaan op regel 8-11. Dat is de query die je hebt. Als je het resultaat van de query wil zien, dan moet je die query via een datasource aan de grid verbinden.

[Creepy]

Zie Creepy in "Probleem met ADOTable (Insert)". Dat geld ook voor hier uiteraard
Op deze manier zet GoT je software in elkaar en dat is natuurlijk niet de bedoeling