Форум: "Базы";
Текущий архив: 2005.01.16;
Скачать: [xml.tar.bz2];
ВнизЗапрос в базе данных Найти похожие ветки
← →
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 вся ветка
Форум: "Базы";
Текущий архив: 2005.01.16;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.036 c