Поиск:

Ответ в темуСоздание новой темы Создание опроса
> ListBox+ADO+Access, Заполнить ListBox данными из БД 
:(
    Опции темы
Zlo
  Дата 14.10.2007, 14:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 235
Регистрация: 18.9.2004

Репутация: нет
Всего: 1
Собственно искал сабж, но ничего так найти не удалось. Интересует как можно из БД Access с помощью ADO вытаскивать записи в стандортные компоненты например Memo или ListBox?
PM MAIL   Вверх
ALeXandrK
Дата 14.10.2007, 17:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 342
Регистрация: 31.1.2007
Где: Санкт-Петербург

Репутация: 2
Всего: 6
Если сабж не нашел на форуме, то поищи в инете... тема то избитая.

Это сообщение отредактировал(а) ALeXandrK - 14.10.2007, 17:08


--------------------
Богат не/ни тот, у кого много, а тот, кому хватает
PM WWW   Вверх
Anark1
Дата 14.10.2007, 18:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 622
Регистрация: 15.12.2006
Где: RF -> Moscow

Репутация: 1
Всего: 11
Код

ADOQuery1.SQL.Add('SELECT * FROM CLIENTS WHERE CLIENTS.ID < 50');
ADOQuery1.Open();


Пусть есть компонент Memo1 и Button1, при нажатии на которую в Memo1 отображались бы записи в порядке выборки.
Обработчик события OnClick

Код

ADOQuery1.Next(); 
Memo1.Text = ADOQuery1.FieldByName('INFO').AsString;


Аналогично для любых компонентов. Хотя в идеале нужно смотреть влезет ли строка в текстовое поле.


--------------------
Enjoy yourself, still you can...;)

user posted image

user posted image
PM MAIL ICQ   Вверх
Anakin
  Дата 10.1.2008, 12:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 192
Регистрация: 25.9.2006

Репутация: нет
Всего: нет
Да у меня тоже возникла такая проблема. (
Делаю так:
Код

Procedure tMainForm.ShowStatus;
Begin
qonline.Close;
qonline.SQL.Clear;
qonline.SQL.Add('SELECT tOnline.ID, tOnLine.Users FROM tonline');
qonline.Open;
lst_status.Clear;
while not MainForm.qonline.Eof do
  begin
    lst_status.Items.AddObject(MainForm.qonline.Fields.Fields[1].AsString, Pointer(MainForm.maccess.Fields.Fields[0].AsInteger));
    MainForm.qonline.Next;
End;
End;

Но ListBox пустой ((
ЧТо я не так делаю подскажите.

Это сообщение отредактировал(а) Anakin - 10.1.2008, 12:59
PM MAIL   Вверх
Rodman
Дата 10.1.2008, 13:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 22
Всего: 122
Код

Procedure tMainForm.ShowStatus;
Begin
qonline.Close;
qonline.SQL.Clear;
qonline.SQL.Add('SELECT tOnline.ID, tOnLine.Users FROM tonline');
qonline.Open;
lst_status.Clear;
while not MainForm.qonline.Eof do
  begin
    lst_status.Items.AddObject(MainForm.qonline.Fields.Fields[1].AsString, Pointer(MainForm.qonline.Fields.Fields[0].AsInteger));//прикол в том что ты брал данные из разных запросов... сравни свой и этот вариант
    MainForm.qonline.Next;
End;
End;


Добавлено через 19 секунд
см. коменты


--------------------

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
Anakin
Дата 10.1.2008, 13:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 192
Регистрация: 25.9.2006

Репутация: нет
Всего: нет
Да ) Спасибо. Это моя ошибка проблему я решил и зашол на фурум что бы отписатса )
Это проста по тупости (
В Любом случае Спасибо огромное.
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Базы данных и репортинг"
Vit
Петрович

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


Обязательно указание:

1. Базы данных (Paradox, Oracle и т.п.)

2. Способа доступа (ADO, BDE и т.д.)


  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • Вопросы по SQL и вопросы по базам данных не связанные с Дельфи задавать здесь

FAQ раздела лежит здесь!

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Vit, Петрович.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Базы данных и репортинг | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0504 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.