vb6.0存储过程调用

《vb6.0存储过程调用》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、VB6.0存储过程调用VB6.0调用存储过程的例子（方法一）本站整理网络搜集2008-02-06点击：7我要评论存储过程-打开Form1窗体，Copy以下的代码到窗体中，该段代码将测试存储过程ADOTestRPE的返回值、输入参数及输出参数，测试的过程中，可能需要修改链接字符串。SubCreateParms()DimADOCmdAsNewADODB.CommandDimADOPrmAsNewADODB.ParameterDimADOConAsADODB.ConnectionDimADORsAsADODB.RecordsetDimsParmNameAsStringDimstrConnectAsS

2、tringDimrStrAsStringOnErrorGoToErrHandler3.VB调用的例子前言VB调用存储过程的方法很多，如利用ADO对象的Recordset.Open方法，ADO对象的Connection.Excute方法等，都可以获得记录集。本主题讨论的是使用Parameter对象调用存储过程，而且可以获得许多意外的。首先需要在中建立一个存储过程。请确定已安装了SqlServer2000的任何版本，且含有Pubs数据库。打开“查询分析器”，启动你本地的SqlServer，然后将以下的Sql语句Copy到所打开的查询编辑框中。按下“F5”键。OK，存储过程ADOTestRPE便生成

3、了。UsePubsGOifexistsandsysstat&0xf=4)dropproceduredbo.ADOTestRPEGOcreateprocedureADOTestRPEASDECLARE@iLoopINTDECLARE@PrintTextVARCHARDECLARE@iErrNumINT/CheckfornoResultsets-neededtogettheRETURNvalueback/IF@R1Num+@R2Num=0SELECTNULL/Resultset1/IF@R1Num>0BEGINSETROWCOUNT@R1NumSELECT‘Resultset1‘RsNum，Tit

4、leFROMPubs..TitlesSETROWCOUNT0End/MustraiseadefaulterrorcontextinwhichtoreturnthePRINT//statement//sincePRINTstatementsareaseveritylevelof//0./IFANDRAISERRORIF@P1Num>0BEGINSELECT@iLoop=0WHILE@iLoop<@P1NumBEGINSELECT@iLoop=@iLoop+1SELECT@PrintText=‘PRINT.Resultset.1:Line‘+CONVERT，@iLoop)PRINT@PrintTe

5、xtEndEndIF@E1Num>0BEGINSELECT@iLoop=0WHILE@iLoop<@E1NumBEGINSELECT@iLoop=@iLoop+1SELECT@iErrNum=@iLoop+201000RAISERROREndEnd/Resultset2/IF@R2Num>0BEGINSETROWCOUNT@R2NumSELECT‘Resultset2‘RsNum，TitleFROMPubs..TitlesSETROWCOUNT0End/MustraiseadefaulterrorcontextinwhichtoreturnthePRINT//statement//sinceP

6、RINTstatementsareaseveritylevelof//0./IFANDRAISERRORIF@P2Num>0BEGINSELECT@iLoop=0WHILE@iLoop<@P2NumBEGINSELECT@iLoop=@iLoop+1SELECT@PrintText=‘PRINT.Resultset.2:Line‘+CONVERT，@iLoop)PRINT@PrintTextEndEndIF@E2Num>0BEGINSELECT@iLoop=0WHILE@iLoop<@E2NumBEGINSELECT@iLoop=@iLoop+1SELECT@iErrNum=@iLoop+20

7、2000RAISERROREndEnd/Return&Output/select@SetRtn=-1RETURN@SetRtnGO运行完毕后，若不存在任何错误，请关闭“查询分析器”，然后继续下面的操作。否则可能是你的SqlServer2000没有安装正确或Copy时出了问题。打开VB6.0，新建一个工程，默认有一个窗体Form1（若没有请添加一个新的窗体，命名为Form1），在该窗体中添加一个Co