Запрос в базе данных

← →
66 (2004-12-14 00:52) [0]

Всем привет!
Делаю простенькую прогу баз данных.
Нужно сделать выборку по запросу:найти по дате абонента и вывести окно с его фамилией.
Почему код
------------
procedure TForm1.BitBtn3Click(Sender: TObject);
begin
if Table1["Data"]= StrToDate(edit1.text)
then
begin
ShowMessage (Table1["Family"]);
exit;
end
else
Showmessage("Абонента нет с введенной датой");

end;
----------
работает не правильно.
Подскажите,пожалуйста!
компоненты - Table1 (DatabaseName-AS; TableName - asa.db;
TableType -ttParadox)
DataSourse1 (DataSet -Table)
DBGrid1 (DataSourse-DataSourse1)
DBEdit1(DataSourse-DataSourse1;DataField-Family)
DBEdit2(DataSourse-DataSourse1;DataField-Telephone)
DBEdit3(DataSourse-DataSourse1;DataField-Data)
DBRichedit1 (DataSourse-DataSourse1;DataField-Adress)
DBNavigator (DataSourse-DataSourse1)
Edit1,BitBtn,BitBtn2,BitBtn3
Или может подскажите код с применением SQL.

← →
Fedia © (2004-12-14 04:27) [1]

var
i: integer;
bool: Boolean;
begin
bool:=false;
Table1.First;
for i:=0 to Table1.RecordCount-1 do
begin
if Table1["Data"]=40 then
begin
ShowMessage(Table1["Family"]);
bool:=true;
break;
end;
Table1.Next;
end;
if not bool then
ShowMessage("Абонента нет с введенной датой");
end;

Твой код не работает, т.к. ты проверяешь только текущую запись таблицы.

Запрос в базе данных Найти похожие ветки