A
AK-47
Unregistered / Unconfirmed
GUEST, unregistred user!
我服务器上的方法为:
procedure Tsvr_lhz.Get_BDZ_info(const SDM: WideString;
out vData: OleVariant);
var
sSQL:string;
begin
sSQL:='select * from pdda_bdz where dzbh in (select dzbh from pdda_bdzqx where sdm='''+SDM+''')';
ADOQuery_temp.Close;
ADOQuery_temp.SQL.Clear;
ADOQuery_temp.SQL.Text:= sSQL;
ADOQuery_temp.Open;
if ADOQuery_temp.RecordCount<>0 then
begin
// DSP_BDZ_XL.DataSet:=ADOQuery_BDZ_XL.DataSource.DataSet;
vData:=DSP_Temp.Data;
end
else
vData:=null;
end;
在客户端调用
frm_login.SocketConnection1.AppServer.Get_BDZ_Info('102',CDS_XL.Data);
CDS_XL.Open;
出现“provider not exported
ataSetProvider1”错误,没有名为DataSetProvider1的DSP控件
环境:D7+Oracle
procedure Tsvr_lhz.Get_BDZ_info(const SDM: WideString;
out vData: OleVariant);
var
sSQL:string;
begin
sSQL:='select * from pdda_bdz where dzbh in (select dzbh from pdda_bdzqx where sdm='''+SDM+''')';
ADOQuery_temp.Close;
ADOQuery_temp.SQL.Clear;
ADOQuery_temp.SQL.Text:= sSQL;
ADOQuery_temp.Open;
if ADOQuery_temp.RecordCount<>0 then
begin
// DSP_BDZ_XL.DataSet:=ADOQuery_BDZ_XL.DataSource.DataSet;
vData:=DSP_Temp.Data;
end
else
vData:=null;
end;
在客户端调用
frm_login.SocketConnection1.AppServer.Get_BDZ_Info('102',CDS_XL.Data);
CDS_XL.Open;
出现“provider not exported
![Big Grin :D :D](https://cdn.jsdelivr.net/joypixels/assets/8.0/png/unicode/64/1f600.png)
环境:D7+Oracle