zoukankan      html  css  js  c++  java
  • VB6.0 如何调用存储过程,返回结果集问题

    对于VB6.0这个软件,估计对于现在很多程序员来说,都不知道啥软件来了,但本人还在摸,

        If rs.BOF And rs.EOF Then
            MsgBox "There is no master FR connect setting, please contact IT."
            Exit Sub
        Else
            frConnectStr = rs("DESCRIPTION")
        End If
        
        
        If frCn.State = adStateOpen Then
          frCn.Close
          Set frCn = Nothing
        End If
        
        frCn.CursorLocation = adUseServer 'adUseClient 'adUseServer
        frCn.IsolationLevel = adXactReadCommitted
        frCn.CommandTimeout = 1800
        frCn.Open frConnectStr
    
    '    Dim cmd As ADODB.Command
    '    Set cmd = New ADODB.Command
    '    cmd.CommandText = "dbo.FR_GEN_DATA_FOR_AGPO"
    '    cmd.CommandType = adCmdStoredProc
    '    cmd.ActiveConnection = frCn
    '    cmd.CommandTimeout = 300
    '    With cmd.Parameters
    '        .Append cmd.CreateParameter("@JOSTR", adVarChar, adParamInput, 4000, "20G04502DE01,20G07345GB01,")
    '        .Append cmd.CreateParameter("@Character", adVarChar, adParamInput, 1, "C")
    '        .Append cmd.CreateParameter("@DayPeriod", adInteger, adParamInput, , 7)
    '   End With
    '   Set rsFr = cmd.Execute
    '    Debug.Print cmd.State
    
    
        sql = "exec dbo.FR_GEN_DATA_FOR_AGPO '20G04502DE01,20G07345GB01,', 'C',7"
        Set rsFr = frCn.Execute(sql)
        
       
       Debug.Print rsFr.State
       If rsFr.State = 1 Then
        Debug.Print rsFr.RecordCount
        If rsFr.BOF And rsFr.EOF Then
            MsgBox "There is no mapping data in FR."
        Else
            Do While Not rsFr.EOF
                Debug.Print rsFr(0)
            
             rsFr.MoveNext
            Loop
        End If
        'Get JO, by G or C
        
       End If
    

    记得存储过程,要补上一个 SET NOCOUNT ON, 原理不详~~~囧

  • 相关阅读:
    EC6 map 和 set
    git merge 和 rebase 区别
    循环数据forin,foreach,for of
    转 纯CSS设置Checkbox复选框控件的样式
    CSS3特性 盒模型 动画
    正则表达式符号大全
    js中的apply调用
    今天发现了一个同学转发的一个前端面试题,今天转发过来
    正则表达式 实例汇总(待续添加)
    转载 javascript中的正则表达式总结 二
  • 原文地址:https://www.cnblogs.com/shoupifeng/p/13744338.html
Copyright © 2011-2022 走看看