mdldb.bas

来自「健身俱乐部管理系统」· BAS 代码 · 共 28 行

Attribute VB_Name = "MdlDB"
Option Explicit
Public CN As ADODB.Connection



Public Sub DataIni()
Dim DBPath As String
DBPath = App.Path + "\Club.mdb"
On Error GoTo ErrCN
    Set CN = New Connection
'    CN.Open "DSN=access;DBQ=" + DBPath + ";DefaultDir=H:\世纪先达\世纪先达;DriverId=281;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;PWD=shijixianda;UID=admin;"
'    CN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBPath & ";Persist Security Info=False;"
'    CN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBPath & ";Persist Security Info=true;Pwd=sjxd001;"
    CN.Open "Provider=MSDASQL.1;Password=sjxd001;Persist Security Info=True;User ID=admin;Extended Properties=DBQ=" & DBPath & ";DefaultDir=" & App.Path & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;FILEDSN=" & DBPath & ".dsn;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;PWD=sjxd001;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;"""
    Exit Sub
ErrCN:
    Msg = MsgBox("无法连通数据库，数据库可能被删除或移走，请检查。", vbInformation, AwokeInfo)
    End
    
    
'    '连接客户端数据库。
'     Set PublicV.MyCon = New ADODB.Connection
'     PublicV.MyCon.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\MDB\客户端数据库.mdb;Jet OLEDB:Database Password=52205"
'     PublicV.MyCon.Open

End Sub