module1.bas

一个通用的SQL查询分析器

Attribute VB_Name = "Module1"

Public cnn As New ADODB.Connection



Sub main()


Call Connect

End Sub

Private Function ReadConnectSetup(filename As String)
    Dim cs As String
    Dim ss As String
    cs = ""
    ss = ""
    Open filename For Input As #1
            
    Do Until EOF(1)
            Line Input #1, ss
            cs = cs + ss
       Loop
        
        Close #1
    ReadConnectSetup = cs
End Function

Private Sub Connect()
cnn.CursorLocation = adUseClient
cnn.ConnectionString = ReadConnectSetup("Setup.ini")
cnn.ConnectionTimeout = 3
On Error GoTo err
    cnn.Open
   Form1.Show
    Exit Sub
err:
    MsgBox "数据库连接失败!"
End Sub


Public Sub Cmd(sql As String)
    On Error GoTo err
    Set cmm1 = New ADODB.Command
    cmm1.ActiveConnection = cnn
    cmm1.CommandText = sql
    cmm1.CommandType = adCmdText
    cmm1.Execute
    Exit Sub
err:
    MsgBox Error
End Sub