VB6 SQL参数化查询模块

   　　　熟悉VB6的朋友在写带有多个参数的SQL语句的时候 ，查询脚本的参数是用&或+号连接起来吗，只有几个参数是尚可，当参数多时可读性就差多了。为了免去麻烦，因此做了此函数。

           虽然ADD的Command对象有Parameters属性，但还是自己封装了带参数的查询方法，有部分参考了宁静兄的：

　　　　

Public Function AdoOpenRS(ByRef wADORecordSet As ADODB.Recordset, _
                                sqlSELECTCommand As String, _
                       Optional Param As Variant = "", _
                       Optional ActiveADOConn As ADODB.Connection = Nothing, _
                       Optional ShowMsgBoxIfFail As Boolean = True, _
                       Optional CloseRSIfFail As Boolean = True, _
                       Optional SetRSNothingIfFail As Boolean = True, _
                       Optional sRetErrDesp As String = "") As Boolean
                       
           'Param  參數數組
On Error GoTo errOpenRs
          If Len(sqlSELECTCommand) = 0 Then Exit Function
           
          
          If TypeName(Param) = "Variant()" Then
            Dim i As Byte
            For i = 1 To UBound(Param)
              sqlSELECTCommand = Replace(sqlSELECTCommand, "?" & i, Param(i))
            Next
          End If
            
           wADORecordSet.CursorLocation = adUseClient '客户端游标
        
          If ActiveADOConn Is Nothing Then
            wADORecordSet.Open sqlSELECTCommand, SQLConn, adOpenDynamic, adLockOptimistic
          Else
            wADORecordSet.Open sqlSELECTCommand, ActiveADOConn, adOpenDynamic, adLockOptimistic
          End If
        
          Exit Function
errOpenRs:
          If ShowMsgBoxIfFail Then MsgBox Err.Description, vbExclamation, "ErrOpenRs"
          'If CloseRSIfFail Then wADORecordSet.Close
          If SetRSNothingIfFail Then Set wADORecordSet = Nothing
End Function

　　　　　　调用例子：

    Dim strsql As String
    Dim Param(1 To 1) As Variant
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset

    strsql = "select OrderID From [Order] " & _
             " where convert(nvarchar(7),OrderDate,120) = '?1'"
    Param(1) = Format(Now, "YYYY-MM")

   AdoOpenRS rs, strsql, Param