VB中調用帶參數存儲過程的實現

2019-11-18 17:52:41

字體：大中小

來源：轉載

供稿：網友

VB做為快速應用開發（RAD）工具越來越得到開發人員的認可和接受。它對許多API（如ODBCAPI、SOCKETAPI等等）的封裝使得編程變得簡單起來。同時，它支持集成開發環境下的可視化、事件驅動、面向對象等編程特點。下面，我們談談在VB中調用存儲過程的實現方法及其注意事項。

----我們知道，VB的數據庫編程有許多種方法，比如直接用ODBCAPI編程，這種方法靈活、高效，程序員可以實現對數據庫復雜的控制；也可以用VB中的數據對象，如RDO（遠程數據對象）、DAO（數據訪問對象）、ADO（ActiveX數據對象），這種方法實現起來方便、快捷，但靈活性較差一些。由于存儲過程在實現數據封裝、隱藏以及代碼的預編譯、減少網絡負載、維護方便等優點，所以被許多RDBMS和編程工具做支持。VB中的各類數據對象也提供對存儲過程的支持。

----我們以ADO為例來說明其實現的步驟

----1．創建、調試存儲過程。你可以在數據庫中也可以在其他外掛程序的支持下進行存儲過程的創建和調試工作。本例中的存儲過程代碼如下（使用PUBS的MSSQL中的例子庫）：

CREATE‘myprocedure是你要調用的存儲過程名稱
mycommand.CommandType=adCmdStoredProc
‘表明command為存儲過程
SetrstByQuery=NewADODB.Recordset
SetrstByQuery=mycommand.Execute()
I=0
DoWhileNotrstByQuery.EOF
I=I 1‘I中保存記錄個數
rstByQuery.MoveNext
Loop
MSFlexGrid1.Rows=I 1
‘動態設置MSFlexGrid的行和列
MSFlexGrid1.Cols=rstByQuery.Fields.Count 1
MSFlexGrid1.Row=0
ForI=0TorstByQuery.Fields.Count-1
MSFlexGrid1.Col=I 1
MSFlexGrid1.Text=rstByQuery.Fields.Item(I).Name
Next‘設置第一行的標題，用域名填充

I=0
SetrstByQuery=mycommand.Execute()
DoWhileNotrstByQuery.EOF
I=I 1
MSFlexGrid1.Row=I‘確定行
Forj=0TorstByQuery.Fields.Count-1
MSFlexGrid1.Col=j 1
MSFlexGrid1.Text=rstByQuery(j)
‘添充所有的列
Next
rstByQuery.MoveNext

Loop‘這個循環用來填充MSFlexGrid的內容

----特殊說明

----1．Setrecordset=command.Execute(RecordsAffected,Parameters,Options)command.ExecuteRecordsAffected,Parameters,Options這是command的兩種用法，一種有返回結果集，一種沒有返回結果集。

----RecordsAffected：是指用update、delete操作時所影響的結果，對select的查詢，其值為-1；這和在Mssqlserver中的QueryAnalyzer中的不一樣。QueryAnalyzer中，select、update、delete的結果顯示的是實際查、改、刪的記錄數。

----Options：指明command的類型，有adCmdText、adCmdTable、adCmdStoredProc等等，用戶可見MSDN。

----2.在參數的類型中，用戶可以用varchar來代替integer,系統會幫你自動實施轉化；

----3．本例中僅為帶輸入參數的存儲過程，如果要有輸出參數，根據MSDN的材料，用ADO不行。你可以用RDO數據對象，MSDN中有一個例子，此處不做過多贅述；

----4．可以不用ADOCOMMAND對象，也可直接調用ADOCONNECTION的execute方法,結果很類似。