Как вывести записи(строк) таблици базы данных mdb в memo, в цикле for?

[Женя32]

Подскажите пожалуйста, как сделать выборку по определенным полям таблици, и вывести результат в memo?
Пробовал вот так, но почему-то выходит ошибка.

procedure TForm4.FormActivate(Sender: TObject);
var I:integer;
begin
Form1.ADOQuery1.SQL.Clear;
  Form1.ADOQuery1.SQL.Add('select [id] from [registration]');
  Form1.ADOQuery1.Active := true;
  for I := Form1.ADOQuery1.RecNo to Form1.ADOQuery1.RecordCount do
    begin
      Memo1.Lines.Add(Form1.ADOQuery1.FieldValues['id']);
      Form1.ADOQuery1.Next;
    end;
end;
 
end.

[Аватар]

И че, в том jpg можно что-то понять? Понял, что какой-то фиелд, явно не id, не найден в чем-то

[Stilet]

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

[Женя32]

Сообщение от Аватар

И че, в том jpg можно что-то понять? Понял, что какой-то фиелд, явно не id, не найден в чем-то

Project Projec1.exe raised exception class EDatabaseError with message 'DBEdit9: Fild 'ПАдрес' not found'. Process stopped. Use Step or Run to continue.

А почему id не ищет? Я же указал id/

[Аватар]

DBEdit9 с ПАдрес в качестве имени поля через DataSource ссылается на ADOQuery1, а в нем есть только id. Вот при открытии ADOQuery1 и вываливается ошибка, а не потому, что id не найдено

[Женя32]

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

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

У меня на основной форме один tedit, один tComboBox и кнопка поиска.

procedure TForm1.Button1Click(Sender: TObject);

     begin
Form1.dbgrid1.DataSource.DataSet.Locate(ComboBox1.Text, Edit1.Text, [loPartialKey]);
     if not Form1.dbgrid1.DataSource.DataSet.Locate(ComboBox1.Text, Edit1.Text, [loPartialKey]) then
        begin
           ShowMessage('В катнгории: "'+ComboBox1.Text+'", По запросу: "'+Edit1.Text+'" ничего не найдено! Попробуйте сменить категорию.');
        end
     else
        begin
           Form4.ShowModal;  //показываем результат поиска в другой форме
        end;

   
end.

И вот я хочу сделать так, чтоб, если в результате поиска нашлись записи с одинаковыми, например, фамилиями, или адресам, то отрывалась бы форма, и в мемо были бы перечислены эти поля.

[Stilet]

У меня на основной форме один tedit, один tComboBox и кнопка поиска.

А у меня молоко на плите, но это не значит что я шоколад варить не буду.
Еще раз - у тебя для DBEdit9 определено поле, которого нет в запросе, связанном с этим эдитом. В коде это нигде не отражено.

[Женя32]

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

...
Еще раз - у тебя для DBEdit9 определено поле, которого нет в запросе, связанном с этим эдитом. В коде это нигде не отражено.

Я не понимаю, где именно, и для чего нужно в запросе указывать какое-то поле, если я в tComboBox`e указываю в каком столбце нужно вести поиск? У меня DBEdit`ы с поиском вообще никак не связаны, у меня DBEdit`ы расположены на формах ввода и редактирования, и все.

[Аватар]

1. В момент активизации ADOQuery1 оно посылает сигнал всем DataSource, которые на него ссылаются. Не важно где они расположены, на этой форме или других , важно, что эти формы созданы, и не важно отображаются или нет.
2. Аналогично эти DataSource посылают сигнал всем DB-компонентам, которые на них ссылаются.
3. В DBEdit9, который расположен фиг его знает где пришло такое сообщение. Что он делает? Ищет в полях набора поле, которое в нем указано и не находит в данном случае. Что делает? Подымает исключение. И что? На команде Form1.ADOQuery1.Active := true; вываливается сообщение об ошибке

ADD

Да, и

for I := Form1.ADOQuery1.RecNo to Form1.ADOQuery1.RecordCount do

очень плохой способ организации цикла по набору. Лучше

while not Form1.ADOQuery1.Eof do

[Женя32]

Сообщение от Аватар

...
3. В DBEdit9, который расположен фиг его знает где пришло такое сообщение. Что он делает? Ищет в полях набора поле, которое в нем указано и не находит в данном случае. Что делает? Подымает исключение. И что? На команде Form1.ADOQuery1.Active := true; вываливается сообщение об ошибке...

А почему не находит это поле? Я же соединил DBEdit9,
через DataSource и DataFild, с полем "ПАдрес". С помощью формы ввода, и формы редактирования, через DBEdit9, я могу вводить информацию, и редактировать ее, и никаких ошибок не возникает.
Что еще надо сделать чтоб ADOQuery1, при выводе в цикле, находила это поле?