Database

← →
Pako (2004-02-03 11:28) [0]

Почему м/б DM.Database.DataSetCount = 0
в DM куча всяких датасетов, что не так

for i:=0 to DM.Database.DataSetCount-1 do
begin
if DM.Database.DataSets[i] is TTable then
if DM.Database.DataSets[i].Active then
DM.Database.DataSets[i].Close;

← →
Sandman25 © (2004-02-03 11:34) [1]

Database открыта? Именно на нее указывают TQuery и прочее? Почему данный код не лежит в методе класса TDM?

← →
Pako (2004-02-03 11:45) [2]

Database открыта

← →
Johnmen © (2004-02-03 11:48) [3]

И наборы данных активны ?
:)
см. хелп на свойство DataSetCount - там и ответ...

← →
Pako (2004-02-03 12:56) [4]

Спасибо

> Johnmen ©
:))
Извиняюсь за невнимательность

← →
Pako (2004-02-03 15:27) [5]

Хотелось бы примерно в таком же цикле сделать упаковку TTable
что-то типа:
....
for i:=0 to DM.Database.DataSetCount-1 do
PackTable(DM.Database.DataSets[i]);
....
но как вы видите DM.Database.DataSets[i]это вообще любой набор данных. Процедура PackTable взята из хелпа и работает только с TTable. Можно ли из DM.Database получить именно TTable?

← →
HSolo © (2004-02-03 15:34) [6]

if DM.Database.DataSets[i] is TTable then ...

← →
Sandman25 © (2004-02-03 15:34) [7]

... is TTable
TTable(...)

← →
Pako (2004-02-03 15:39) [8]

я понимаю что надо проверить is TTable then

> TTable(...)

в скобках что имеется ввиду

if DM.Database.DataSets[i] is TTable then
PackTable(TTable(DM.Database.DataSets[i]))

← →
Pako (2004-02-03 15:45) [10]

большой сенькс:))

> Sandman25 © (03.02.04 15:42) [9]
> if DM.Database.DataSets[i] is TTable then
> PackTable( TTable(DM.Database.DataSets[i]))

не хватало добавить TTable

Database Найти похожие ветки