[原创] 备忘mysql---qtp

[复制链接]

日立张

该用户从未签到

电梯直达

1^#

发表于 2010-3-19 17:05:53 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

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
这样可以封装成函数的形式，在用到的时候，传入参数，例如：那个表，然后返回结果，对比页面上取到的结果，进行比较。

nothing, Where