09.04qtp操作sqlserver数据库

'------------------------qtp访问sqlserver数据库
'------------------------查询需要访问的数据库字符串；随意建立一个UDL为后缀名的文件，打开并设置自己的数据库链接
'------------------------关闭UDL文件用记事本打开copy出 Provider=SQLOLEDB.1;Password=123456;Persist Security Info=True;User ID=weizongyi;Initial Catalog=TPOrder;Data Source=192.168.5.211,2005
Dim dbStr,myDb,myData,res  '定义变量依次为 “数据库链接字符串”  “数据库链接对象”  “数据结果集合”  “结果” 
dbStr = "Provider=SQLOLEDB.1;Password=123456;Persist Security Info=True;User ID=weizongyi;Initial Catalog=TPOrder;Data Source=192.168.5.211,2005"
Set myDb = createobject("ADODB.CONNECTION")   '创建数据库链接对象
myDb.Open dbStr   '打开数据库
Set myData = createobject("ADODB.RECORDSET") '创建数据库结果集合
myData.open "select  top 5 * from OrderInfo order by OrderId desc",myDb '执行sql
Do
    res = mydata.Fields("orderid").Value    '将我们需要的值赋给res ;
  ' res = myData(0)   orderid为查询得到的值的第一列字段名 此处也可以用 mydata(0) 代替
   myData.MoveNext  '查询结果焦点定于下一行
  print res  '打印结果
 Loop until myData.EOF  '知道结果的最后一行结束
Set myDb = nothing   '释放对象
Set myData = nothing

2012-9-4 16-48-56