線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:2184
推到 Plurk!
推到 Facebook!

DataSnap 傳入參數一問?

缺席
GDGD
一般會員


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

發送簡訊給我
#1 引用回覆 回覆 發表時間:2010-01-12 12:00:00 IP:111.252.xxx.xxx 訂閱
JSON Server :
[code delphi]
unit dmServerModual;
interface
uses
SysUtils, Classes, DSServer, DB, DataBkr, WideStrings, FMTBcd, SqlExpr,
DBXInformix;

type
{$MethodInfo ON}
TDSServerModule1 = class(TProviderDataModule)
SQLConnection1: TSQLConnection;
SQLDataSet1: TSQLDataSet;
public
{ Public declarations }
function GetTest(ASQL: String) : TDataSet;
end;
{$MethodInfo OFF}


implementation

{$R *.dfm}

function TDSServerModule1.GetTest(ASQL: String) : TDataSet;
begin
Self.SQLDataSet1.Close;
Self.SQLDataSet1.CommandText:= ASQL;
Self.SQLDataSet1.Open;
Result:= Self.SQLDataSet1;
end;
[/code]


Client_Win Form :
[code delphi]
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
Self.ClientDataSet1.Close;
Self.SqlServerMethod1.ParamByName('ASQL').Value:= Edit1.Text;
Self.SqlServerMethod1.ExecuteMethod; ..Error
Self.ClientDataSet1.Open;
end;

[/code]

當程式執行到ExecuteMethod 時就發生錯誤(A Syntax error has occurred) 等於參數無法正確傳回
想請問為什麼Client端Edit1.Text 的值無法傳回 Server端執行後再將TDataSet 傳回Client??

(PS:如果Server 端先預設給CommandText , 而 Client不執行 ExecuteMethod 就可以正確回傳資料)

編輯記錄
GDGD 重新編輯於 2010-01-12 12:01:28, 註解 無‧
GDGD 重新編輯於 2010-01-12 12:03:34, 註解 無‧
lin
一般會員


發表:1
回覆:12
積分:7
註冊:2002-09-04

發送簡訊給我
#2 引用回覆 回覆 發表時間:2010-02-12 14:30:49 IP:59.126.xxx.xxx 訂閱
Self.SqlServerMethod1.ParamByName('ASQL').Value:= Edit1.Text; 
這行有問題 一個是DATASET 一個是STRING
------
編輯記錄
lin 重新編輯於 2010-02-12 14:31:46, 註解 無‧
系統時間:2017-12-12 10:22:37
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!