| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
динамическое создание TDataModule [Delphi, Windows]
morfey-night © (2004-01-20 17:00:00)почему я не могу динамически создать TDataModule, если на нем расположен любой ADO-шный компанент?
just me (2004-01-28 13:08:00) [1]> alex_*** [3]
OLE (или вернее COM) здесь очень даже причем - если понимать, в чем суть...
alex_*** (2004-01-28 10:21:00) [2]может автор хотел создать вручную DM уже сделанный в designer?
Artem03 (2004-01-28 10:01:00) [3]А зачем создавать 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;
alex_*** (2004-01-28 09:38:00) [4]какая еще исполнительная среда OLE? Причем здесь OLE? Приводи код - как создаешь
just me (2004-01-26 21:15:00) [5]Часом не в консольной аппликации?
Скорее всего просто не инициирована исполняющая среда OLE - надо ручками.
(2004-01-20 18:36:00) [6]Удалено модератором
| |
