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

[Dark_Spirit]

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

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

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

спасибо, провтыкал )

[superpyct]

with ADOQuery1 do
 begin
  Filtered := True;
  Filter := 'Шифр LIKE "%'+Edit1.Text+'%"';
  while not Eof do
   begin
    Memo1.Lines.Add(FieldByName(Название поля).AsString);
    Next;
   end;
 end;

[Alukard ń_ಶ]

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

для пользователя rdama так как не нашел иного способа

я всё вам хочу спасибо сказать и спросить
а для остальных таблиц я тожет пробовал сдлать так как вы тока не вышло
не сочтите за наглость но не могли бы вы показать поэтапно в скринах с коментариями как вы сделали "процедуру добавления" я не всё связи нашел


если вам не трудно если что пишите в на madedinov@mail.ru

и я тут на форуме запарился не смог найти "написать сообщение"

[MikaS007]

Сообщение от 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;

апаздал

блина а как чтоб вот что он нашёл в столбце,выводилось вместе с названием поля ...типа так номер шрифта и Фамилия

[rdama]

блина а как чтоб вот что он нашёл в столбце,выводилось вместе с названием поля ...типа так номер шрифта и Фамилия

А ты сам понимаешь что спросил?
Нормально на русском напиши. Пожалуйста.
А то ну не понятно...
:-)

[Dark_Spirit]

блина а как чтоб вот что он нашёл в столбце,выводилось вместе с названием поля ...типа так номер шрифта и Фамилия

это типа так:

шифр - фамилия

тада можно попробовать сделать так:

 while not (adoquery1.eof) do
  begin
   memo1.lines.add(adoquery1.fieldbyname('имя_поля_где_шифр').value+' - '
                        +adoquery1.fieldbyname('имя_поля_с_фамилией').value);
   adoquery1.next;
  end;

чтобы то что я написал выше нормально работало в запросе указанные поля должны отбираться.

[rdama]

И перед началом цикла adoquery1.first;

[MikaS007]

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

А ты сам понимаешь что спросил?
Нормально на русском напиши. Пожалуйста.
А то ну не понятно...
:-)

вот что я нашёл в столбце,нужно вывести в мемо плюс строку где находиться эта запись

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

это типа так:

шифр - фамилия

тада можно попробовать сделать так:

 while not (adoquery1.eof) do
  begin
   memo1.lines.add(adoquery1.fieldbyname('имя_поля_где_шифр').value+' - '
                        +adoquery1.fieldbyname('имя_поля_с_фамилией').value);
   adoquery1.next;
  end;

чтобы то что я написал выше нормально работало в запросе указанные поля должны отбираться.

СПАССССССССССССССИИИИИИИИИИИИИБО!!! !!!!!!!!!

терь у мя такая проблема ...в я хочу чтоб поиск был всегда по одному слову,такой код

procedure TForm1.Button2Click(Sender: TObject);
begin

ADOQuery1.close;
ADOQuery1.SQL.Text:='SELECT * FROM Ученики WHERE Шифр LIKE  '+QuotedStr('%'+Edit2.Text+'%');
ADOQuery1.open;
Memo1.Lines.Clear;
while not (adoquery1.eof) do
  begin
   memo1.lines.add(adoquery1.fieldbyname('Шифр').value+' - '
                        +adoquery1.fieldbyname('ФИО').value);
   adoquery1.next;
  end;

терь куда мне написать чтоб поиск работал ток по слову A-174... и ещё хочу впереди засунуть сомбобокс, в нем идёт выбор таблицы и уже через него идёт мой поиск вверху...

[rdama]

SELECT * FROM выбранная в комбобокс таблица WHERE Шифр LIKE '+QuotedStr('%A-174%');

Только с полями разберись а то вдруг это значение надо для первой таблицы искать в одном поле, а для второй в другом.

Ну а можешь вписать строчку A-174 в Edit1 и сделать его не изменяемым.
Тогда твой запрос будет выглядеть так

SELECT * FROM выбранная в комбобокс таблица WHERE Шифр LIKE '+QuotedStr('%'+Edit2.Text+'%')

[MikaS007]

блин я не пойму как сделать условие,чтоб кнопка поиск зависела от выбранной таблицы...еси через case ничё не получется или где то чего то не хватает

var a,Ind:String;
begin
case combobox1.ItemIndex  of
0: Ind:='Ученики';
1: Ind:='Бла бла';

end;
ADOtable1.IndexfieldNames:=Ind;
ADOQuery1.close;
ADOQuery1.SQL.Text:='SELECT * FROM Ind WHERE Шифр LIKE  '+QuotedStr('%A-174%');