精华内容
下载资源
问答
  • 此页涉及到的存储过程的创建,在存储过程...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

    展开全文
  • VS2010 VB如何生成DLL文件,调用DLL 详细过程参看http://blog.csdn.net/zzuzpb/article/details/9838541
  • 可以使用 Public 语句声明一个过程,Public NumberOfEmployees As Integer也可以使用 Public 语句来声明变量的对象类型:在模块级别中使用,PrivateNumberOfEmployees As Integer也可以使用Private语句来声明变量的...

    解决方案1:

    则该变量只是在其所属工程中是公用的。

    可以使用 Public 语句声明一个过程,Public NumberOfEmployees As Integer

    也可以使用 Public 语句来声明变量的对象类型:在模块级别中使用,Private NumberOfEmployees As Integer

    也可以使用 Private 语句来声明变量的对象类型,

    1根据MSDN的定义、对象和过程在所有应用程序的所有没有使用 Option Private Module 的模块的任何过程中都是可用的、Public是在公共模块中定义变量。

    如果使用Public在窗体模块或者类模块中定义的变量、对象和过程时使用的。

    Private 语句声明的变量(包括数组变量)。

    2。例如。例如;若该模块使用了 Option Private Module,可以在过程内用 ReDim 语句来定义该数组的维数和元素。例如、对象和过程可以在整个程序的各个模块中使用,定义的变量。

    Public 语句声明的变量(包括数组变量)。

    可以使用 Private 语句声明一个过程、对象和过程只能在本模块内使用,用于声明私有变量及分配存储空间、Public 语句

    Public 语句。

    二,然后可以在过程内用 ReDim 语句来定义该数组的维数和元素。

    MSDN是这样定义的,通过窗体名称或者类名称的引用也可以在其他模块中使用、 Private在模块级别中定义变量。

    使用 Public 语句可以声明变量的数据类型、对象和过程,定义的变量。

    Private 变量只能在包含其声明的模块中使用:

    一,Public X As New Worksheet

    可以用带空圆括号的 Public 语句来声明动态数组。

    可以使用 Private 语句声明变量的数据类型,只在声明所在的模块中有效:在模块级别中使用、对象和过程。在声明了动态数组之后,用于声明公用变量和分配存储空间,包括窗体模块和标准模块,Private X As New Worksheet

    可以用带空圆括号的 Private 语句来声明动态数组、Private 语句

    解决方案2

    lpData As AnyPrivate是在窗体模块中定义变量;

    Public是在公共模块中定义变量.dll"RegSetValueExA"。

    譬如; (ByVal hKey As Long、数据类型或者子过程时使用的, ByVal dwType As Long, ByVal lpValueName As String; Alias ", you must pass it By Value。

    Public:

    Private,定义的东西只能在本窗体内使用, ByVal Reserved As Long、数据类型或者子过程时使用的,定义的东西可以在整个程序的各个窗体中使用:

    (窗体中的公共部分写入)

    Private Declare Function RegSetValueEx Lib ", ByVal cbData As Long) As Long 'advapi32; Note that if you declare the lpData parameter as String.

    展开全文
  • 存储过程 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; ...
  • 这是我在BAIDU上的回答,仅供参考一、写出 len(“right(“student”,5)”)的返回值说LEN,RINGT的函数意义 二、DIM A (9) AS INTEGER,写出A的...label1.move label1.left+750,label1.top-550 四、什么是调用过程

    这是我在BAIDU上的回答,仅供参考

    一、写出 len(“right(“student”,5)”)的返回值说LEN,RINGT的函数意义
    二、DIM A (9) AS INTEGER,写出A的元素个数,并列举出A
    三、阅读代码,说意思
    private sub label1_click()
    label1.move label1.left+750,label1.top-550
    四、什么是调用子过程,有几种方法
    五、用VB程序代码建立一个数据连接(D:DATA BASE STUDENT MDB)并打开
    六、在VB中何时用WTTH语句?方法

    一、Len:求字符串的长度,返回 Long,其中包含字符串内字符的数目,或是存储一变量所需的字节数。

    语法
    Len(string | varname)
    Len("right("student",5)"),这个是不是应该是这样 Len(right("student",5)),其返回值为5,因为它的

    意思是先取student右边5个字符,然后返回它的长度,这个当然是返回5了。

    Right是取指定数量的字符。返回 Variant (String),其中包含从字符串右边取出的指定数量的字符。

    语法
    Right(string, length)

    二、Dim a(9)As Intger 共有10个元素,VB数组是以0为默认下标的,从0到9一共10个。

    三、label1.move label1.left+750,label1.top-550 ,单击label1时使label1的位置在现有的基础上左边

    距加750t,上边距减550t。

    四、调用子过程就是把一个难度很大的任务转化成几个难度较小的子任务,并通过添加参数来调用,可以达

    到简化程序设计的目的,完成子任务的那部分就是过程,在程序中使用子过程可以简化程序设计、提高编程

    效率、增加程序的可读性和重用性。

    调用子过程的方法主要有两种:
    (1) 用Call语句调用Sub过程

    语法:Call 过程名(实在参数表)
    实在参数的个数、类型和顺序,应该与被调用过程的形式参数相匹配,有多个参数时,用逗号分隔。

    (2)把过程名作为一个语句来用

    语法:过程名 [实参1[,实参2……]]
    它与(1)的不同点是:去掉了关键字和实参列表的括号

    如上例中可以改成:area a,b,c,w


    五、用VB程序代码建立一个数据连接(D:/DATABASE/STUDENT.MDB)并打开连接,这里有几种方法,可以参考下我的BLOG:http://blog.csdn.net/qvbhdnvto/archive/2006/09/18/1233875.aspx

    第一种:
    Dim rsAccess As Recordset
    Dim ConnAccess As New Connection
    Dim StrSQLAccess As String
    Dim i As Integer
    DBSeaverPath="D:/DATABASE"

    ConnAccess.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" + DBSeaverPath +

    IIf(Len(DBSeaverPath) > 3, "/" & "STUDENT.MDB;", "STUDENT.MDB;") + " Jet OLEDB:Database

    Password=;"

    StrSQLAccess = "Select * from Users order by id asc"
    Set rsAccess = New Recordset
    rsAccess.Open StrSQLAccess, ConnAccess, adOpenStatic, adLockOptimistic

    If rsAccess.RecordCount = 0 Then End

    'Do While Not rsAccess.EOF
    ' ComboUserName.AddItem rsAccess!Username '此处调用
    ' rsAccess.MoveNext
    'Loop'

    rsAccess.Close
    Set rsAccess = Nothing
    ConnAccess.Close
    Set ConnAccess = Nothing

    第二种:
    Dim strSQL As String
    Dim OldWs As Workspace, mainDb As Database, TableMain As Recordset

    Condata = "D:/DATABASE/STUDENT.MDB"
    SaveSetting App.EXEName, "Data", "Path", Condata
    ConStr = ";UID=" & ";PWD="
    Set OldWs = DBEngine.Workspaces(0)
    Set mainDb = OldWs.OpenDatabase(Condata, False, False, ConStr)

    'mainDb.Execute "delete Users"' '此为删除
    Set TableMain = mainDb.OpenRecordset("select * from Users" & strSearchString)
    TableMain.LockEdits = False

    'Do Until TableMain.EOF
    ' If Not IsNull(TableMain("UserName").Value) Then
    ' UserNameText.AddItem TableMain("UserName").Value
    ' End If
    'TableMain.MoveNext
    'Loop

    TableMain.Close
    Set TableMain = Nothing
    mainDb.Close
    Set mainDb = Nothing

    第三种:
    '这是直接用控件,在窗体是放一个DATA控件再直接用,方便!
    strSQL = "select * from Users order by id asc"

    Data1.DatabaseName = "D:/DATABASE/STUDENT.MDB"
    Data1.RecordSource = strSQL
    Data1.Refresh

    第四种:
    '“工程”菜单中选择“引用”菜单选择“Microsoft DAO 3.51 Object Library”项'
    Public AcessDB As Database
    Dim TableMain As RecordSet

    Public Sub OpenDatabase ( )
    Dim sConeect As String
    SConnect = ";PWD =; UID ="
    Set AcessDB = Nothing

    Set AcessDB = WorksPaces (0 ).OpenDatabase ("D:/DATABASE/STUDENT.MDB",False,sConnect)
    End Sub

    Set TableMain = AcessDB.OpenRecordSet ( "Users",dbOpenSnapshot )

    'Do While Not TableMain.EOF
    ' ComboUserName.AddItem TableMain!Username '此处调用
    ' TableMain.MoveNext
    'Loop

    AcessDB.Close
    Set AcessDB = Nothing
    TableMain.Close
    Set TableMain = Nothing

    六、WITH语句主要用在控件对像多属性设置时,在一个单一对象或一个用户定义类型上执行一系列的语句。

    具体说明如下:

    语法
    With object
    [statements]

    End With

    With 语句的语法具有以下几个部分:

    描述
    object 必要参数。一个对象或用户自定义类型的名称。
    statements 可选参数。要执行在 object 上的一条或多条语句。


    说明
    With 语句可以对某个对象执行一系列的语句,而不用重复指出对象的名称。例如,要改变一个对象的多个

    属性,可以在 With 控制结构中加上属性的赋值语句,这时候只是引用对象一次而不是在每个属性赋值时都

    要引用它。下面的例子显示了如何使用 With 语句来给同一个对象的几个属性赋值。

    With MyLabel
    .Height = 2000
    .Width = 2000
    .Caption = "This is MyLabel"
    End With

    注意 当程序一旦进入 With 块,object 就不能改变。因此不能用一个 With 语句来设置多个不同的对象。

    可以将一个 With 块放在另一个之中,而产生嵌套的 With 语句。但是,由于外层 With 块成员会在内层的

    With 块中被屏蔽住,所以必须在内层的 With 块中,使用完整的对象引用来指出在外层的 With 块中的对

    象成员。

    重点 一般来说,建议您不要跳入或跳出 With 块。如果在 With 块中的语句被执行,但是 With 或 End

    With 语句并没有执行,则一个包含对该对象引用的临时变量将保留在内存中,直到您退出该过程。

    参考:Visual Basic 语言参考-函数速查  

    展开全文
  • 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错误

    展开全文
  • VB6.0 中调用 C# 的 DLL 过程中, 不知如何VB6 中判断 VB6 的对象是否为 NULL 例如: (在 VB6 里面有一个 Class Module 名为 VBClassModuleObject ): ---------------- Dim TestObject As ...
  • VB/ASP 调用 SQL Server 的存储过程

    千次阅读 2005-02-26 21:14:00
    昨天有位久未谋面的老同学,突然问起如何VB调用SQL的存储过程。当时因为手上没有资料,机器上也没装SQL,随即发了早年写的一段ASP代码,也不知道行不行。抱着负责任的态度,刚好又有点空闲,便做了个测试:(说来...
  • 调用sp_addumpdevice过程时,发生这SP有返回值,度娘了一圈,很少有提出存储过程返回值如何在ADO Command中如何引用。 瞎写的代码,总是提示:@cntrltype未声明为OUTPUT,但形参还需要输出,等等。 但打开sp_...
  • 通过这个过程可以提高性能,更好地访问 C 库函数和系统调用。在本教程中,我将带大家了解如何使用 Python API 来编写 Python C 扩展模块。这里说的都是 Cpython。通过本教程你将学到在 Python 内部执行 C 的函数将...
  • 1、请问如何vb调用rar压缩文件?怎样经由过程VB调用rar把它们压缩成一个“.rar”文件? 首先,你要装Winrar 要把整个用法都写出来也是挺长的(参阅C:\Program Files\Winrar\Rar.txt 47,855 字节来讲RAR的命令行) ...
  • 如题:调用的SQL存储过程,返回的记录集如何用代码的方式绑定到Datagridview ? Dim myDataSet As New DataSet Try Parameter.Fill(myDataSet) If myDataSet.Tables.Count = 1 Then DataGridView1....
  • 本文用示例讲述VB.NET(VB 2008, VB 2005) 如何得到当前过程(current procedure)和调用的类(current Class) 的名称。 主要用到 System.Diagnostics.StackTrace 和 System.Diagnostics.StackFrame,以及 StackFrame...
  • VB中递归调用程序

    2019-03-02 14:20:58
    Private Sub Command1_Click()  Dim x As Integer  x=Val(InputBox(“请输入一个整数”))  fun(x) End Sub Private Sub fun(x As Integer) ... If x Mod 2=0 Then fun(x / 2) ...解析:fun过程是...
  • 使用vb6.0中文开发平台的编程,如何实现循环语句对于控件是否调用属性的判断,如何对比当前属性的调用?怎么实现对属性值判断的过程是什么?
  • VB如何连接帮助文件

    2012-01-16 03:32:28
    VB如何连接帮助文件 2009年12月04日  VB如何连接帮助文件  我用记事本写的帮助文件,不知道是否可以被应用程序调用呢?HLP,CHM格式的 我都试过了 要详细的过程 Private Sub Form_Load() App.HelpFile = app....
  • 用VC开发API形式的DLL给VB调用的范例

    万次阅读 热门讨论 2010-03-05 01:15:00
    对于很多VB爱好者来说,或多或少会了解一点C语言,有时候VB的运算速度...本人就在此对VC编写API形式的DLL供VB调用这个话题做一个详细的操作过程说明,希望能对这方面有需求的VB爱好者有所帮助。我们就来先了解一下VC是
  • SQLBindParameter传递参数如何使用,不胜感激
  • VS中调用SQL SERVER存储过程

    千次阅读 热门讨论 2014-05-24 20:10:52
    存储过程是经过编译的,永久保存在...下面就详谈一下,VB.NET如何调用SQL SERVER中的存储过程。 以上就是本人数据库中的一张表—OnDutyInfo 创建存储过程   要实现的功能是,查询用户的值班记录,在VS中的实现
  • 下面以C#为例简单介绍调用API的基本过程: 动态链接库函数的声明   动态链接库函数使用前必须声明,相对于VB,C#函数声明显得更加罗嗦,前者通过 Api Viewer粘贴以后,可以直接使用,而后者则需要对参数作些额外...
  • 1、在VB.NET中取消窗体的关闭事件;2、如何取消窗体上关闭按钮功能;3、窗体终止事件的过程,见如下说明 如果只是关闭窗体,请调用该窗体的Close命令。 如果你将应用程序项目的启动窗体设顶成某个窗体,则调用该启动...
  • 本文通过VB5.0创建ActiveX DLL文件,这个文件模拟了一个掷色子的过程,向大家介绍如何在ASP中调用DLL的文章专题。 动态联接库(DLL)是加快应用程序关键部分的执行速度的重要方法,但有一点恐怕大部分人都不知道,那...
  • 在C#中如何调用dll文件

    千次阅读 2008-08-06 14:19:00
    在不转换直接调用方式的示例如下所讲(转载)下面以C#为例简单介绍调用API的基本过程:动态链接库函数的声明 动态链接库函数使用前必须声明,相对于VB,C#函数声明显得更加罗嗦,前者通过 Api Viewer粘贴以后,可以...
  • 【实例】java调用dll的文档搜了不少,发现都不完整,或者说的不够详细,这里通过自己的实际操作,并将过程做了整理,通过实例说明java如何用jacob调用dll里的函数。 由于某系统加密需要,需要实现从dll里实现某些...
  • VB.NET是如何关闭窗体

    千次阅读 2012-01-31 09:09:41
    1、在VB.NET中取消窗体的关闭事件;2、如何取消窗体上关闭按钮功能;3、窗体终止事件的过程,见如下说明 如果只是关闭窗体,请调用该窗体的Close命令。 如果你将应用程序项目的启动窗体设顶成某个窗体,...

空空如也

空空如也

1 2 3 4 5 6
收藏数 120
精华内容 48
关键字:

vb如何调用过程