Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];




Вниз

ADO+Excel+Delphi5 


Анонимщик   (2001-12-04 20:25) [0]

Что нужно прописать в ConnectionString для TADOTable, чтобы оно поняло, что нужно (в design time) заполнять список имен таблиц именами листов книги экселя? То же самое и runtime"а касается, естественно. Патчи поставил, не помогает. Может, кроме этого что-то сделать нужно?



Delirium   (2001-12-04 20:32) [1]

А такое возможно? Может по старинке CreateOleObject...



Yuri Btr   (2001-12-05 09:42) [2]

Так как вы это описали, то это невозможно принципиально. TADOTable работает с таблицами но не с Excel файлами. Опишите задачу поподробнее.



Анонимщик   (2001-12-05 11:07) [3]

Как жто невозможно? Сбрасываем на форму компоненту TADOTable, потом делаем ConnectionString типа:
Provider=MSDASQL.1;Persist Security Info=False;Extended Properties="DBQ=C:\Program Files\Microsoft Office\Office\FUNCS.XLS;DefaultDir=C:\Program Files\Microsoft Office\Office;Driver={Driver do Microsoft Excel(*.xls)};DriverId=790;FIL=excel 8.0;FILEDSN=C:\Program Files\Common Files\ODBC\Data Sources\Files Excel.dsn;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;ReadOnly=0;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;"

Это понятно? Все как обычно. Файл - который в примерах с экселем. Так в данном случае имена таблиц можно будет выбрать - это FuncRange и SortRange. Но в других случаях, с другими файлами экуселя, не выходит ничего. Вообще ADO позволяет работать с чем угодно как с базой данных, только бы ODBC драйвер был, а к экселю он есть. В конце концов, в BDE точно то же самое происходит. К тому же, я использовал ADO (как COM-технологию, а не как компонент, естественно) в вижуал си майкрософтофском - так все нормально. Может, поможете поэкспериментироваь?



Анонимщик   (2001-12-06 10:51) [4]

Так никто ничего и не скажет?



Анонимщик   (2001-12-06 13:24) [5]

Да, если составить запрос, скажем, select * from Sheet1$, то все работает, но каким же образом узнать имена листов без использования CreateOleObject... и т.д.?




Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.75 MB
Время: 0.028 c
6-22306           Mamed                 2001-10-09 12:57  2002.01.08  
Активизация старый окно программы запушенный 2-ой раз!


7-22420           Cntcyz.cm crfpfnm cd  2001-09-21 21:12  2002.01.08  
Народ подскажите как мне быть ?


14-22411          MadBurro              2001-11-12 20:52  2002.01.08  
WinXP cd-key


7-22452           fsp                   2001-09-23 18:24  2002.01.08  
Событие onclick для программно созданного компанента


1-22176           Serg5                 2001-12-20 14:57  2002.01.08  
Опять проблема с текстом: вывожу на экран Image1.Canvas.TextOut, но под самим текстом белый беграунд. Можно ли если не убрать(просто наложить буквы), то хотя бы беграунд сделать чёрным.