VPF::excell - Форум программистов

Timons

Дата 28.5.2005, 23:51 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

Репутация: нет
Всего: нет

есть таблица в excell
Надо ее в делфе как базу банных открыть и работать с ней
как сделать????

Snowy

Дата 30.5.2005, 17:18 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 4
Всего: 484

Через ODBC.
Настраиваешь ODBC на доступ к этому файлу, в своей программе настраиваешь источник данных из ODBC и работай как с базой.

Akella

Дата 3.6.2005, 11:16 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 2
Всего: 329

Я открывал через ADO (опять же ODBC).
Книга, как БД, а страницы в этой книге, как таблицы, должен быть пример в DRKB

Akella

Дата 6.7.2005, 09:53 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 2
Всего: 329

Но я наткнулся на грабли: книга не захотела нормально работать с существующими данными, а вот когда я работал с новой книгой, тогда я нормально смог читать и писать smile

в эту новую книгу

~FoX~

Дата 26.7.2005, 10:09 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

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

Репутация: 1
Всего: 68

Timons
Все очень просто:

Берем TADOQuery, TOpenDialog и батон и пишем вот такой вот код

Код


procedure TForm1.Button1Click(Sender: TObject);
var 
  s: string;
begin  
  OpenDialog1.Execute; 
  s:= OpenDialog1.FileName; 
  with ADOQuery1 do begin 
    Active := false;    
    ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + s + 
       ';Extended Properties=Excel 8.0;Persist Security Info=False'; 
{Вместо Excel 8.0, нужно указывать номер установленного оффиса, у меня office XP}
    SQL.Clear;
    SQL.Add('Select * From [Лист1$]'); {[Название листа+$]}
    Active := True;
  end;
end;

Далее берем TDataSource и подключаем к нему наш Query. Кидаем на форму TDBGrid и в свойстве DataSource указываем наш DataSource1. Компилим, прессуем батон и наслождаемся картинкой smile

Это сообщение отредактировал(а) ~FoX~ - 26.7.2005, 10:12

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

…множественность никогда не следует полагать без необходимости…

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: ActiveX/СОМ/CORBA \| Следующая тема »