精华内容
下载资源
问答
  • Private Sub Command1_Click() CNN cn.CursorLocation = adUseClient cn.Open ConnectionString... ... Text1.Text & "'", , adCmdStoredProc) ... Set DataGrid1.DataSource = rs1 ...如果存储过程不带参数则没有问题
  • "checkdata_bak" '执行存储过程的名字 cmd.Parameters.Append _ cmd.CreateParameter("col_name", adVarChar, adParamInput, 40, col_name) '添加执行存储过程的输入参数col_name为fi_acct_num cmd.Parameters....

    Sub 生成《数据质量检查》数据()

    ' 生成《数据质量检查》数据 Macro

    ' 宏由 chengyb 录制,时间: 2008-6-12

    Dim cmd As New ADODB.Command

    Dim rs As New ADODB.Recordset

    Dim conn As Connection

    Dim result_str As String

    Dim i As Integer

    Dim index As Integer

    Dim index0 As Integer

    Dim index1 As Integer

    Dim k As Integer

    Dim col_name As String

    On Error GoTo errh

    'Windows("CEB_PLMS数据质量检查报告_Application_data(basel).xls").Activate

    'Sheets("目标_房贷").Select

    For i = 2 To 39

    col_name = Cells(i, 1)

    Debug.Print "开始检查" & col_name & "的数据"

    Set conn = OpenOraDSN("PLDB_10.1.18.246") '连接数据库字符串

    cmd.ActiveConnection = conn '建立命令类和数据库的连接

    cmd.CommandType = adCmdStoredProc '定义命令类型为执行存储过程

    cmd.CommandText = "checkdata_bak"  '执行存储过程的名字

    cmd.Parameters.Append _

    cmd.CreateParameter("col_name", adVarChar, adParamInput, 40, col_name) '添加执行存储过程的输入参数col_name为fi_acct_num

    cmd.Parameters.Append _

    cmd.CreateParameter("tab_name", adVarChar, adParamInput, 40, "vt_basel2_target") '添加执行存储过程的输入参数tab_name为vt_basel2_target

    cmd.Parameters.Append _

    cmd.CreateParameter("result_str", adVarChar, adParamOutput, 1000) '添加执行存储过程的输出参数result_str

    Set rs = cmd.Execute() '执行该存储过程

    result_str = cmd.Parameters("result_str").Value

    Debug.Print "sjk返回:" & result_str

    index = 1

    index0 = 1

    For k = 1 To 15  '截取字符串

    index1 = InStr(index0, result_str, "|")

    index = index1 - index0

    Cells(i, 5 + k) = Mid(result_str, index0, index)

    index0 = index1 + 1

    Next k

    Set rs = Nothing

    Set cmd = Nothing

    Debug.Print " 检查" & col_name & "数据结束"

    Next i

    errh:

    MsgBox Err.Description

    End Sub

    Function OpenOraDSN(Optional dsn As String = "PLDB_10.1.18.246") As Connection

    Dim iRet As Long, sDriver As String, sConn As String

    Dim sServer As String, sUser As String, sPass As String

    Dim c As Connection

    On Error GoTo errh

    sDriver = "Microsoft ODBC for Oracle"

    sConn = "DSN=" & dsn

    If SQLConfigDataSource(vbAPINull, ODBC_CONFIG_SYS_DSN, sDriver, sConn) = 0 Then

    MsgBox "没有创建名为" & dsn & "的数据源!" & vbCrLf & "点确定后将会引导你创建.(需要先安装oracle客户端,并配置好到数据库服务器的连接)", vbInformation

    sServer = InputBox("例如:odsptcs", "请输入Oracle配置的连接服务名", "PLDB_10.1.18.246")

    If sServer = "" Then End

    sUser = InputBox("例如:plms", "请输入Oracle用户名", "plms")

    If sUser = "" Then End

    sPass = InputBox("例如:plms", "请输入Oracle用户的密码", "plms")

    If sPass = "" Then End

    sConn = sConn & Chr(0) & "SERVER=" & sServer & Chr(0) & "UID=" & sUser & Chr(0) & "PWD=" & sPass

    iRet = SQLConfigDataSource(vbAPINull, ODBC_ADD_SYS_DSN, sDriver, sConn)

    If iRet Then

    SaveSetting APPNAME, "DSN", dsn & ".UID", sUser

    SaveSetting APPNAME, "DSN", dsn & ".PWD", sPass

    MsgBox "数据源DSN创建成功!", vbInformation

    Else

    MsgBox "数据源DSN创建失败!", vbExclamation

    End

    End If

    Else

    sUser = GetSetting(APPNAME, "DSN", dsn & ".UID")

    sPass = GetSetting(APPNAME, "DSN", dsn & ".PWD")

    Do While sUser = ""

    sUser = InputBox("", "请输入Oracle用户名", "plms")

    Loop

    Do While sPass = ""

    sPass = InputBox("", "请输入Oracle用户的密码", "plms")

    Loop

    SaveSetting APPNAME, "DSN", dsn & ".UID", sUser

    SaveSetting APPNAME, "DSN", dsn & ".PWD", sPass

    End If

    Set c = New Connection

    c.Open "DSN=" & dsn, sUser, sPass

    Set OpenOraDSN = c

    Exit Function

    errh:

    MsgBox Err.Description, vbCritical, "打开数据库失败"

    End

    End Function

    展开全文
  • VB.NET执行存储过程

    2008-12-10 13:21:00
    '---------------------------------------------------------------- ...要配置允许执行 xp_cmdshell 3、  backup database database_name to disk='// remoteserver_name / sharefolder /master.bak'

    '----------------------------------------------------------------  
              '  
              '  
              '   功能:计算单签字  
              '   参数:计算单标识码,审核状态  
              '   返回:成功与否  
              '  
              '----------------------------------------------------------------  
              <AutoComplete()>   _  
              Public   Function   Signature(ByVal   CalSheetID   As   System.Guid,   ByVal   Power   As   System.Int16)   As   Boolean  
                      Dim   sSql   As   String  
                      Dim   sysInfo   As   New   CSBusinessRules.SystemInfo()  
                      Dim   Params()   As   SqlParameter   =   _  
                                                            {New   SqlParameter("@标识码",   SqlDbType.UniqueIdentifier),   _  
                                                              New   SqlParameter("@审核状态",   SqlDbType.SmallInt)}  
                      Params(0).Value   =   CalSheetID  
                      Params(1).Value   =   Power  
       
                      sSql   =   "UPDATE   Measure_CalculationSheet   "  
                      sSql   =   sSql   &   "SET   审核状态   =@审核状态   "  
                      sSql   =   sSql   &   "WHERE   (标识码   =   @标识码)   "  
       
                      '   运行语句  
                      Try  
                              Return   m_objDataLayer.ExecuteSQL(sSql,   Params)  
                      Catch   ex   As   Exception  
                              Throw   New   Exception(ex.Message,   ex)  
                              Return   False  
                      End   Try  
              End   Function

     

    --------------------------------------------------------------------------

    1、 在远程机建立共享文件夹,并分配相应的写权限

    2、 在要进行备份的数据库实例中运行以下命令,以建立信任关系:
    master..xp_cmdshell 'net use //remoteserver_name/sharefolder password /user:domain/user'

    2005要配置允许执行xp_cmdshell

    3、 backup database database_name to disk='//remoteserver_name/sharefolder/master.bak'

    展开全文
  • VB执行存储过程!

    千次阅读 2004-11-03 20:23:00
    Sub cmd()Dim iCmd As ADODB.CommandDim iRe&Set iCmd = New ADODB.CommandWith iCmd .ActiveConnection = iConc 数据库连接字符串 .CommandType = adCmdStoredProc .CommandText = "存储过程名" .Parameters....

    Sub cmd()
    Dim iCmd As ADODB.Command
    Dim iRe&

    Set iCmd = New ADODB.Command
    With iCmd
        .ActiveConnection = iConc   '数据库连接字符串
        .CommandType = adCmdStoredProc
        .CommandText = "存储过程名"
        .Parameters.Refresh '创建存储过程参数
        .Parameters("@输入参数1") = "值1"   '为参数赋值
        .Parameters("@输入参数2") = "值2"
       
        .Execute    '执行存储过程
       
        Debug.Print .Parameters("@输出参数1")   '显示存储过程的执行结果
        Debug.Print .Parameters("@输出参数2")
    End With
    End Sub

    展开全文
  • vb.net SqlCommand 执行 存储过程

    千次阅读 2009-08-04 18:00:00
    Dim cmd As New SqlConnection("Server=(local);UID=sa;PWD=123456;DATABASE=ipcmd") ' Try Dim recommand As New SqlCommand("insertt", cmd) recommand.CommandType = Data.CommandType.S

    展开全文
  • 注意是vb6.0 不是vb.net 我一直搞的是asp.net 没学过VB,最近有... 使用vb连接SQL2008,传入参数,执行一条存储,然后获得这个存储返回的数据集,然后把这些值赋给combobox 这个怎么弄?写一下详细的代码。谢谢了
  • 存储过程在SQL server能正确执行,在VB里面也能执行得到返回条目数,但我现在希望能使用一个控件得到返回的具体条目,请问使用DataGridView能否实现,如不能该怎么做?本人新手,希望高手帮忙解答。 贴代码如下 ...
  • VB执行存储过程,查不出来任何数据,SQL中却可以,请教下我的VB语句有什么问题吗? 在SQL中执行都可以查询出数据: execute [testProcedure] '2014-04-1', '2015-04-10', '', '', ...
  • VB执行带输入输出的存储过程

    千次阅读 2011-07-25 17:05:59
    以上VB执行代码   ALTER PROCEDURE test01 (@parameter1 varchar(10), @par2 int output) AS declare @nowtime as varchar(10) set @nowtime = CONVERT(varchar(100), GETDATE(), 23) insert into table1...
  • 一、如果想得到存储过程RETURN值,则返回值的参数添加一定要放在所有参数之前。 COMMAND.PARAMETERS.ADD returnValuePara二、如果想得到存储过程的返回参数。则不能返回结果集,反之亦然三、当存储过程返回不只一个...
  • 同样的道理,可以把要完成某项任务的许多Transact-SQL语句写在一起,组织成存储过程的形式,通过执行存储过程就可以完成这项任务。本文以SQL Server2000存储过程为例,探讨了存储过程的优点,并以Visual Basic6.0...
  • 网上说 表值参数是SQLServer2008中的新...但VB6是。。。。 我也找了很多资料.没找到例程和资料 看看有没有人遇到过这方面的需求. [img=https://img-bbs.csdn.net/upload/201901/22/1548162721_392191.png][/img]
  • 我目前使用以下查询成功连接到Windows 2008上的SQL数据库;$result = mssql_query("EXEC dbo....我的查询基于用VB / ADO编写的现有代码,看起来像;If level = "" Then level = 1cmdTT.ActiveConnection = connStrTest...
  • 一种是在存储过程中直接return一个值,就象C和VB的函数返回值那样;另一种是可以返回多个值,存储这些值的变量名称需要在调用参数中先行指定。 这个例子要处理多种参数,输入参数,输出参数,返回记录集以及一个直接...
  • VB中访问存储过程的几种办法 使用SQL存储过程有什么好处 ■SQL存储过程执行起来比SQL命令文本快得多。当一个SQL语句包含在存储过程中时,服务器不必每次执行它时都要分析和编译它。 ■调用存储过程,...
  • Conn.Execute 执行安装存储过程时候无法识别存储过程定义的多参数, [-2147217900][Microsoft OLE DB Provider for ODBC Drivers][Sybase][ODBC Driver][SQL Anywhere]第 在第 7 行 行的 '@as_billid1' 附近有语法...
  • vb.net机房收费系统——存储过程

    千次阅读 热门讨论 2014-06-28 19:46:48
    存储过程(Stored Procedure)是一组为了完成特定功能的SQL语句集,经编译后存储在数据库中,用户通过指定存储过程的名字并给出参数(如果该存储过程带有参数)来执行它。存储过程是数据库中的一个重要对象,任何一...
  • 包括参数传递,接收存储过程返回值,存储过程遇错误继续执行及停止执行
  • 第一种: Set parm_opt = New ADODB.Parameter parm_opt.Name = "optcode" parm_opt.Type = adInteger '参数类型 parm_opt.Size = 4 '参数长度 ...parm_opt.Direction = adParamInput '参数方向,输入或输出 ...
  • 该线程包含一些示例代码,这些示例代码显示了从VB执行Oracle存储过程和函数的方法。 希望用户发现它们有用。 仅以IN类型作为参数模式的Oracle Procedure。 ======================================== ...
  • VB.Net机房重构】存储过程的使用

    千次阅读 热门讨论 2015-04-26 21:52:04
    重构机房的时候,听到了很多新的名词,其实也...在程序的代码中直接执行存储过程的名字,不用每次都写这么多语句;  重构的充值表,需要同时对三张表添加数据,如果用代码编写的话,实现是没有问题的,但是如果同时
  • 机房收费系统(VB.NET)——存储过程实战

    千次阅读 热门讨论 2014-07-29 11:49:38
    1、一般SQL语句每执行一次就需要编译一次,而存储过程只是在创造时进行编译,以后每次执行都不需要再进行编译。 2、存储过程就是相当于把多个需要执行的SQL语句集合起来,变成一条SQL语句,当然就只需连接和执行一...
  • VB中访问存储过程的几种办法 发表时间:2004-8-10作者:未知[获得此文档时候没有作者记录,深感抱歉,本文档全为转载] 使用SQL存储过程有什么好处■SQL存储过程执行起来比SQL命令文本快得多。当一个SQL语句包含在...
  • VB实现SQL Server 2000存储过程调用

    千次阅读 2006-05-10 17:03:00
    VB实现SQL Server 2000存储过程调用 存储过程是存储在服务器上的一组预编译的Transact-SQL语句,是一种封装重复任务操作的方法,支持用户提供的变量,具有强大的编程功能。它类似于DOS系统中的BAT文件。在BAT文件中...
  • 存储过程Procedure是一组为了完成特定功能的SQL语句集合,经编译后存储在数据库中,用户通过指定存储过程的名称并给出参数来执行存储过程中可以包含逻辑控制语句和数据操纵语句,它可以接受参数、输出参数、返

空空如也

空空如也

1 2 3 4 5 ... 8
收藏数 147
精华内容 58
关键字:

vb执行存储过程