module1.bas

来自「前些年帮人写的毕业设计」· BAS 代码 · 共 13 行

Attribute VB_Name = "Module1"
Public Function GetCn() As ADODB.Connection
    Dim dbfile As String
    Set GetCn = New ADODB.Connection
    GetCn.ConnectionTimeout = 180
    GetCn.CommandTimeout = 180
    
    dbfile = App.Path & "\date\yaofang.mdb"
    GetCn.CursorLocation = adUseClient
    GetCn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbfile & "; Persist Security Info=False"
    GetCn.Open
End Function