ado存儲過程參數

Ⅰ 為什麼我用ado 的存儲過程怎樣也行不通

標準的做法無非是按照以下步驟進行：
1、生成並初始化一個_CommandPtr對象；
2、生成調用存儲過程需要的參數，這些參數都是_ParameterPtr對象；
3、按照順序將使用_CommandPtr的Append方法為存儲過程提供參數（包括輸入參數和輸出參數）；
4、為_CommandPtr對象指定需要使用的ADO連接；
5、使用_CommandPtr的Execute方法調用存儲過程；
6、從結果中獲取返回參數的值（如果有的話）。

Ⅱ 關於vb用ado對象連接sql，執行帶參數的存儲過程

應該和ado的版本有關系 ， 你引用高版本的dll試試

Ⅲ ADO或odbc如何創建存儲過程和表

【delphi+oracle報表解決方案(一)】delphi中調用oracle的存儲過程(分帶返回遊標，不返回值兩種)
關鍵字: delphi ,oracle存儲過程，游標,返回數據集,報表註：delphi 6+ oracle 8.1.6一.創建包與包體1.附：建表aaclass為下面作測試用create table aaclass(CID VARCHAR2(50), CNAME VARCHAR2(50), pnumber NUMBER(10,0) );INSERT INTO aaclass values('c1', 'cn1', 10 ) ;
INSERT INTO aaclass values('c2', 'cn2', 40 ) ;
INSERT INTO aaclass values('c1', 'cn3', 30 ) ;
commit;2.建包:CREATE OR REPLACE PACKAGE PKG_JCCTEST1
AS type rc_class is ref cursor;
--求p1,p2的和與差，返回的多個值通過游標返回
procere GetSubAndSum2(p1 number,p2 number ,
ResultCursor out rc_class);

--查詢滿足條件的數據集，返回數據集通過游標返回
procere GetClass2(a in number,ResultCursor out rc_class ) ; --往表中插一條記錄，不返回結果集時，本人用AdoQuery調用(adodataset好象要求必須返回結果集)
procere InsertClass( p_cid varchar2 ,p_cname varchar2 ,
p_pnumber number) ;
end PKG_JCCTEST1; 3.建包體CREATE OR REPLACE PACKAGE BODY PKG_JCCTEST1
ASprocere GetSubAndSum2(p1 number,p2 number ,
ResultCursor out rc_class)
IS
BEGIN
open ResultCursor for
select p1-p2 as "sum", p1+p2 as "sub" from al;
END ;
procere GetClass2(a in number,ResultCursor out rc_class )
is
begin open ResultCursor for
select aaclass.* from aaclass where pnumber >a;end ;procere InsertClass( p_cid varchar2 ,p_cname varchar2 ,
p_pnumber number)
is
begin
insert into aaclass values(p_cid,p_cname,p_pnumber) ;
-- commit;
end ; 二.在delphi中利用AdoDataSet調用上述第一個存儲過程
1.利用AdoConnection1連接資料庫(驅動為 oracle Provider for OLE DB)，
**並在連接字元串中加入這一節: PLSQLRSet=1; 如下所示：
Provider=OraOLEDB.Oracle.1;Password=KXD;Persist Security Info=True;User ID=KXD;Data Source=TEST3;PLSQLRSet=12.在窗體上加AdoDataSet1 指明連接為上述AdoConnection1,下面可以放一個按鈕，單擊按鈕就能調用第一步中創建的包過程，並返回數據集。代碼如下所示：
procere TForm1.Button1Click(Sender: TObject);
var
AResult , BResult : integer;
begin
ADODataSet1.Close ;
ADODataSet1.CommandType := cmdText ;
ADODataSet1.Parameters.Clear ; //***利用call方法調用oracle過程時，參數必須由?來傳， 即使你要傳的參數為常理
//輸出遊標的參數不需要指定!!!!!!，本來此函數帶三個參數，我們這里只需要傳兩個參數.
ADODataSet1.CommandText := '{call PKG_JCCTEST1.GetSubAndSum2(?,?)}' ; //***C 順序有關，createparam必須放在commandtext賦值語句之後. // 創建第一個參數，對應call中的第一個?,ftinteger為類型,10為長度，45為傳入的實參值
ADODataSet1.Parameters.CreateParameter('p1',ftinteger,pdinput,10,45);
//創建第二個參數，根據createparameter的順序 自動與call中的第二個參數對應
ADODataSet1.Parameters.CreateParameter('p2',ftinteger,pdinput,10,4); //下面調用ADODataSet1 的open方法，返回數據集(對應包過程的游標)
ADODataSet1.Open ; //根據存儲過程，數據集只有一條記錄，所以不需要用while do 來遍歷數據集，直接取數據了 //此處的欄位名根據包過程中的返回遊標 對應的欄位名來取
//定義的存儲過程返回遊標如： open ResultCursor for
// select p1-p2 as "sum", p1+p2 as "sub" from al;
//把對應的欄位值取出來即可
AResult := ADODataSet1.Fields.FieldByName('sub').Value ;
BResult := ADODataSet1.Fields.FieldByName('sum').Value ; //顯示結果
showmessage(inttostr(AResult)) ;
showmessage(inttostr(BResult)) ;end;
三.在delphi中利用AdoDataSet調用上述第二個存儲過程
還是利用上述的AdoDataSet1來調用第二個存儲過程，無需任何改動,加第二個按鈕，單擊時代碼如下：procere TForm1.Button2Click(Sender: TObject);
begin
ADODataSet1.Close ;
ADODataSet1.CommandType := cmdText ;
ADODataSet1.Parameters.Clear ; //***利用call方法調用oracle過程時，參數必須由?來傳， 即使你要傳的參數為常理
//輸出遊標的參數不需要指定!!!!!!，本來此函數帶兩個參數，我們這里只需要傳一個參數.
ADODataSet1.CommandText := '{call PKG_JCCTEST1.GetClass2(?)}' ; //***C 順序有關，createparam必須放在commandtext賦值語句之後. // 創建第一個參數，對應call中的第一個?,ftinteger為類型,10為長度，20為傳入的實參值
ADODataSet1.Parameters.CreateParameter('p1',ftinteger,pdinput,10,20);
//下面調用ADODataSet1 的open方法，返回數據集(對應包過程的游標)
ADODataSet1.Open ; while not ADODataSet1.Eof do
begin
showmessage('CID : '+string(ADODataSet1.FieldByName('CID').Value) +
'--CNAME :' + string(ADODataSet1.FieldByName('CNAME').Value) +
'--PNUMBER :' + string(ADODataSet1.FieldByName('PNUMBER').Value)
) ;
ADODataSet1.Next ;
end ;
end; 四 利用adoquery調用第三個過程，不返回數據集的procere TForm1.Button3Click(Sender: TObject);
begin
AdoQuery1.Close ;
AdoQuery1.Parameters.Clear ; AdoQuery1.SQL.Clear ; AdoQuery1.SQL.Add('{call PKG_JCCTEST1.GetSubAndSum2(?,?)}') ;
AdoQuery1.Parameters.CreateParameter('P1',ftstring,pdinput, 50,'c11') ;
AdoQuery1.Parameters.CreateParameter('P2',ftstring,pdinput, 50,'cn11') ;
AdoQuery1.Parameters.CreateParameter('P3',ftinteger,pdinput, 50,25) ; AdoQuery1.ExecSQL ;
end;
五 利用adoquery調用第一個過程，返回數據集的.
procere TForm1.Button4Click(Sender: TObject);
begin
AdoQuery1.Close ;
AdoQuery1.Parameters.Clear ; AdoQuery1.SQL.Clear ; AdoQuery1.SQL.Add('{call PKG_JCCTEST1.GetSubAndSum2(?,?)}') ;
AdoQuery1.Parameters.CreateParameter('P1',ftinteger,pdinput, 50,25) ;
AdoQuery1.Parameters.CreateParameter('P2',ftinteger,pdinput, 50,22) ; AdoQuery1.Open ; Showmessage(string( AdoQuery1.FieldByName('sub').Value)+'-'+
string( AdoQuery1.FieldByName('sum').Value));
end;六.關於三層體系的此類問題兩層的解決了，三層類似.
中間層用tadodataset 或tadoquery (+tdatasetprovider),中間層的adoconnection的連接字元串加上plsqlRset=1;
客戶端用clientdataset ,大同小異，舉例如下: begin
//調用相應的過程
ClientDataSet1.Close ;
ClientDataSet1.Params.Clear ; ClientDataSet1.CommandText := '{call PackageName.ProcereName(?,?)}' ;
ClientDataSet1.Params.CreateParam(ftInteger , 'ParamName1', ptInput) ;
ClientDataSet1.Open ;

end ;

Ⅳ VB.NET是如何使用ADO讓存儲過程返回數據表中的值呢求解！

定義了連接和記錄集後：
Dim res as new adodb.recordset
res.open "select * from Char1 where id=12",conn,3,3
do while res.eof=false
text1.text=res.fields("fName")
res.movenext
loop
res.close

Ⅳ ADO下怎麼通過調用存儲過程獲取結果集

******************************
暈,有上面這么麻煩嗎?
1\打開企業管理器
2\展開左邊的樹結構,直到看到database
3\右擊database,在彈出菜單中找一個項,最後是(K)的,後面還有個三角形的.
4\滑鼠指向這一項,又出現一個菜單,其中有一個項,最後是(A)的,點擊它,就打開附加資料庫的窗口了.
5\在這個窗口內附加資料庫,就OK了

Ⅵ Delphi怎樣使用存儲過程參數

調用存儲過程推薦使用Query,Adoquery組件
query.close;
query.sql.clear;
query.sql.add('exec db.prtemp(@id=:id)');
query.parambyname('id').asinteger:=1;
query.open;
----------------------------------------------------------------------------------------------------
也可用Tstoredproc
storedproc1.active=false;
storedproc1.databasename="dbname";
storedproc1.storedprocname="strdprcname";
storedproc1.params.clear;
storedproc1.params.createparam(ftstring,"p1",ptinput);
storedproc1.params.createparam(ftstring,"p2",ptinput);
storedproc1.params.parambyname("p1").asstring:=varstring1;
storedproc1.params.parambyname("p2").asstring:=varstring2;
storedproc1.active=true;
----------------------------------------------------------------------------------------------------
調用存儲過程最好使用Query組件，本人就是用Tstoredproc組件而屢屢出錯！這一段痛心疾首的錯誤老是涉及到ISAPI32.dll，讓我這個丈二和尚模不到屁股。使用Query控制項調用存儲過程如下：
加入你的存儲過程有兩個參數：
CREATE PROCEDURE Procere_Name @proc1 int,@proc2 char(8)
AS
……
則你的Query1控制項的代碼如下：
With Query1 do
Begin
Close;
SQL.Clear;
SQL.Add(' Exec Procere_Name :proc1,:proc2 ');
ParamByName('proc1').Value:=4;
ParamByName('proc2').Value:='Hello';
Try
ExecSQL;
Except
raise;
End
End

Ⅶ ADO.NET讀取存儲過程問題

new SqlParameter("@PageCount",SqlDbType.Int)這句重載弄錯了吧，通常類型是沒必要指定，而應該先聲明一個變數，把它放在第二個參數的位置，就像你上面param[0] [1]那樣。存儲過程的返回值也不是用reader來獲取的，而是你指定了Output並ExecuteNonQuery後，SqlParameter的變數就自動賦值了。試試看吧。

Ⅷ ADO.net如何調用帶參數的存儲過程

cmd.parameters.add(@Count,sqldbtype.int); ---錯誤，@Count加雙引
cmd.Parameters.Add("@Count", SqlDbType.Int);
cmd.parameters= parameterdirection.output; --錯誤parameters是參數集合。非參數屬性
cmd.Parameters["@Count" ].Direction = ParameterDirection.Output;

con.open();
cmd.executenonquery(); --錯誤：大小寫。。失誤？
con.close();
tmpid = (int)@count.value;--錯誤
tmpid = (int)cmd.Parameters["@Count"].value;