连接SQL数据库基于VBS

class Db
    private res,conn
    '初始化函数
    Private sub Class_Initialize()
    
        Dim strcon
        strcon = "Provider=SQLOLEDB.1;User ID=sa;Password=*******;Data source=.;DATABASE=Practice_Test"
        strcon1 = "DRIVER=SQL Server;SERVER=(local);DATABASE=Practice_Test"
        Set conn = createobject("adodb.connection")
        conn.open strcon1
        if Conn.State<>0 Then
            continue
        else
            msgbox"Fail"
        end if
        
    End sub
    '销毁函数
    Private sub Class_Terminate()
    
        res.close
        Set res = nothing
        conn.close
        Set conn = nothing
    
    End sub
    '插入数据
    Public function insertData(sqlstr)
    
        Set res = CreateObject("adodb.recordset")
        res.open sqlstr,conn
        
    End function
    '查询数据
    Public Function    searchData(sqlstr)
        
        Set res = CreateObject("adodb.recordset")
        res.open sqlstr,conn
        if res.eof and res.bof then
            msgbox "no data"
        else
            searchData = res.GetRows
        end if
    
    End Function
    
End class