Скачать: CL | DM;

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(...)

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

---

← →
Sandman25 ©   (2004-02-03 15:42) [9]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.018 c