精华内容
下载资源
问答
  • 此页涉及到的存储过程的创建,在存储过程...1、调用无参数存储过程 dim conn As New SqlConnection dim FBasicDataRecord as new BasicDataRecord() conn.ConnectionString = "Data Source=(local);Initial C...

     此页涉及到的存储过程的创建,在存储过程的创建中有源码

    1、调用无参数存储过程

            dim conn As New SqlConnection

            dim FBasicDataRecord as new BasicDataRecord()

            conn.ConnectionString = "Data Source=(local);Initial Catalog=LineManager;User ID=sa;Password=1"
            conn.Open()

            Dim cmd As SqlCommand
            cmd = New SqlCommand("GetNewestData", conn)              -------要调用存储过程名称
            cmd.CommandType = CommandType.StoredProcedure                         -----------关键,要想调用存储过程,需将

                                                                                                                          commandtype类型设置为storedprocedure
            Dim myReader As SqlDataReader
            Try

                myReader = cmd.ExecuteReader()       -------------执行存储过程
                If myReader.Read() Then

                    FBasicDataRecord.mySetDateTime = myReader.GetDateTime(0)
                    FBasicDataRecord.myHalfHourCost = myReader.GetDecimal(1)
                    FBasicDataRecord.myUnitTime = myReader.GetInt32(2)
                    FBasicDataRecord.myPrepareTime = myReader.GetInt32(3)
                    FBasicDataRecord.myLeastCurrency = myReader.GetDecimal(4)
                    FBasicDataRecord.myUserName = myReader.GetString(5)
                    Return True
                Else
                    Return False
                End If
            Catch ex As Exception
                Return ex.Message

            Finally
                conn.close()

            End Try

    2、调用有参数存储过程

            Dim cmd As SqlCommand

            dim conn As New SqlConnection

            conn.ConnectionString = "Data Source=(local);Initial Catalog=LineManager;User ID=sa;Password=1"
            conn.Open()


            cmd = New SqlCommand("ProcCharge", conn)          --------存储过程名称
            cmd.CommandType = CommandType.StoredProcedure         ----------改变类型
            Dim a As New SqlParameter("@CardNo", SqlDbType.VarChar)     ------------将存储过程中涉及的参数加入进来,并附 

                                                                                                                    值。就像给函数的各个参数赋值一样
            a.Value = myCharge.myCardNo
            cmd.Parameters.Add(a)
            Dim b As New SqlParameter("@ChargeDateTime", SqlDbType.DateTime)
            b.Value = myCharge.myChargeDateTime
            cmd.Parameters.Add(b)
            Dim c As New SqlParameter("@Charge", SqlDbType.Int)
            c.Value = myCharge.myCharge
            cmd.Parameters.Add(c)
            Dim d As New SqlParameter("@UserName", SqlDbType.VarChar)
            d.Value = myCharge.myUserName
            cmd.Parameters.Add(d)
            Dim e As New SqlParameter("@LastBalance", SqlDbType.Float)
            e.Value = myCharge.myLeastBalance
            cmd.Parameters.Add(e)
            Dim f As New SqlParameter("@CurrentBalance", SqlDbType.Decimal)
            f.Value = myCharge.myCurrentBalance
            cmd.Parameters.Add(f)                                 ----------------参数块

            Try
                Return cmd.ExecuteNonQuery() > 0                         ------------------执行存储过程。当存储过程涉及到的是插入删除或

                                                                           更新操作时,用executenonquery(),而如果是查询,则用executereader()
            Catch ex As Exception
                MsgBox(ex.Message)
                Return False
            Finally
                conn.Close()
            End Try

    3、调用有返回值的存储过程

            dim conn As New SqlConnection

            conn.ConnectionString = "Data Source=(local);Initial Catalog=LineManager;User ID=sa;Password=1"
            conn.Open()

            Dim cmd As SqlCommand
            cmd = New SqlCommand("procBalanceUserName", myConn.myConn)         ---------存储过程名称
            cmd.CommandType = CommandType.StoredProcedure                         ----------改变类型
            cmd.Parameters.Add(New SqlParameter("@CardNo", SqlDbType.VarChar))     -------添加参数,此为输入参数 

            cmd.Parameters("@CardNo").Value = CardNo
            cmd.Parameters.Add(New SqlParameter("@MachineNo", SqlDbType.VarChar))
            cmd.Parameters("@MachineNo").Value = MachineNo
            cmd.Parameters.Add(New SqlParameter("@Balance", SqlDbType.Float, 20))          ---------定义输出参数
            cmd.Parameters("@Balance").Direction = ParameterDirection.Output            -------输出参数用此标识
            '输出参数必须有指定长度,否则不会成功。
            cmd.Parameters.Add(New SqlParameter("@UserName", SqlDbType.VarChar, 10))        -------输出参数必须是名字,类 

                                                                                                                                       型,长度。不可省略。否则,会出错误。
            cmd.Parameters("@UserName").Direction = ParameterDirection.Output
            Try
                cmd.ExecuteReader()                                          ---------------执行存储过程
                myBalance = cmd.Parameters("@Balance").Value.ToString()          ----------将存储过程的返回值赋给定义的变量
                myUserName = cmd.Parameters("@UserName").Value.ToString()

            Catch ex As Exception
                MsgBox(ex.Message)
            Finally
                Conn.Close()
            End Try

    总结一下,调用存储过程,首先,实例化sqlcommand,然后修改commandtype类型,如果参数,则给参数赋值或定义输出参数。然后执行。

    转载于:https://www.cnblogs.com/yanmei-yaomy/archive/2011/03/28/3025132.html

    展开全文
  • 调用sp_addumpdevice过程时,发生这SP有返回值,度娘了一圈,很少有提出存储过程返回值如何在ADO Command中如何引用。 瞎写的代码,总是提示:@cntrltype未声明为OUTPUT,但形参还需要输出,等等。 但打开sp_...

    最近在给老程序(VB6+SQL2005+水晶报表)添加备份、恢复数据库功能。真心是手动备份数据库太劳累抓狂,且显得不专业,呵呵。调用sp_addumpdevice过程时,发生这SP有返回值,度娘了一圈,很少有提出存储过程返回值如何在ADO Command中如何引用。

    瞎写的代码,总是提示:@cntrltype未声明为OUTPUT,但形参还需要输出,等等。

    但打开sp_addumpdevice存储过程定义,发现@cntrltype及@devstatus可为空,不需要传值。头疼了10分钟。

    无意间瞎写,则不报错了。偷笑

    正确代码如下:

    P_cmd.CommandType = adCmdStoredProc
       P_cmd.CommandText = "sp_addumpdevice"
       
       With P_cmd
          
          .Parameters.Append .CreateParameter("@res", adInteger, adParamReturnValue, , i)
          
          .Parameters.Append .CreateParameter("@devtype", adChar, adParamInput, 20, "disk")
          .Parameters.Append .CreateParameter("@logical", adChar, adParamInput, 40, "mybakdev1")
          .Parameters.Append .CreateParameter("@physical", adChar, adParamInput, 260, Trim(txtData_Backup(0).Text))
          
          .Execute
          '<释放参数>
          .Parameters.Delete ("@devtype")
          .Parameters.Delete ("@logical")
          .Parameters.Delete ("@physical")
          
          .Parameters.Delete ("@res")
       End With


    展开全文
  • 存储过程 create or replace procedure proInsertPam(uName in varchar2,uPwd in varchar2,ref_user out SYS_REFCURSOR) is begin insert into useres (username,password) values(uName,uPwd); commit; ...
  • begin Set Comm = CreateObject("ADODB.Command")  With Comm  .ActiveConnection = Conn  .CommandText = "CALL tt(@a)"  .CommandType = &H1 ... .CommandText = "Select @a 'ReturnV

    begin

    Set Comm = CreateObject("ADODB.Command")

     With Comm

     .ActiveConnection = Conn

     .CommandText = "CALL tt(@a)"

     .CommandType = &H1 'adCmdText .Execute

     .CommandText = "Select @a 'ReturnVal'"

    Set objRs = .Execute

    MsgBox objRs("ReturnVal")

    End With

    objRs.Close

    Set objRs = Nothing

    Set Comm = Nothing

    end

    出现1193错误

    展开全文
  • VB/ASP 调用 SQL Server 的存储过程

    千次阅读 2005-02-26 21:14:00
    昨天有位久未谋面的老同学,突然问起如何VB调用SQL的存储过程。当时因为手上没有资料,机器上也没装SQL,随即发了早年写的一段ASP代码,也不知道行不行。抱着负责任的态度,刚好又有点空闲,便做了个测试:(说来...

    昨天有位久未谋面的老同学,突然问起如何在VB中调用SQL的存储过程。
    当时因为手上没有资料,机器上也没装SQL,随即发了早年写的一段ASP代码,也不知道行不行。
    抱着负责任的态度,刚好又有点空闲,便做了个测试:
    (说来惭愧,N久没用VB了,居然不知道怎么加入ADODB类型库了,就填加了一个ADODC控件,汗颜~```)

    Private Sub ExampleButton_Click()
    Dim sqlConn As New ADODB.Connection
    Dim sqlCmd As New ADODB.Command
    Dim myParam As ADODB.Parameter
    Dim sqlRs As ADODB.Recordset
    Dim sqlCmdStr As String

    sqlConn.Open "driver={SQL Server};server=127.0.0.1;database=master;uid=sa;pwd=密码我是不会随便告诉别人的啦:)"
    sqlCmd.ActiveConnection = sqlConn
    sqlCmd.CommandText = "sp_executesql"
    sqlCmd.CommandType = adCmdStoredProc
    sqlCmdStr = "SELECT * FROM sysmessages WHERE error>=100 AND error<=120"
    Set myParam = sqlCmd.CreateParameter("@statement", adBSTR, adParamInput, Len(sqlCmdStr))
    myParam.Value = sqlCmdStr
    sqlCmd.Parameters.Append myParam
    Set sqlRs = sqlCmd.Execute

    sqlRs.MoveFirst
    While Not sqlRs.EOF
        MsgBox sqlRs.Fields(0).Value & ",,," & sqlRs.Fields(3).Value
        sqlRs.MoveNext
    Wend
    End Sub

    哈哈,居然成功了(不禁又自我陶醉了一番)。
    虽然没什么技术含量,不过还是再次申明一下:
    其实调用存储过程最重要的就是参数的正确性,比如参数名称,参数类型啊等等。
    幸好这些都是有资料可以查的,可以查SQL手册,或者如果有耐心一点,也可以通过不断的尝试得出正确的答案(哈哈,废话)。

    展开全文
  • 如题:调用的SQL存储过程,返回的记录集如何用代码的方式绑定到Datagridview ? Dim myDataSet As New DataSet Try Parameter.Fill(myDataSet) If myDataSet.Tables.Count = 1 Then DataGridView1....
  • VS中调用SQL SERVER存储过程

    千次阅读 热门讨论 2014-05-24 20:10:52
    存储过程是经过编译的,永久保存在...下面就详谈一下,VB.NET如何调用SQL SERVER中的存储过程。 以上就是本人数据库中的一张表—OnDutyInfo 创建存储过程   要实现的功能是,查询用户的值班记录,在VS中的实现
  • SQLBindParameter传递参数如何使用,不胜感激
  • 插入一个存储过程 Create PROCEDURE PROC_RdrecordsNoBeff AS begin BEGIN TRANSACTION delete from systasklog delete from Mat_sup where PartID=959 if @@error<>0 BEGIN --提示错误 并退出 ...
  • 我们一起来做个示例,在.NET中新建一个类,并在这个类里新建一个方法,然后在SQL Server中调用这个方法。... 这使得开发人员可以用任何CLR语言(如C#、VB.NET或C++等)来写存储过程、触发器和用户自定义函数。我们如何
  • VB课程设计俄罗斯方块

    热门讨论 2011-02-25 10:46:55
    游戏的背景音乐是由一段代码调用系统播放器Windows Player播放背景音乐,由于本次设计主要是针对游戏如何设计的,所以在这里就不对播放背景音乐的功能做介绍了。 2.1.2俄罗斯方块的造型 相信朋友们都玩过俄罗斯方块...
  • 微软 VB2010 源码包

    2013-05-22 02:21:18
    StoredProcedures:演示如何以编程方式通过 ADO.NET 和 Microsoft SQL Server 创建和使用存储过程 XML:演示如何使用可公开 XML 文档对象模型(或 DOM)的 XmlDocument 类来操作 XML 数据   语言示例 这些示例...
  • 这使得开发人员可以用任何CLR语言(如C#、VB.NET或C++等)来写存储过程、触发器和用户自定义函数。我们如何实现这些功能呢? 为了使用CLR,我们需要做如下几步: 1、在.NET中新建一个类,并在这个类里新建一个...
  • vb Script参考文档

    2009-07-28 22:13:02
    调用语句 将控制移交 Sub 或 Function 过程。 CBool 函数 返回已被转换为 Boolean 子类型的变体的表达式。 CByte 函数 返回已被转换为字节子类型的变体的表达式。 CCur 函数 返回已被转换为货币子类型的变体的...
  • 在SQL Server中使用CLR调用.net的dll

    千次阅读 2010-09-08 15:48:00
    介绍  我们一起来做个示例,在... 这使得开发人员可以用任何CLR语言(如C#、VB.NET或C++等)来写存储过程、触发器和用户自定义函数。 <br />我们如何实现这些功能呢? 为了使用CLR,我们需要做如
  • 我们一起来做个示例,在.NET中新建一个类,并在这个类里新建一个方法,然后在SQL Server中调用这个方法... 这使得开发人员可以用任何CLR语言(如C#、VB.NET或C++等)来写存储过程、触发器和用户自定义函数。 我们如何...
  • │ │ 10.2.2 使用作业异步调用存储过程的示例.sql │ │ 10.2.3 实现秒级作业的示例(使用WAITFOR).sql │ │ 10.2.3 实现秒级作业的示例(多个作业调度).sql │ │ 10.3 操作SQLSERVERAGENT服务的扩展...
  • 验证vba中可用的免费QR码二维码控件

    热门讨论 2012-03-25 23:13:15
    由于VBA的窗体环境和VB中的差不多,所以在VBA窗体中调用QRmaker就不再描述,这里主要说明一下如何在表格中引用QRmaker。 第一步:单击Office按钮,在Excel选项中开启“开发工具”项,从而让“开发工具”选项卡显示...
  • 此外,本书还讨论了各种与面向对象概念密切相关的应用主题,包括XML、UML建模语言、持久存储、分布式计算和客户/服务器技术等。  本书内容精炼,示例简单明了,适合各层次面向对象开发人员阅读,也是高校相关专业...
  • asp.net知识库

    2015-06-18 08:45:45
    2分法-通用存储过程分页(top max模式)版本(性能相对之前的not in版本极大提高) 分页存储过程:排序反转分页法 优化后的通用分页存储过程 sql语句 一些Select检索高级用法 SQL server 2005中新增的排序函数及应用 ...
  • 实例153 用VB实现SQL Server 2000存储过程 调用 260 实例154 动态创建Access数据库及数据表 263 实例155 拼音简码查询 267 实例156 在程序中应用视图 269 第4章 数据库访问与显示 271 4.1 连接Access数据库 ...
  • 实例153 用VB实现SQL Server 2000存储过程 调用 260 实例154 动态创建Access数据库及数据表 263 实例155 拼音简码查询 267 实例156 在程序中应用视图 269 第4章 数据库访问与显示 271 4.1 连接Access数据库 ...
  • ASP.NET精品课程+源代码

    千次下载 热门讨论 2009-01-05 20:15:51
    ASP.NET将脚本,超文本和强大的数据库访问功能结合在一起,并提供了众多的服务端组件可供程序直接调用,为网站设计的程序开发员们提供了极大的方便。ASP.NET是微软推出的新一代语言,底层采用.Net框架,提供了比WEB...
  • log4Net详解(共2讲)

    2011-08-16 22:03:25
    2、SQL Server2005视图、存储过程、用户自定义函数、触发器 ASP.net方面: 1、ASP.net PetShop七层架构 2、抽象工厂+反射+配置文件实现数据库无缝切换 3、序列化/反序列化+泛型集合的应用 4、利用ASP.net ...
  • 1.2 VB应用程序的开发步骤 实例008 创建或打开新工程 实例009 建立并设计用户界面 实例010 添加程序代码 实例011 运行调试程序 实例012 保存程序并生成可执行文件 1.3 控件注册和对象引用 实例013 添加...
  • 1.2 VB应用程序的开发步骤 实例008 创建或打开新工程 实例009 建立并设计用户界面 实例010 添加程序代码 实例011 运行调试程序 实例012 保存程序并生成可执行文件 1.3 控件注册和对象引用 实例013 添加...
  • 5.1.2 如何攻击序列号保护 5.1.3 字符串比较形式 5.1.4 注册机制作 5.2 警告(NAG)窗口 5.3 时间限制 5.3.1 计时器 5.3.2 时间限制 5.3.3 拆解时间限制保护 5.4 菜单功能限制 5.4.1 相关函数 5.4.2 拆解菜单限制...
  • MYSQL中文手册

    2013-03-11 21:21:34
    4.2. 调用MySQL程序 4.3. 指定程序选项 4.3.1. 在命令行上使用选项 4.3.2. 使用选项文件 4.3.3. 用环境变量指定选项 4.3.4. 使用选项设置程序变量 5. 数据库管理 5.1. MySQL服务器和服务器启动脚本 5.1.1. ...
  • 4.2. 调用MySQL程序 4.3. 指定程序选项 4.3.1. 在命令行上使用选项 4.3.2. 使用选项文件 4.3.3. 用环境变量指定选项 4.3.4. 使用选项设置程序变量 5. 数据库管理 5.1. MySQL服务器和服务器启动脚本 5.1.1. 服务器端...

空空如也

空空如也

1 2 3
收藏数 58
精华内容 23
关键字:

vb如何调用存储过程