再次請教前輩 前人留下的程式D3 Server端

procedure TScAppSbr.SetSQL(Value: OleVariant);
begin
  if UpperCase(Value[0]) = 'PD010' then
     With Pd010 do begin Close; SQL.Clear; SQL.Add(Value[1]); end;
.....
end
Client端
         sSQL  := 'Select *'
               '  From Sc710'
               '  Where SNo = :sno';
         SetSQL(RS1,SQL1,sSQL);             SQL1.Provider.SetParams(VarArrayOf([Sc600Priceno.AsString]));
         SQL1.Open;

這樣正常沒問題 經小弟修改後 Server端

procedure TDM.SetSQL(Value: OleVariant);
begin
  if UpperCase(Value[0]) = 'PD010' then
     With Pd010 do begin Close; SQL.Clear; SQL.Add(Value[1]); end;
.....
end;
Client端
      sSQL  := 'Select *'
               '  From Sc710'
               '  Where SNo = ''' Sc600Priceno.AsString '''';
      SetSQL(DCOMCn1,Tmp,sSQL);
      Tmp.Open;

小弟只是把傳參數的地方修改掉 造成Tmp.fieldbyname('Serno').asstring ===>Serno欄位找不到 小弟一直不明白為何要傳參數 也不會傳,所以將之改掉 煩請前輩們給點意見 ps.小弟尚有疑慮就是SERVER端的procedure 並沒有回傳值為何可以在Client 使用Tmp.Open 發表人 - Terrychen 於 2003/12/09 15:20:14

Typo?    Tmp.fieldbyname('Serno').asstring

Typo? Tmp.fieldbyname('Serno').asstring ======================================= Sorry 小弟不明白william版主所表達的意思

Does the field SerNo exists?

感謝回應 小弟有確認過此欄位是存在的

Try somethine like:

var
    SL: TStringList;
{...}
    Tmp.Open;
    Tmp.Fields.GetFieldNames(SL);
    SL.SaveToFile('c:\test.txt');
{...}

And see if SerNo exists in your query object Tmp.

照著版主的做法,出現了如下的錯誤訊息,此錯誤訊息於SL.SaveToFile('c:\test.txt');發生的 發表人 - Terrychen 於 2003/12/09 16:04:37

You should create SL first...    

var
    SL: TStringList;
{...}
    SL := TStringList.Create;
    Tmp.Open;
    Tmp.Fields.GetFieldNames(SL);
    SL.SaveToFile('c:\test.txt');
    SL.Free;
{...}

感謝回應 加了SL.Free; 錯誤訊息一樣 會不會是跟小弟下面的問題有關 ps.小弟尚有問題就是SERVER端的procedure 並沒有回傳值為何可以在Client 使用Tmp.Open

Sorry 小弟疏忽了 剛剛那ㄍ錯誤訊息是因為小弟少了SL := TStringList.Create; 所以才出現錯誤 而照著版主的方法test.text 只出現一ㄍ欄位名稱 但小弟下的SQL為

      sSQL  := 'Select *'
               '  From Sc710'
               '  Where SNo = ''' Sc600Priceno.AsString '''';

選取所有欄位為何只傳回一ㄍ欄位

You need to create SL first... What's Tmp? It should be TClientDataSet in a 3-tier application. Borland's MIDAS does all the magic for you in transferring data between server and client.

是的如版主所言Tmp is TClientDataSet

Make sure there is no design time defined fields for Tmp and the corresponding dataset on the server side. You may also want to call Tmp.FetchParams before opening it.

是的在server端也有一相同的名稱的TSQLQUERY

引言: 小弟只是把傳參數的地方修改掉 造成Tmp.fieldbyname('Serno').asstring ===>Serno欄位找不到 小弟一直不明白為何要傳參數 jieshu: sql裡有用到參數，當然要傳參數，傳參數有傳參數的好處！ 也不會傳,所以將之改掉 jieshu: 原本可以用為什麼要改！ 煩請前輩們給點意見 ps.小弟尚有疑慮就是SERVER端的procedure 並沒有回傳值為何可以在Client 使用Tmp.Open 發表人 - Terrychen 於 2003/12/09 15:20:14

他已經將SQL丟給Server的DataSet，當然可以直接Open。看來你還要多看些書才行！且貼上的程式碼沒有說明變數是什麼東西，。

人生有夢，逐夢而行。 人若為善，福雖未至，禍已遠離。 人若為惡，禍雖未至，福已遠離。 http://www.taconet.com.tw/jieshu/

感謝回應 前輩所言甚是 小弟書真的看的不多 公司相關的 書籍也真是少的可憐 加上沒人會3層式架構而公司又希望能將D3的程式以D7重寫過 最近會找ㄍ時間去買書,現在小弟只能上網找相關資料 我會加油的!!

1.從D5以後Delphi的分散式架構和之前(D3,D4)的差異很大 建議採無狀態,所以最好整個重寫不要參考之前的改寫 2.Server端若自定Interface函式，其中參數若包自定結構的OleVariant參數，client在呼叫時建議引用IDispatch轉型指名參數型態呼叫，不然的話D7會在某些狀況下誤判olevariant結構 混心雜欲 棄修身~唉

------
唉~

引言: 感謝回應 前輩所言甚是 小弟書真的看的不多 公司相關的 書籍也真是少的可憐 加上沒人會3層式架構而公司又希望能將D3的程式以D7重寫過 最近會找ㄍ時間去買書,現在小弟只能上網找相關資料 我會加油的!! < face="Verdana, Arial, Helvetica"> 那傳授一、二招給你用用： 1.沒有參數的SQL可用ClientDataSet.CommandText直接給，就像Query.SQL.Text，但Server的DataSetProvider.Options要設定一下，不懂的請參考Help，雖然Help有時候都看不懂，但等你看懂了，很多東西都可以很快就看懂，很好用喔！ 2.執行ClientDataSet.DataRequest，可呼叫Server的DataSetProvider的OnDataRequest事件，很好用喔，不用自己每支程式去寫Method。

人生有夢，逐夢而行。 人若為善，福雖未至，禍已遠離。 人若為惡，禍雖未至，福已遠離。 http://www.taconet.com.tw/jieshu/

雖然問題尚未解決 還是很感謝大家的回應（因為多學了幾招︿"︿..） 因為小弟問的範圍可能太大了（自己現在也不知道從和問起） 所以先把他結案 自己在多看書，慢慢找解決的方法 等能將問題縮小時再請教各位前輩 發表人 - Terrychen 於 2003/12/10 12:40:09