Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > БД в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 03.04.2010, 18:05   #1
akimov_aleks
Подтвердите свой е-майл
 
Регистрация: 31.01.2010
Сообщений: 12
По умолчанию присвоить из бд переменным

добрый день всем. есть бд в Access вней таблица contact с полями Имя, Фамилия, Отчество, Адрес, Телефонраб, Телефонсот, Почта, Организация
как сделать чтоб по порядку присваивались пременным a,b,c,d,e,f,k
соотвественно
Фамилия=a
Отчество=b
Адрес=c
Телефонраб=d
Телефонсот=f
Почта=k
попорядку сначало из первой строки и так далия...
akimov_aleks вне форума Ответить с цитированием
Старый 03.04.2010, 19:17   #2
Grag
А может и не...
Участник клуба
 
Аватар для Grag
 
Регистрация: 27.03.2010
Сообщений: 1,269
По умолчанию

Код:
 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
Перемешивай дело с бездельем и не сойдешь с ума...
Grag вне форума Ответить с цитированием
Старый 03.04.2010, 23:08   #3
akimov_aleks
Подтвердите свой е-майл
 
Регистрация: 31.01.2010
Сообщений: 12
По умолчанию

не чего не понял
akimov_aleks вне форума Ответить с цитированием
Старый 06.04.2010, 20:21   #4
Dark_Spirit
Форумчанин
 
Аватар для Dark_Spirit
 
Регистрация: 05.02.2009
Сообщений: 324
По умолчанию

если используеш 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;
в принципе тебе вверху всё доходчиво показали
Тяжело быть бестолковым.....
Dark_Spirit вне форума Ответить с цитированием
Старый 07.04.2010, 05:55   #5
artemavd
Старожил
 
Аватар для artemavd
 
Регистрация: 05.06.2008
Сообщений: 4,194
По умолчанию

Например так:
Код:
 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; 07.04.2010 в 07:50.
artemavd вне форума Ответить с цитированием
Старый 07.04.2010, 07:51   #6
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Цитата:
artemavd
А открыть запрос не забыл?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 07.04.2010, 08:24   #7
artemavd
Старожил
 
Аватар для artemavd
 
Регистрация: 05.06.2008
Сообщений: 4,194
По умолчанию

Упс Виноват, забыл. Я лишь подсказать автору хотел идею, да и писал ответ с телефона тем более
Не стоит смеяться над человеком делающим шаг назад, возможно он делает разбег.
artemavd вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Циклы с переменным количеством шагов Froost Общие вопросы Delphi 1 10.11.2009 19:30
присвоение значений переменным из строки sergey[zel] Общие вопросы Delphi 6 15.06.2009 12:08
Доступ к переменным RealSHELS Общие вопросы Delphi 4 15.06.2008 13:14
простая задача по строковым переменным STEEL-F Помощь студентам 6 21.01.2008 22:32
Вопрос (новичка) по переменным. grey Помощь студентам 5 03.11.2007 17:25