怎么从数据库里读取数据到页面中
怎么从数据库里读取数据到页面中,比如我要从MYSQL数据库中循环读取用户的用户名到登入页面的userName中去验证不同用户的登入. QTP可以连接数据库的，具体可以看下面的代码，我也是从别地方直接拷贝过来的，楼主再碰到这种问题的时候可以先GOOGLE一下！
--------------------------------------连接部分------------------------------------------------------
Dim Cnn
Set Cnn = CreateObject("ADODB.Connection")
Cnn.ConnectionString ="DATABASE=testmysql;DSN=192.168.1.63;OPTION=0;PWD=123456;PORT=0;SERVER=192.168.1.63;UID=root"
Cnn.Open
If Cnn.State = 0 Then
Reporter.ReportEvent micFail, "testing", "连接数据库失败"
else
Reporter.ReportEvent micPass, "testing", "连接数据库成功"
end if
--------------------------------------操作部分------------------------------------------------------
Set Rs = CreateObject("ADODB.Recordset")
Rs.Open"select DC_CODE from MENUS_DEPARTMENT_CLASS",Conn '后面可以加上参数表示打开的方式
Rs.movefirst
While not rs.eof
MsgBox(Rs("DC_CODE").value)
Rs.movenext
wend
Rs.Close
Conn.Close
Set Rs = nothing
Set Conn = nothing
记录集对象的方法：
rs.movenext 将记录指针从当前的位置向下移一行
rs.moveprevious 将记录指针从当前的位置向上移一行
rs.movefirst 将记录指针移到数据表第一行
rs.movelast 将记录指针移到数据表最后一行
rs.absoluteposition=N 将记录指针移到数据表第N行
rs.absolutepage=N 将记录指针移到第N页的第一行
rs.pagesize=N 设置每页为N条记录
页:
[1]
