odbc.bas

远程数据库读取保存示例 .rar

Attribute VB_Name = "ODBC"
'******************************************************
'我为人人
'人人为我
'枕善居汉化收藏整理
'http://www.mndsoft.com/blog/
'e-mail:[e-mail]
'2005.03.05
'******************************************************
Public cn As ADODB.Connection

Public Function DBConnect() As Boolean

    On Error GoTo OpenErr
    
    Dim MSDatabase
    
    Set cn = New ADODB.Connection
    
    MSDatabase = App.Path & "\" & "Database.mdb"
        cn.CursorLocation = adUseClient
        cn.Provider = "Microsoft.Jet.OLEDB.4.0"
        cn.Open MSDatabase, Admin
        DBConnect = True
    Exit Function

OpenErr:
    
        MsgBox "打开错误 " & MSDatabase & vbNewLine & Err.Description, vbCritical, "数据库打开错误"
        DBConnect = False


End Function