Главная страница
    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.081 c
15-1348161804
ClawClaw
2012-09-20 21:23
2013.03.22
Глюк в Сапёре? (Windows 7)


3-1278159587
alex810
2010-07-03 16:19
2013.03.22
Запрос с нечувствительностью к регистру


2-1342265873
rioko
2012-07-14 15:37
2013.03.22
StringGrid и удаление выделеных строк.


2-1335937740
Александр_12
2012-05-02 09:49
2013.03.22
Возможно ли управлять PowerPoint


15-1328645259
Artem
2012-02-08 00:07
2013.03.22
Как проверить что тип TreeNode^ имеет "нулевое значение"?(C++)





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский