modtrains.bas

来自「资源类别：Visual Basic 源码所属子类：数据库应用 开发语言：其他开发」· BAS 代码 · 共 16 行

Attribute VB_Name = "ModTrains"
    Public Str As ADODB.Connection
 
Public Sub DateConnection()
    Set Str = New Connection
    
    Str.ConnectionTimeout = 50
    Str.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Tickets.mdb;"
    Str.CursorLocation = adUseClient
End Sub

Public Sub main()
    DateConnection
    MdiTrain.Show
End Sub