怎么从数据库里读取数据到页面中

angelia_liu

怎么从数据库里读取数据到页面中,
比如我要从MYSQL数据库中循环读取用户的用户名到登入页面的userName中去验证不同用户的登入.

blueeagle9999

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

--------------------------------------连接部分------------------------------------------------------
Dim Cnn
Set Cnn = CreateObject("ADODB.Connection")
Cnn.ConnectionString ="DATABASE=testmysql;DSN=192.168.1.63;OPTION=0WD=123456ORT=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条记录