Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2013.03.22;
Скачать: [xml.tar.bz2];

Вниз

Поиск ADO   Найти похожие ветки 

 
Aleksandra   (2012-02-19 22:55) [0]

Здравствуйте? Есть кнопка поиска:
procedure TForm2.Button1Click(Sender: TObject);
Var
a:Char;
begin
a:=#39;
ADOQuery1.Active:=False;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add("SELECT * FROM Каталог_книг");
ADOQuery1.SQL.Add("WHERE Регистрационный_№  like" + a + "%" + Edit1.Text +  "%" + a);
ADOQuery1.SQL.Add("and Автор like" + a + "%" + Edit2.Text +  "%" + a);
ADOQuery1.SQL.Add("and Название like" + a + "%" + Edit3.Text +  "%" + a);
ADOQuery1.Active:=True ;
end;

и кнопка очистить
procedure TForm2.Button2Click(Sender: TObject);
begin
Edit1.Text:=" ";
Edit2.Text:=" ";
Edit3.Text:=" ";
end;

Произвожу поиск - выдаются результаты, нажимаю очистить, затем снова поиск и в итоге - пустая таблица? В чем же дело?


 
sniknik ©   (2012-02-19 23:09) [1]

это кара небесная за то что используешь ADOQuery, а не ADODataSet, и не используешь параметры.


 
Anatoly Podgoretsky ©   (2012-02-20 09:42) [2]

> Aleksandra  (19.02.2012 22:55:00)  [0]

После очистки надо присваивать новые значения.


 
MsGuns ©   (2012-02-20 13:21) [3]

Перед

ADOQuery1.Active:=True ;
поставье

ShowMessage(ADOQuery.SQL.Text);
и думаю у Вас не будет вопросов к форуму :)



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

Форум: "Начинающим";
Текущий архив: 2013.03.22;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.44 MB
Время: 0.075 c
15-1349941653
Empleado
2012-10-11 11:47
2013.03.22
some free e-books from MS


2-1337875870
Den
2012-05-24 20:11
2013.03.22
SetCursorPos не перерисовывает курсор?


2-1331559417
aaas545
2012-03-12 17:36
2013.03.22
Update в SQL запросе пустых записей.


11-1244440437
BMouradov
2009-06-08 09:53
2013.03.22
Снятие фокуса


15-1350464720
AV
2012-10-17 13:05
2013.03.22
Подскажите запрос





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский