modsqlquery.bas

来自「几个不错的VB例子」· BAS 代码 · 共 21 行

Attribute VB_Name = "modSqlQuery"
Option Explicit

Global gdbSQLQ As ADODB.Connection
Global gsApplName As String
Global gsDBConnection As String

Global gsPathLogs As String

Public Sub Main()
    Set gdbSQLQ = New ADODB.Connection
    
    gbErrorHandSwitch = True
    
    If App.PrevInstance Then Exit Sub
    gsApplName = App.EXEName
    gsPathLogs = App.Path
    frmMain.Show

End Sub