динамическое создание TDataModule

← →
morfey-night (2004-01-20 17:00) [0]

почему я не могу динамически создать TDataModule, если на нем расположен любой ADO-шный компанент?

← →
имя (2004-01-20 18:36) [1]

Удалено модератором

← →
just me (2004-01-26 21:15) [2]

Часом не в консольной аппликации?
Скорее всего просто не инициирована исполняющая среда OLE - надо ручками.

← →
alex_*** © (2004-01-28 09:38) [3]

какая еще исполнительная среда OLE? Причем здесь OLE? Приводи код - как создаешь

← →
Artem03 (2004-01-28 10:01) [4]

А зачем создавать TDataModule?
Куда проще создавать сами компоненты для доступа к данным.

var
ADOCon,ADOCon_Fil: TADOConnection;
QR: Array [1..MAX_DS] Of TADODataSet;
ADOC: Array [1..MAX_DS] Of TADOCommand;
DS: Array [1..MAX_DS] Of TDataSource;
...
ADOCon:=TADOConnection.Create(ADOCon);
ADOCon.ConnectionTimeout:=300;
ADOCon.ConnectionString:="FILE NAME="+UDLFile;
ADOCon.KeepConnection:=False;
ADOCon.LoginPrompt:=False;
ADOCon.Provider:=UDLFile;

For i:=1 To MAX_DS Do
Begin
QR[i]:=TADODataSet.Create(QR[i]);
ADOC[i]:=TADOCommand.Create(ADOC[i]);
DS[i]:=TDataSource.Create(DS[i]);
QR[i].Connection:=ADOCon;
ADOC[i].Connection:=ADOCon;
QR[i].BlockReadSize:=0;
QR[i].MaxRecords:=0;
QR[i].CursorType:=ctDynamic;
DS[i].DataSet:=QR[i];
End;

может автор хотел создать вручную DM уже сделанный в designer?

← →
just me (2004-01-28 13:08) [6]

> alex_*** [3]
OLE (или вернее COM) здесь очень даже причем - если понимать, в чем суть...

динамическое создание TDataModule Найти похожие ветки