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



Вниз

Глюк в DCom приложении или глюк Дельфи? 

Adulteress   (2001-12-08 23:53) [0]

Здравствуйте. Может кто сталкивался с такой проблемой? Почему IBQuery выдает количество записей 1 если пускать запрос к базе с DCom клиента, если их около 100? Причем, если обращаться к базе напрямую (а не через сервер приложений), все нормально?

Процедура на сервере:
procedure TTestDCServer.TestQuery;
begin
IBQuery1.Close;
IBQuery1.SQL.Clear;
IBQuery1.SQL.Add("Select * from TABLE1");
IBQuery1.Prepare;
IBQuery1.Open;
Form1.Edit1.Text := IntToStr(IBQuery1.RecordCount);
end;

Процедура на клиенте:
procedure TForm1.Button1Click(Sender: TObject);
begin
DComConnection1.Open;
DComConnection1.AppServer.TestQuery;
end;

---

Быданцев Александр   (2001-12-09 16:36) [1]

Возможно, не считываются все записи.
Попробуйте добавить после
IBQuery1.Open;

IBQuery1.Last;

У меня была такая же проблема с MSSQL.
Возможно, есть другое решение....

---

Юрий   (2001-12-10 02:17) [2]

IBQuery1.Close;
IBQuery1.SQL.Clear;
IBQuery1.SQL.Add("Select * from TABLE1");
IBQuery1.Prepare;
IBQuery1.Open;
IBQuery1.FetchAll;
Form1.Edit1.Text := IntToStr(IBQuery1.RecordCount);

---

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

Наверх

Память: 0.71 MB
Время: 0.03 c