Поиск в БД связь с Аксесс

[MikaS007]

имеется кнопка Button1 и Edit1 после написания в едите жмём кнопку и появляются результаты поиска можно в мемо...мой код не работает

ADOQuery1.Active:=False;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * FROM Ученики WHERE Шифр LIKE "%'+Edit1.Text+'%"');
ADOQuery1.Active:=True;

[rdama]

Пожалуйста переназови все таблицы и поля на английском.
Не надо пользовать русский.

[Stilet]

ADOQuery1.SQL.Add('SELECT * FROM Ученики WHERE Шифр LIKE  '+QuotedStr('%'+Edit1.Text+'%');

Не надо пользовать русский.

Глупости какие...

[rdama]

Ну а потом. Как жить то? А если придется пользовать MySQL, SQLite, MSSQL, Oracle там как без русского то?

И кстати как по мне так называть таблицы и поля в них на русском языке это как раз таки глупости. Которые потом только будут усложнять поиск и отлов ошибок.
Но мы с тобой Stilet опять от темы... :-)

[Stilet]

А если придется пользовать MySQL, SQLite, MSSQL, Oracle там как без русского то?

Все мои БД на русском. Глюков ни в Оракле ни в Сиквеле не ловил ниразу.

[rdama]

Ну тогда каждый при своем. :-)

[MikaS007]

Сообщение от Stilet

ADOQuery1.SQL.Add('SELECT * FROM Ученики WHERE Шифр LIKE  '+QuotedStr('%'+Edit1.Text+'%');

Глупости какие...

не работает(( тупо ничё не делает и как ещё прописать чтоб в мемо писал результаты поиска

[vovk]

ADOQuery1.close;
ADOQuery1.SQL.Text:='SELECT * FROM Ученики WHERE Шифр LIKE  '+QuotedStr('%'+Edit1.Text+'%');
ADOQuery1.open;
Memo1.Lines.Clear;
While not ADOQuery1.Eof do
begin
Memo1.Lines.Add(ADOQuery1.Fields.FieldByName('имя поля данные с которого хотите добавить в мемо').asstring);
ADOQuery1.next;
end;

[Dark_Spirit]

не работает(( тупо ничё не делает и как ещё прописать чтоб в мемо писал результаты поиска

если поле "Шифр" не текстовое тогда наверное будет лучше написать запрос таким образом:

 ADOQuery1.SQL.Add('SELECT * FROM Ученики WHERE Шифр='+inttostr(Edit1.Text);

для добавленя в memo:

 while not(adoquery1.eof) do
  begin
   memo1.lines.add(adoquery1.fieldbyname('имя_нужного_поля').value);
   adoquery1.next;
  end;

апаздал

[vovk]

Сообщение от Dark_Spirit

если поле "Шифр" не текстовое тогда наверное будет лучше написать запрос таким образом:

 ADOQuery1.SQL.Add('SELECT * FROM Ученики WHERE Шифр='+inttostr(Edit1.Text);

для добавленя в memo:

Код:

while not(adoquery1.eof) do
begin
memo1.lines.add(adoquery1.fieldbyna me('имя_нужного_поля').value);
adoquery1.next;
end;

подумайте ещё раз
И ещё даже если написать Strtoint ничего хорошего из этого не выйдет мы же не параметр используем, если поле числовое то просто можно кавычки убрать

и что вы имели ввиду тут

not(adoquery1.eof)

?
просто пробел не поставили? или я чтото недопонял?

ADOQuery1.SQL.Text:='SELECT * FROM Ученики WHERE Шифр = '+Edit1.Text;