.NET开发

本类阅读TOP10

·NHibernate快速指南(翻译)
·vs.net 2005中文版下载地址收藏
·【小技巧】一个判断session是否过期的小技巧
·VB/ASP 调用 SQL Server 的存储过程
·?dos下编译.net程序找不到csc.exe文件
·通过Web Services上传和下载文件
·学习笔记(补)《.NET框架程序设计(修订版)》--目录
·VB.NET实现DirectDraw9 (2) 动画
·VB.NET实现DirectDraw9 (1) 托管的DDraw
·建站框架规范书之——文件命名

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
VB6.0 调用存储过程的例子 (前言)

作者:未知 来源:月光软件站 加入时间:2005-2-28 月光软件站

                    VB调用存储过程的例子 前言

(说明:以下代码摘自微软的MSDN,经过测试没问题。)


         VB调用存储过程的方法很多,如利用ADO对象的Recordset.Open方法,ADO对象的Connection.Excute方法等,都可以获得记录集信息。本主题讨论的是使用Parameter对象调用存储过程,而且可以获得许多意外的信息。

首先需要在Sql Server中建立一个存储过程。请确定已安装了Sql Server 2000的任何版本,且含有Pubs数据库。

打开“查询分析器”,启动你本地的SqlServer,然后将以下的Sql语句Copy到所打开的查询编辑框中。按下“F5”键。OK,存储过程ADOTestRPE便生成了。

 

Use Pubs

      GO

      if exists (select * from sysobjects where id =

        object_id('dbo.ADOTestRPE') and sysstat & 0xf = 4)

      drop procedure dbo.ADOTestRPE

GO

 

      create procedure ADOTestRPE

      (

      @SetRtn  INT=0 OUTPUT,

      @R1Num   INT=1,

      @P1Num   INT=1,

      @E1Num   INT=1,

      @R2Num   INT=2,

      @P2Num   INT=2,

      @E2Num   INT=2

      )

      AS

      DECLARE @iLoop     INT

      DECLARE @PrintText VARCHAR(255)

      DECLARE @iErrNum   INT

 

      /*   Check for no Resultsets - needed to get the RETURN value back */

      IF @R1Num + @R2Num = 0 SELECT NULL

 

      /*   Resultset 1  ******************************* */

 

      IF @R1Num > 0

      BEGIN

         SET ROWCOUNT @R1Num

         SELECT 'Resultset 1' RsNum, Title

         FROM Pubs..Titles

         SET ROWCOUNT 0

      End

 

         /* Must raise a default error context in which to return the PRINT */

        /*  statement */

       /* (if none present) since PRINT statements are a severity level of */

      /*0. */

      IF (@P1Num > 0) AND (@E1Num = 0) RAISERROR ("RAISERROR.PError1",

         11, 2)

 

      IF @P1Num > 0

      BEGIN

         SELECT @iLoop = 0

         WHILE @iLoop < @P1Num

         BEGIN

            SELECT @iLoop = @iLoop + 1

            SELECT @PrintText = 'PRINT.Resultset.1: Line ' +

      CONVERT(char(2), @iLoop)

         PRINT @PrintText

        End

      End

 

      IF @E1Num > 0

      BEGIN

         SELECT @iLoop = 0

         WHILE @iLoop < @E1Num

         BEGIN

            SELECT @iLoop = @iLoop + 1

            SELECT @iErrNum = @iLoop + 201000

            RAISERROR ("RAISERROR.Resultset.1", 11, 2)

         End

      End

 

      /*   Resultset 2  ******************************* */

 

      IF @R2Num > 0

      BEGIN

         SET ROWCOUNT @R2Num

         SELECT 'Resultset 2' RsNum, Title

         FROM Pubs..Titles

         SET ROWCOUNT 0

      End

 

      /* Must raise a default error context in which to return the PRINT */

      /*  statement */

      /* (if none present) since PRINT statements are a severity level of */

      /*  0. */

      IF (@P2Num > 0) AND (@E2Num = 0) RAISERROR ("RAISERROR.PError2",

      11, 2)

 

      IF @P2Num > 0

      BEGIN

         SELECT @iLoop = 0

         WHILE @iLoop < @P2Num

         BEGIN

            SELECT @iLoop = @iLoop + 1

            SELECT @PrintText = 'PRINT.Resultset.2: Line ' +

       CONVERT(char(2), @iLoop)

            PRINT @PrintText

         End

      End

 

      IF @E2Num > 0

      BEGIN

         SELECT @iLoop = 0

         WHILE @iLoop < @E2Num

         BEGIN

            SELECT @iLoop = @iLoop + 1

 

            SELECT @iErrNum = @iLoop + 202000

            RAISERROR ("RAISERROR.Resultset.2", 11, 2)

         End

      End

 

      /*   Return & Output ************************************ */

 

      select @SetRtn = -1

      RETURN @SetRtn

GO     

 

运行完毕后,若不存在任何错误,请关闭“查询分析器”,然后继续下面的操作。否则可能是你的Sql Server 2000没有安装正确或Copy时出了问题。

 

打开VB6.0,新建一个工程,默认有一个窗体Form1(若没有请添加一个新的窗体,命名为Form1),在该窗体中添加一个CommandButton。保存该工程。


相关文章

相关软件