[求助]如何用VB封装连接字符串

Question

封装成DLL，输入查询语句，返回数据集。这样在EXCEL中使用时，以免别人看到连接字符串，影响数据库的安全。

Answer 1

'OpenFile FileName '找开数据库
'CloseFile         '关闭数据库存
'OpenTable  SQL    '根据SQL打开表
'Rs                '返回记录集.
'当然你可以再完善/Option ExplicitDim m_Rs As New Recordset
Dim m_db As New Connection
Dim m_IsOpen As Boolean
Dim m_FileName As String
Public Sub OpenFile(ByVal FileName As String)
On Error GoTo Handler
  m_db.CursorLocation = adUseClient
  m_db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & FileName & ";"
  
  m_IsOpen = True
  m_FileName = FileName
  
  Exit Sub
Handler:
   
End SubPublic Sub CloseFile()
   If m_IsOpen Then
     m_db.Close
     m_IsOpen = False
   End If
End Sub
Public Function OpenTable(ByVal Sql As String) As Recordset
  On Error Resume Next
  If m_IsOpen Then
    m_Rs.Close
    m_Rs.Open Sql, db, adOpenStatic, adLockOptimistic
    Set OpenTable = m_Rs
  End If
End Function
Public Property Get Rs() As Recordset
   Set Rs = m_Rs
End PropertyPublic Property Get FileName() As String
   FileName = m_FileName
End PropertyPublic Property Get IsOpen() As Boolean
   IsOpen = m_IsOpen
End Property