module1.bas

vb源代码

Attribute VB_Name = "Module1"
Public sSql As String   '用于sql语句
Public adoCn As ADODB.Connection '数据库连接
Public adoCmd As ADODB.Command  '用于执行对数据库的操作命令

Public tmpTableName As String   '用于查询的临时表名
Public tmpStrSqlField As String   '用于查询的字段名
Public tmpStrSqlTable As String   '用于查询数据库表名
    
Sub Main()
    Set adoCn = New ADODB.Connection
    Set adoCmd = New ADODB.Command
    
    
    Dim sSc As String
    sSc = "Driver={microsoft access driver (*.mdb)}"
    sSc = sSc & ";DBQ=" & App.Path & "\ttt_xs.mdb"
    
    
    adoCn.Open sSc
    adoCmd.ActiveConnection = adoCn
    
    
    frmM.Show
End Sub