query.bas

组合查询 组合查询 组合查询

Attribute VB_Name = "Query"
Option Explicit


Public Function ConnectToDB(conQuery As ADODB.Connection) As Boolean
     
     On Error GoTo ConnErr
     ConnectToDB = True
     Dim sConn As String
     sConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" '& "e:\bn\gss_tz\db\tzgl.mdb"
     sConn = sConn & App.Path & "\Db\tzgl.mdb"
     
     'sConn = "DSN=Test"
     conQuery.CursorLocation = adUseClient
     conQuery.ConnectionString = sConn
     conQuery.Open
     
     Exit Function
ConnErr:
    ConnectToDB = False
End Function