Форум: "Основная";
Текущий архив: 2002.11.25;
Скачать: [xml.tar.bz2];
ВнизПомогите создать TDataSetProvider в рантайме Найти похожие ветки
← →
mvg_first (2002-11-13 20:22) [0]Вообщем создал RemoteDataModule, положил в него Запрос и провайдер, соединил, написал клиент, в клиенте положил DComConnection, ClientDataSet все подключил - работает.
Решил усложнить задачу. В RDM используя TypeLibrary добавил метод TestExec(TabName :BSTR) и реализовал в нем следующий код
procedure TMainRDM.TestExec(const TabName: WideString);
begin
TestQ := TADOQuery.Create(self);
TestDSP := TDataSetProvider.Create(self);
TestQ.Connection := ADOConnection1;
TestQ.CursorLocation := clUseServer;
TestQ.CursorType := ctKeyset;
TestQ.SQL.Text := "SELECT * FROM "+TabName;
TestDSP.Exported := true;
TestDSP.DataSet := TestQ;
end;
Переменные TestQ -объявлены в Public секции модуля данных.
В клиенте делаю следующуе
procedure TForm2.ToolButton2Click(Sender: TObject);
var
ws : WideString;
begin
ws := "SC115";
DcoMConnection1.Connected := true;
DCOMConnection1.AppServer.TestExec(ws);
ClientDataSet1.ProviderName := "TestDSP";
ClientDataSet1.Open;
end;
При запуске - выдает ошибку:
Provider not exported: TestDSP
Почему? Что я делаю не так? Или провайдеров в рантайме нельзя создавать?
← →
Набережных С. (2002-11-13 22:10) [1]Попробуй TestDSP.Name:="TestDSP"; Авось...
← →
mvg_first (2002-11-14 12:09) [2]Спасибо :)
Помогло :)
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.11.25;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c