VBA学习笔记

Dim Str, Val, n, Codes
Dim eyear As String
Dim etype As String
Dim ecode As String
Dim line As Integer

Function SearchEvents(ByVal year As String, ByVal etype As String, ByVal code As String)
    Dim lastRows As Integer
     strSQL = "exec PROC_Evaluation_EvalProgress_Select_Backup " & year & "," & etype & "," & code
     'strSQL = "exec PROC_Evaluation_index_EvaluatorStatus "
       
    
  
        Call rsOpen
            If rs.RecordCount <> 0 Then
               i = line
               line = line + rs.RecordCount
                Sheet2.Cells(4 + i, 1).CopyFromRecordset rs
                
            Else
                MsgBox Q004
            End If
        Call rsClose
   
End Function

Function TypeChange1(ByVal Source As String, ByVal TargetType As String, ByVal Target As String) As String
    If Source = TargetType Then
        Source = Target
    End If
    TypeChange1 = Source
End Function

Option Explicit

'''''廋惓梡 Server
'Public Const strIP        As String = "172.20.3.135"
'Public Const strUser      As String = "develop"
'Public Const strPasswd    As String = "develop"
'Public Const strDB        As String = "KOUBAI"

'''''嫵堢梡 Server
Public Const strIP      As String = "10.100.1.220"
Public Const strUser      As String = "sa"
Public Const strPasswd    As String = ""
Public Const strDB        As String = "dbEvaluation"

'''''杮斣梡 Server
'Public Const strIP        As String = "172.20.5.68"
'Public Const strUser      As String = "sa"
'Public Const strPasswd    As String = "bpo"
'Public Const strDB        As String = "dbKoubai"


Public strSQL       As String
Public cn           As New ADODB.Connection
Public rs           As New ADODB.Recordset

Public Sub cnOpen()
On Error GoTo err
   If cn Is Nothing Then
    Set cn = New ADODB.Connection
   End If
    If cn.State = 0 Then
        With cn
            .Provider = "SQLOLEDB.1"
            .ConnectionString = "Persist Security Info=True;" & _
                                "Data Source=" & strIP & ";" & _
                                "Initial Catalog=" & strDB & ";" & _
                                "User ID=" & strUser & ";" & _
                                "Password=" & strPasswd
            .ConnectionTimeout = 800
            .CommandTimeout = 800
            .CursorLocation = adUseClient
            .Open
         End With
    End If
    Exit Sub
err:
    MsgBox "DB偲僐僱僋僩偱偒傑偣傫偱偟偨丅"
    End
End Sub

Public Sub cnClose()
   If Not cn Is Nothing Then
      If cn.State <> 0 Then cn.Close
      Set cn = Nothing
   End If
End Sub

Public Sub rsOpen()
   If rs Is Nothing Then
      Set rs = New ADODB.Recordset
   End If
   If rs.State = 0 Then
    If cn.State = adStateClosed Then cnOpen
   
    If cn.State = adStateOpen Then rs.Open strSQL, cn
   End If
   
End Sub

Public Sub rsClose()
   If Not rs Is Nothing Then
      If rs.State <> 0 Then rs.Close
      Set rs = Nothing
   End If
End Sub

另外，在调用存储过程的时候，会遇到问题，数据库抽出数据时存放在ADODB.Recordset中的，每次抽出数据都会存放在rs中，但是，如果存储过程中含有临时表，那么，每执行一次临时表，ADODB.Recordset会自动关闭，因此外部使用ADODB.Recordset中的数据时便会报错，无法打开ADODB.Recordset，对于这种问题的解决方案是：将将存储过程中的临时表统统替换为sql语句，这样就不存在临时表，ADODB.Recordset也就会正常开关。