Форум: "Базы";
Текущий архив: 2003.07.31;
Скачать: [xml.tar.bz2];

Вниз

DETAIL_ADODataSet.IsEmpty   Найти похожие ветки 

← →
Silver_   (2003-07-04 17:41) [0]

Как узнать что MASTER_ADODataSet не имеет связей в DETAIL_ADODataSet

DETAIL_ADODataSet.IsEmpty не катит

Можно конечно через запрос узнать. Но зачем запрос строить если и так имеем подчиненые записи, надо тока узнать они есть или нет, но как :о)

---

← →
Silver_   (2003-07-04 18:12) [1]

Я чет не пойму че нельзя узнать
- Есть / нет подчиненных записей
- Количество подчиненых записей

Мастаки ну где вы тама Ау-у-у-у-у-у!!!!!

---

← →
Silver_   (2003-07-07 11:10) [2]

Мастаки уже понедельник. Все дружно просыпаемся и отвечаем на етот пост :о). Заранее спасибочки.

---

← →
Silver_   (2003-07-07 12:12) [3]

Не могу поверить что Борланды допустили такое упущение. Или это просто я не в курсе :о(

ЗЫ. Мастаки не налетайте все сразу на этот пост, не успеваю ответы читать :о)

---

← →
Johnmen   (2003-07-07 12:45) [4]

Если все правильно проставлено и определено, то
DETAIL_ADODataSet.RecordCount

---

← →
Silver_   (2003-07-07 15:17) [5]

> DETAIL_ADODataSet.RecordCount

Всё время выдает одно и то-же значение 31 в не зависимости от того есть там записи или нет, причем в самой таблице (без связи с главной таблицей) СОТНИ(!) записей

---

← →
Johnmen   (2003-07-07 15:34) [6]

DETAIL_ADODataSet.Last;
DETAIL_ADODataSet.RecordCount;

---

← →
Silver_   (2003-07-07 16:15) [7]

> Johnmen © (07.07.03 15:34)
> DETAIL_ADODataSet.Last;>
DETAIL_ADODataSet.RecordCount;


Тот же бордель получаю !!!

КАК Лечить ?????

---

← →
Семен Сорокин   (2003-07-07 16:23) [8]

Silver_ © (07.07.03 16:15)
проверь связь, наверняка разрыв

---

← →
Silver_   (2003-07-07 16:29) [9]

> Семен Сорокин © (07.07.03 16:23)
> Silver_ © (07.07.03 16:15)
> проверь связь, наверняка разрыв


Поясните а то не пойму :о)

---

← →
Silver_   (2003-07-07 17:13) [10]

Странно что ответов нет. Не могу поверить что нельзя узнать такую инфу у подробной таблици :о(((((((((((((((((((

---

← →
Silver_   (2003-07-07 17:41) [11]

Пришел извеняться !!!!!
Делал так, Листаю все НД определяю тех кому DataSet является мастером
function GetNotEmptyDetailDataSet(Connection: TADOConnection; DataSet: TDataSet): TDataSet;
var
i: integer;
begin
Result:=nil;
for i:=0 to Connection.DataSetCount-1 do
begin
with TADODataSet(Connection.DataSets[i]) do
if DataSource <> nil then
if DataSource.DataSet = DataSet then
if (not DataSource.DataSet.Active) or
(not ( DataSource.DataSet.IsEmpty)) then
begin
Result:= DataSource.DataSet;
Break;
end;
end;
end;

а надо боло так

function GetNotEmptyDetailDataSet(Connection: TADOConnection; DataSet: TDataSet): TDataSet;
var
i: integer;
begin
Result:=nil;
for i:=0 to Connection.DataSetCount-1 do
begin
MainForm.MainProgressBar.Position:=i;

with TADODataSet(Connection.DataSets[i]) do
if DataSource <> nil then
if DataSource.DataSet = DataSet then
if (not TADODataSet(Connection.DataSets[i]).Active) or
(not ( TADODataSet(Connection.DataSets[i]).IsEmpty)) then
begin
Result:= TADODataSet(Connection.DataSets[i]);
Break;
end;
end;
end;

Не туды обращался. Трассировкой не получалось посмотреть :о(
обнаружил когда поставил DataSource.DataSet.First и увидел кто откликнулся так все и понял.


> Silver_ © (07.07.03 12:12)
> Не могу поверить что Борланды допустили такое упущение.
> Или это просто я не в курсе :о(

Отдельное извинение перед Борландами, Хорошие парни! :о)

---

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

Форум: "Базы";
Текущий архив: 2003.07.31;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.47 MB
Время: 0.009 c