Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Базы данных и репортинг > АДО Имена Таблиц. Ошибка.

Автор: WolfON 2.4.2005, 16:48

Код


tbls:TString;
tbls:=TStringList.Create;
ADOConnection1.GetTableNames(tbls);

Говорит

Цитата

CoInitialize not been called

Автор: Alex 2.4.2005, 18:18

Код


var
  tbls:TStringList;
begin
  tbls:=TStringList.Create;
  ADOConnection1.GetTableNames(tbls);

Автор: WolfON 2.4.2005, 19:17

Alex
уже 2 апреля.
это и ежу понятно, глючит на строчке ADOConnection1.GetTableNames(tbls);

Автор: Alex 2.4.2005, 20:09

WolfON, тогда приводи более полный код

Автор: WolfON 2.4.2005, 23:23

Alex
Разве-что скажу, что база Access, а ось - WinXP SP2.

Всего с теми 2 строчками - глюк smile

Добавлено @ 23:24
Кароче я решил проблему так:

Код


uses ActiveX;

CoInitialize(nil);
ADOConnection1.GetTableNames(tbls);
CoUnInitialize;

Автор: DDX 4.4.2005, 15:25

седня уже, конечно 4 апреля и всё же
я, например, пишу так:
var TablesNames : TStrings;

...
TablesNames:=TStringList.Create ;
...

adoConnection1.GetTableNames(TablesNames);

и всё отлично работает