計(jì)算機(jī)等級考試二級Delphi存儲(chǔ)過程調(diào)用方法

　　首先，我們使用一種簡單的方式，即通過控件的方式來定義存儲(chǔ)過程和數(shù)據(jù)源。

　　新建一個(gè)單元，命名為：DataMConn，在加入一個(gè)ADO單元下的ADOStoredProc，這里命名為ADOSPTempAbove ,再加入Data Access單元下的一個(gè)DataSource，這里命名為DataSourceAbove，設(shè)置DataSourceAbove的DataSet屬性為ADOSPTempAbove，當(dāng)然這個(gè)屬性也可以在程序中指定。

　　下面，可以在另一個(gè)單元中添加一個(gè)DataGrid，這里的命名為dgAbove。下面的代碼加了詳細(xì)注釋。

　　With DataMConn.ADOSPTempAbove do

　　begin

　　ProcedureName := ’GetAbove’; //指定存儲(chǔ)過程名稱

　　Parameters.Clear; //清除原有參數(shù)

　　//以下創(chuàng)建了兩個(gè)新的參數(shù)，關(guān)于如何傳遞表名做為參數(shù)請參我在 數(shù)據(jù)庫 分類的高級應(yīng)用中寫的文章。

　　Parameters.CreateParameter(’@tableName’,ftString,pdinput,20,0);

　　Parameters.CreateParameter(’@strDate’,ftString,pdinput,20,0);

　　//以下為參數(shù)賦值

　　Parameters.ParamByName(’@tableName’).Value := tempTableName;

　　Parameters.ParamByName(’@strDate’).Value := strDate;

　　try

　　Open; //返回結(jié)果集用open，否則用EexcProc;

　　except

　　begin

　　ShowMessage(’打開表錯(cuò)誤’);

　　Exit;

　　end;

　　end;

　　//如果沒有在控件屬性中設(shè)置DataSourceAbove的DataSet屬性，可以在這里設(shè)置：

　　//DataSourceAbove.DatSet := DataMConn.ADOSPTempAbove

　　dgAbove.DataSource := DataMConn.DataSourceAbove;

　　end;

　　注意：　ftString 需要引用DB單元。

　　相關(guān)推薦：

　　2011年3月計(jì)算機(jī)等級考試成績查詢時(shí)間及方式通知

　　2011年下半年計(jì)算機(jī)等級考試報(bào)名時(shí)間預(yù)測