全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1712
推到 Plurk!
推到 Facebook!

SQLServerMethod.ParamByName('') ???

缺席
GDGD
一般會員


發表:6
回覆:1
積分:1
註冊:2009-12-31

發送簡訊給我
#1 引用回覆 回覆 發表時間:2009-12-31 17:34:16 IP:111.252.xxx.xxx 訂閱
JSON Server:
[code delphi]

type
{$MethodInfo ON}
TDSServerModule1 = class(TDSServerModule)
SQLDataSet1: TSQLDataSet;
SQLConnection1: TSQLConnection;
DataSetProvider1: TDataSetProvider;
ClientDataSet1: TClientDataSet;
private
{ Private declarations }
public
{ Public declarations }
function GetData(ASQL: String): TDataSet;
end;
{$MethodInfo OFF}


function TDSServerModule1.GetData(ASQL: String): TDataSet;
begin
Self.ClientDataSet1.Close;
Self.DataSetProvider1.Options:= DataSetProvider1.Options [poAllowCommandText];
Self.ClientDataSet1.CommandText:= ASQL;
Self.ClientDataSet1.Active:= True;
Self.ClientDataSet1.FindFirst;
Result:= Self.ClientDataSet1;
end;
[/code]


JSON Clinet:

[code delphi]
procedure TMainForm.IWButton1Click(Sender: TObject);
begin
UserSession.ClientDataSet1.Close;
UserSession.SqlServerMethod1.ServerMethodName:= 'TDSServerModule1.GetData';
UserSession.SqlServerMethod1.ParamByName('ASQL').Value:= IWEdit1.Text;
UserSession.SqlServerMethod1.ExecuteMethod;
UserSession.ClientDataSet1.Active:= True;
end;

[/code]


當我執行Client 端時 會出現
Project XXX.exe raised exception class EDatabaseError with 'SqlServerMethod1:Parameter 'ASQL' not found'.
想請問怎麼會不認識'ASQL' ???

=Tks=
編輯記錄
GDGD 重新編輯於 2009-12-31 17:35:27, 註解 無‧
GDGD 重新編輯於 2009-12-31 17:36:39, 註解 無‧
GDGD 重新編輯於 2009-12-31 17:37:38, 註解 無‧
系統時間:2017-10-20 2:23:15
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!