module1.bas

个人写的在我公司里用着的查找工具,更改数据库名,和我的SQL语句也就可以查你们的数据了,有电子表格输出功能

Attribute VB_Name = "Module1"
Global Guid As String
Global Gpwd As String
Global Gdblink As String
Global ssn As Integer
Global strssn As String
Global conn As ADODB.connection
Public Function connection() As Boolean
        Guid = "atest"
        Gpwd = "atest"
        Gdblink = "BOX"
        strconnect = "DATA SOURCE=" & Gdblink & ";"
        Set conn = New ADODB.connection
        conn.Provider = "MSDAORA"
        With conn
        .ConnectionTimeout = 10
        .CursorLocation = adUseClient
        .Open strconnect, Guid, Gpwd
        End With
End Function
Function check(data1 As Variant, data2 As Variant) As Variant
        If IsNull(data1) Then
            check = data2
        Else
            check = data1
        End If
End Function
'Function prin(ByVal row As Integer, ByVal cols As Integer)
'Dim text As String
'Dim spa As String * 5
'For b = 0 To cols - 1
'
'   text = text & Form1.MSFlexGrid1.TextMatrix(row, b) & spa
'
'    Next
'
'prin = text
'
'End Function