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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 26.09.2012, 04:34   #1
galick
Пользователь
 
Регистрация: 27.05.2010
Сообщений: 17
По умолчанию Загрузка ADO БД

пишу программу с бд на ADO. вожу в editы данные и сохранятю их в аксесс. на кнопке сохранения написал:
adotable1.appendrecord([edit1.Text,edit2.text,edit3.text,ed it4.text,edit5.text,edit6.text]);
Все отлично сохраняет. а теперь хочу загрузить сохраненное в те же едиты, подскажите как это сделать?
(в едит1 ввоится номер ID (числовой) и введя номер ID в едит прога должна загрузить (выводить) всю строку связанное с этим ID)/

Последний раз редактировалось galick; 26.09.2012 в 17:04.
galick вне форума Ответить с цитированием
Старый 26.09.2012, 19:48   #2
Sciv
Старожил
 
Аватар для Sciv
 
Регистрация: 16.05.2012
Сообщений: 3,211
По умолчанию

Запросом, фильтром или функцией Locate получаете элемент с этим введенным ID и присваиваете:

Код:
Edit1.Text:=Table.FieldByName('FieldName').AsString;
// и так далее в том же духе
Начал решать проблему с помощью регулярных выражений. Теперь решаю две проблемы...
Sciv вне форума Ответить с цитированием
Старый 26.09.2012, 20:10   #3
Yurk@
Участник клуба
 
Аватар для Yurk@
 
Регистрация: 19.12.2007
Сообщений: 1,100
По умолчанию

Цитата:
Сообщение от Sciv Посмотреть сообщение
Запросом, фильтром или функцией Locate получаете элемент с этим введенным ID и присваиваете:

Код:
Edit1.Text:=Table.FieldByName('FieldName').AsString;
// и так далее в том же духе
немного дополню
Код:
if Table.Locate('id',Edit1.Text,[])=True
then
begin
  ShowMessage('Запись найдена. Режим редактирования');
  Table.Edit;
  Edit1.Text:=Table.FieldByName('id').AsString;
  // и так далее в том же духе
end
else
begin
  ShowMessage('Запись не найдена. Режим вставки');
  Table.Insert;
end;
На форуме: Помогаю за спасибо
ICQ\Skype: Это моё личное время ...
Yurk@ вне форума Ответить с цитированием
Старый 26.09.2012, 21:39   #4
Sciv
Старожил
 
Аватар для Sciv
 
Регистрация: 16.05.2012
Сообщений: 3,211
По умолчанию

Тогда уж и я добавлю:

В режиме вставки все едиты нужно обнулить (присвоить значение '')
Начал решать проблему с помощью регулярных выражений. Теперь решаю две проблемы...
Sciv вне форума Ответить с цитированием
Старый 27.09.2012, 16:54   #5
galick
Пользователь
 
Регистрация: 27.05.2010
Сообщений: 17
По умолчанию

Спасибо огромное вы мне очень помогли. Все отлично работает
galick вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Ado, access. Clos Помощь студентам 8 19.06.2010 18:38
БД ADO Alexsandr БД в Delphi 4 15.09.2008 08:13
ADO Killbrum Помощь студентам 5 25.08.2008 10:56
БД ADO SERG1980 БД в Delphi 1 17.07.2007 02:22