Скачать: CL | DM;

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

← →
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;

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.023 c