請教有關ASP與Delphi的問題 |
缺席
|
johnny2212
初階會員 發表:34 回覆:65 積分:39 註冊:2003-04-09 發送簡訊給我 |
<%
conn.Open "Driver={SQL Server};Database=" & DbName & ";Server=" & ServerName & ";uid=sa;pwd=manager"
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open "Select * From employee" , conn,1,3'
%>
以上是完全用ASP的寫法,但我希望能用到Delphi,也就是
取得資料rs.open的部分,我希望用Delphi取代,其他畫面設
計用FrontPage和ASP(如分頁設計)
Active Server Object(在物件寶庫)可呼叫delphi
<%
Set DelphiASPObj = Server.CreateObject("Project1.DemoASP01")
rs=DelphiASPObj.GetData ‘此行程式失敗
%> GetData如下
function TDemoASP02.GetData: OleVariant;
var
MyDM02: TDataModule2;
begin
MyDM02:=TDataModule2.Create(nil);
try
MyDM02.ClientDataSet1.CommandText:=
'select * from employee';
MyDM02.ClientDataSet1.Open;
result:=MyDM02.ClientDataSet1.Data;
//就是此行要傳回資料給rs,但不成功,
我用DataSetTableProducer1.content也不行
MyDM02.ClientDataSet1.Close;
finally
MyDM02.Free;
end;
end; 我要怎麼作才能完成以上的目的,若有別的方法也是否能
告知?不勝感激
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |