присвоить из бд переменным

[akimov_aleks]

добрый день всем. есть бд в Access вней таблица contact с полями Имя, Фамилия, Отчество, Адрес, Телефонраб, Телефонсот, Почта, Организация
как сделать чтоб по порядку присваивались пременным a,b,c,d,e,f,k
соотвественно
Фамилия=a
Отчество=b
Адрес=c
Телефонраб=d
Телефонсот=f
Почта=k
попорядку сначало из первой строки и так далия...

[Grag]

 for curRecord:=0 to contact.RecordCount-1 do
   for nFld:=o to contact.FieldCount-1 do
     case nFld of
       0:a:=contact.Fields[nFld].AsString;
       1:b:=contact.Fields[nFld].AsString;
        .................
        и т.д.
     end

[akimov_aleks]

не чего не понял

[Dark_Spirit]

если используеш ADOTable:

 while not AdoTable1.eof do
   begin
     for i:=0 to adotable1.Fieldcount-1 do
       case i of
        0:a:=adotable1.fields[i].value
         .............
       end; 
     adotable1.next;
   end;

в принципе тебе вверху всё доходчиво показали

[artemavd]

Например так:

 Query1.Sql.clear; Query1.Sql.Text:='select family,name from my_table';
 Lable1.caption:=query1.fieldbyname('family').AsString; Lable2.caption:= query1.fieldbyname('name').AsString;

И так далее. Это всего лишь для примера, по аналогии сделайте под себя.

[Stilet]

artemavd

А открыть запрос не забыл?

[artemavd]

Упс Виноват, забыл. Я лишь подсказать автору хотел идею, да и писал ответ с телефона тем более