Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Datenbanken (https://www.delphipraxis.net/15-datenbanken/)
-   -   Delphi ADOTable1 Datumsuche Problem (https://www.delphipraxis.net/161279-adotable1-datumsuche-problem.html)

blondervolker 26. Jun 2011 17:43

Datenbank: ADO Access • Version: 2003 • Zugriff über: ADO Delphi

ADOTable1 Datumsuche Problem
 
Liste der Anhänge anzeigen (Anzahl: 1)
Guten Abend,:thumb:

hab folgendes Problem:

habe Edit1,Edi2,Edit3 und Edit4.

Edit1 ist eine Suchabfrage, wo ein Datum gefunden werden soll.Es wird mir permanent nur ein Datum angezeigt!!!(Der 11.11.11)
Erkennt meine Suchabfrage nur das Karnevalsdatum???:-D:-D:-D

Bei Edit2,3 und 4 wird mir alles korrekt angezeigt.
Kennt sich jemand aus???

Bekomm `ne Kriese...:oops::oops::oops:

//ADOTable1 steht bei Edit Mask=!90.90.00;1;

Delphi-Quellcode:
procedure TForm22.SpeedButton1Click(Sender: TObject);
begin
if not Form11.ADOTable1.Locate('pa_ausgangsdatum',Form22.Edit1.Text,[loCaseInsensitive, loPartialKey]) then
  if not Form11.ADOTable1.Locate('pa_ausgangsdatum',Form22.Edit1.Text,[loCaseInsensitive, loPartialKey]) then
    showmessage('Leider kein Datensatz vorhanden.')
end;

procedure TForm22.SpeedButton2Click(Sender: TObject);
begin
if not Form11.ADOTable1.Locate('pa_betreff',Form22.Edit2.Text,[loCaseInsensitive, loPartialKey]) then
  if not Form11.ADOTable1.Locate('pa_betreff',Form22.Edit2.Text,[loCaseInsensitive, loPartialKey]) then
    showmessage('Leider kein Datensatz vorhanden.')
end;

procedure TForm22.SpeedButton3Click(Sender: TObject);
begin
if not Form11.ADOTable1.Locate('pa_name',Form22.Edit3.Text,[loCaseInsensitive, loPartialKey]) then
  if not Form11.ADOTable1.Locate('pa_name',Form22.Edit3.Text,[loCaseInsensitive, loPartialKey]) then
    showmessage('Leider kein Datensatz vorhanden.')
end;

procedure TForm22.SpeedButton4Click(Sender: TObject);
begin
if not Form11.ADOTable1.Locate('pa_firma',Form22.Edit4.Text,[loCaseInsensitive, loPartialKey]) then
  if not Form11.ADOTable1.Locate('pa_firma',Form22.Edit4.Text,[loCaseInsensitive, loPartialKey]) then
    showmessage('Leider kein Datensatz vorhanden.')
end;

end.

mkinzler 26. Jun 2011 18:19

AW: ADOTable1 Datumsuche Problem
 
Was für eine Typ hat das Feld?
Warum wiederholst du jede Abfrage?

Bernhard Geyer 26. Jun 2011 19:52

AW: ADOTable1 Datumsuche Problem
 
Bei Access und ADO wirst du vermutlich nicht um parametrisierte Abfragen herumkommen. MS Access hat das bescheuerte Verhalen je nach Zugriffsweg (ODBC, DAO, ADO) Datumwerte als Strings unterschiedlich zu behandeln. Über ADO müssen die Datumswerte AFAIK mit Route Formatiert werden.


Alle Zeitangaben in WEZ +1. Es ist jetzt 09:01 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz