Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Поиск по базе [D6, Access]


pashaz ©   (2004-12-06 14:50:00) 

Ситуация:

значение1      данные1
значение2      данные2
значение3      данные3

причём значение1=значение2-значение3, но данные1<>данные2<>данные3.

как сделать, чтобы после запроса выводились ВСЕ данные, а нетолько для первой найденной записи?


msguns   (2004-12-06 17:59:00) [1]

А все потому, что такое применение отступов в тексте не помогает, а мешает разобраться в конструкциях With .. do


pashaz   (2004-12-06 17:35:00) [2]

ВСё, всем спасибо. Сам дурак. Дошло, наконец.


pashaz   (2004-12-06 17:31:00) [3]

to msguns

 with ADOQuery2 do
        begin
         Active:=False;
         SQL.Clear;
         SQL.Add('select * from OZHEGOV where VOCAB = :a');
         ParamCheck:=True;
         Parameters.ParamByName('a').Value:=AdvEdit1.Text;
         Open;
        end;
        Memo1.Text:=ADOQuery2.Fields[2].AsString;
        with Memo2 do
         begin
          Lines.Clear;
           while not Eof do
            begin
             Lines.Add(ADOQuery2.Fields[3].AsString);
             Next;
            end;
         end;
//         Memo2.Text:=ADOQuery2.Fields[3].AsString;
      end;

не работает.  ругается на while not Eof do   - input ouput error


Sergey13   (2004-12-06 17:03:00) [4]

Ну дык и пройдись циклом по всем значениям.


msguns   (2004-12-06 17:01:00) [5]

>pashaz   (06.12.04 16:54) [5]

;)))

with ADOQuery2,Memo1 do
 begin
  Lines.Clear;
  if Active then Close;
  Open;
  while not Eof do
    begin
     Lines.Add(Fields[1].AsString);
     Next;
    end;
 end;


pashaz   (2004-12-06 16:54:00) [6]

поле1      поле2
аббат      йййййййййййййййй
аббат      цццццццццццццццц
аббат      уууууууууууууууу

Select * from Table where поле1 = аббат.

Memo1.Text:=ADOQuery2.Fields[1].AsString;

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


Sergey13   (2004-12-06 15:02:00) [7]

2pashaz   (06.12.04 14:50)
А 1,2,3 - это разные записи? Как ты тогда определяешь какая 1, какая 2? Приведи структуру таблицы.


Johnmen   (2004-12-06 14:57:00) [8]

Так же, как и для первой...


Ega23   (2004-12-06 14:56:00) [9]

А может у тебя только одна запись, подходящая под такое условие


msguns   (2004-12-06 14:56:00) [10]

Соорудить отдельный запрос, выполнить его, а результат запихать куда-нить типа грида или листвьюхи. При перемещению по этому "гриду" делать локейт в основной НД по ид-ру.


Наверх

Титульная страница Поиск, карта сайта Написать письмо