QTP连接数据库

'注意：其中DSN=数据源名；UID=用户名；PWD=用户密码

Dim Conn
Set Conn=CreateObject("ADODB.Connection")
Const ConnectionString="DSN=test;DATABASE=aaa;PWD=123456;PORT=3306;SERVER=172.18.4.125;UID=root"
'Const ConnectionString="Driver={Mysql ODBC 5.1 Driver};DATABASE=test;PWD=root;PORT=3306;SERVER=localhost;UID=root"
Conn.Open ConnectionString
If Conn.State<>0Then
Reporter.ReportEvent micPass,"testing","连接数据库成功"
else
Reporter.ReportEvent micFail,"testing","连接数据库失败"
End If

--------------------------------------------

Set wshNetWork = createobject("WScript.Network")
msgbox wshNetWork.ComputerName
Set wshNetWork=nothing

'把 excel 当成数据库使用


sqlConnection="DSN=Excel Files;DBQ=e:1.xlsx;"
 sqlCommand="select * from [Sheet1$]"
Set oExcel=createobject("adodb.connection")
oExcel.Open sqlConnection
Set oRst=oExcel.Execute(sqlCommand)
msgbox oRst.Fields("name")

oRst.MoveNext

msgbox oRst.Fields("name")

oExcel.Close
Set oRst=nothing
Set oExcel=Nothing