51Testing软件测试论坛

标题: 怎么从数据库里读取数据到页面中 [打印本页]

作者: angelia_liu 时间: 2009-2-16 18:10
标题: 怎么从数据库里读取数据到页面中
怎么从数据库里读取数据到页面中,
比如我要从MYSQL数据库中循环读取用户的用户名到登入页面的userName中去验证不同用户的登入.

作者: blueeagle9999 时间: 2009-2-16 21:19
QTP可以连接数据库的，具体可以看下面的代码，我也是从别地方直接拷贝过来的，楼主再碰到这种问题的时候可以先GOOGLE一下！

--------------------------------------连接部分------------------------------------------------------
Dim Cnn
Set Cnn = CreateObject("ADODB.Connection")
Cnn.ConnectionString ="DATABASE=testmysql;DSN=192.168.1.63;OPTION=0

WD=123456

ORT=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条记录

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)