qtp怎么从数据库中取数据来输入到界面中？

long-run

qtp怎么从数据库中取数据来输入到界面中？

happychap

用VBS脚本连接数据库，取出值，再输入到你的界面中。

Old々Man

Public Function ReadDB(ByVal filepath)
        '---- CursorTypeEnum Values ----
        Const adOpenForwardOnly = 0
        Const adOpenKeyset = 1
        Const adOpenDynamic = 2
        Const adOpenStatic = 3        
        '---- LockTypeEnum Values ----
        Const adLockReadOnly = 1
        Const adLockPessimistic = 2
        Const adLockOptimistic = 3
        Const adLockBatchOptimistic = 4

        Dim cnn,rst,strCnn,strSql
        Dim strEachLine,myArr,rValue       
        'strCnn = "rovider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\DataDrivenCalc\sogoucalc.mdbersist Security Info=False"
        strCnn = "rovider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filepath & "ersist Security Info=False"       
        Set cnn = CreateObject("ADODB.Connection")
        Set rst = CreateObject("ADODB.Recordset")
        strSql = "select * from Calc"
        cnn.Open strCnn
        rst.CursorType = adOpenForwardOnly
        rst.LockType = AdLockOptimistic
        rst.Open strSql,cnn
        rst.MoveFirst
        Do While Not rst.EOF
                'Msgbox rst.Fields("Test Case")
                strEachLine = Trim(rst.Fields("Test Case"))
                rst.MoveNext
        Loop