mdlpub.bas

来自「GUI界面」· BAS 代码 · 共 20 行

BAS
20
字号
Attribute VB_Name = "mdlPub"
Option Explicit
Public Const MaxRecNumber = 200
Public Con As ADODB.Connection
Private Const ConStr = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source="
Public Sub main()
         Set Con = New ADODB.Connection
         Dim ccc As String
         ccc = App.Path
         If Len(ccc) > 3 Then ccc = ccc + "\"
         ccc = ConStr + ccc + "medical.mdb"
         With Con
             .CommandTimeout = 500
             .ConnectionString = ccc
             .CursorLocation = adUseClient
            .Open
         End With
         frmMain.Show
End Sub

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?