SQL Search In Delphi
имеется таблица с именем Главная таблица со следующими полями
имя поля
Key1-ключевое
Фамилия
Имя
Телефон
E-mail
Город
Есть Unit2 на которой ADOQuery1 со свойством SQL, имеет значение
SELECT *
FROM [Главная таблица]
WHERE Фамилия LIKE :Famil
В ADOQuery1.Parameters, Famil имеет следущие
DataType : ftString
Value : Null
DataSource2.DataSet:=ADOQuery1
Есть Unit1, где создан обработчик для кнопки
procedure TForm1.ToolButton2Click(Sender: TObject);
var
FindStr:String;
begin
FindStr:='';
if not InputQuery('Поиск по таблице', 'Введите Фамилию:', FindStr) then
exit;
if FindStr<>'' then
begin
DataModule2.ADOQuery1.Active:=true;
DataModule2.ADOQuery1.Parameters.ParamValues['Famil']:=FindStr;
DataModule2.ADOQuery1.Active:=true;
Form3.ShowModal;
end;
end;
Есть Unit3, где валяется DBGrid1 со свойством DataSource с значением DataModule2.DataSource2
И все это не работает, тоесть не хочет искать, при клике выводится пустой DBGrid1.
В чем проблема? Что делать? Может есть какой нибудь альтернативный вариант?
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru
-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru
http://subscribe.ru/ mailto:ask@subscribe.ru
On Thu, Jan 08, 2004 at 06:41:08PM +0300, Gift wrote:
Нежелательно использовать в именах полей русские буквы
Попробуй так:
SELECT *
FROM [Главная таблица]
WHERE "Фамилия" LIKE :surname
Если не пройдет, попробуй одинарные кавычки