|
Сообщения за день | Добавить альбом | Поиск | Правила форума |
|
Опции темы | Опции просмотра |
05.01.2006, 13:55 | #1 |
;-)
|
Нужна помощь по Delphi 7
Не могу никак сделать поиск в программе, потерял исходники готового поиска, а у самого чето еще ума не хватает :-)
Суть в том, что надо в поле Edit1 вписать текст, нажать на кнопочку (в которой должна быть прописана вся процедура поиска) и вывести результат в таблице через DBGrid1 Поиск ведется из таблицы сделанной в MS Access и связанной с программной через компнонент ADOQuery вот как это примерно выглядеть должно... procedure TForm4.Button2Click(Sender: TObject); var sql:string; begin sql:=''; ADOQuery1.Active:=false; if Edit1.text<>'' then sql:='a.Название like "'+Edit1.text+'%"'; if (sql<>'') then sql:='where '+sql; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add('select * from Games a '+sql); ADOQuery1.Active:=true; end; помоги мне Последний раз редактировалось enikeu; 05.01.2006 в 14:17. |
05.01.2006, 14:28 | #2 |
;-)
|
База данных Games.mdb в ней таблица Games, в таблице строка Название именно на нее мне надо сделать этот сраный поиск :-/
у меня почему то выдается "Ошибка синтаксиса в предложении FROM", помогите мне :-) |
05.01.2006, 19:46 | #3 |
Новичок
Регистрация: 17.08.2004
Сообщений: 780
|
запрос должен быть примерно таким:
Код:
select * from Games as a where (a.Название like "text"); |
05.01.2006, 20:35 | #4 |
;-)
|
так он будет искать тока "text" прописанный в коде, а мне надо чтобы тот который я буду вводить в поле Edit
|
05.01.2006, 21:04 | #5 |
waiting for god
|
мде..
sql:='a.Название like '''+Edit1.text+'%'''; отметьте - вокруг Edit1.text - по 3(!) апострофа. ps sorry, такая конструкция точно работает для сиквеля, для акцеса не может другое что.
__________________
... и был я слеп, но теперь вижу. |
05.01.2006, 21:13 | #6 |
;-)
|
это 100% рабочий код из рабочей программы только немного переделанный
|
05.01.2006, 21:14 | #7 |
;-)
|
кстати это не 3(!) апострофа, это кавычки и 1 апостраф
|
05.01.2006, 21:40 | #8 |
waiting for god
|
попробуй написать
from games as a вдруг поможет.
__________________
... и был я слеп, но теперь вижу. |
07.01.2006, 16:07 | #9 |
;-)
|
лююююююди ну помогите сделать поиск!!! :-(((
|
07.01.2006, 20:07 | #10 | |
;-)
|
/me гордится собой :-)
вот подумал, рас никто не хочет помочь нада делать самому... и сделал! 8-)) кому интересно код получился такой Цитата:
|
|
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
нужна помощь | МАКСИМ | Авто-Мото | 0 | 21.08.2007 17:08 |
Нужна помощь с с65 | TAPAKAH | Мобильный мир | 8 | 07.02.2006 15:58 |
|