| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

DETAIL_ADODataSet.IsEmpty [MS Access]

Silver_ ©   (2003-07-04 17:41:00) 

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

DETAIL_ADODataSet.IsEmpty не катит

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

---

Silver_   (2003-07-07 17:41:00) [1]

Пришел извеняться !!!!!
Делал так, Листаю все НД определяю тех кому 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)
> Не могу поверить что Борланды допустили такое упущение.
> Или это просто я не в курсе :о(

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

---

Silver_   (2003-07-07 17:13:00) [2]

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

---

Silver_   (2003-07-07 16:29:00) [3]

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


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

---

Семен Сорокин   (2003-07-07 16:23:00) [4]

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

---

Silver_   (2003-07-07 16:15:00) [5]

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


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

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

---

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

DETAIL_ADODataSet.Last;
DETAIL_ADODataSet.RecordCount;

---

Silver_   (2003-07-07 15:17:00) [7]

> DETAIL_ADODataSet.RecordCount

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

---

Johnmen   (2003-07-07 12:45:00) [8]

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

---

Silver_   (2003-07-07 12:12:00) [9]

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

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

---

Silver_   (2003-07-07 11:10:00) [10]

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

---

Silver_   (2003-07-04 18:12:00) [11]

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

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

---

Наверх