日立张 发表于 2010-3-19 17:05:53

备忘mysql---qtp

Dim cmm, strCnn, Rst,returnname

Set cmm = CreateObject("ADODB.command")
'cnn.Open strCnn
Set Rst = CreateObject("ADODB.Recordset")
strCnn = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=192.168.205.101;DATABASE=tp;USER=tp;PASSWORD=tp;Option=3"
cmm.ActiveConnection=strCnn
sql="select tp_info.nick from "&parameter("table")&"where tp_info.id='50002' "
cmm.CommandText=sql
Set Rst = cmm.Execute()
parameter("username")=cstr(Rst(0))
returnname = parameter("username")
Set cmm =nothing
Set Rst=nothing
这样可以封装成函数的形式，在用到的时候，传入参数，例如：那个表，然后返回结果，对比页面上取到的结果，进行比较。
页: [1]
查看完整版本: 备忘mysql---qtp