把mysql数据库里面的数据导入到Excel表格里面

Dim con,res,strcnn,cmd,sql
set con=CreateObject("adodb.connection")
Set res=CreateObject("adodb.recordset")
Set cmd=CreateObject("adodb.command")
strcnn="Driver={MySQL ODBC 3.51 Driver};server=localhost;database=testlink;user=root;option=3"
con.Open strcnn
Set cmd.ActiveConnection=con
    cmd.CommandType=1
    sql="Select * from users"
    cmd.CommandText=sql
Set res=cmd.Execute()
Dim i
i=1
do while not res.eof
 Dim Values1,values2
                    values1=res("login")
                    values2=res("password")
                    NewSheet.Cells(i+1,1).Value =values1
                   NewSheet.Cells(i+1,2).Value =values2
     

      i=i+1

        res.movenext

Loop
ExcelObj.ActiveWorkbook.Saveas "D:\text.xls"

ExcelObj.Quit

Set ExcelObj = Nothing
Set res = nothing
Set cmd.ActiveConnection = nothing
Set Cmd= nothing

execname="D:\test1.xls"
Set bjexc=createobject("excel.application")
On error resume next
Set bjworkbook=objexc.workbooks.open("d:\test.xls")
If err.number<>0 Then
 msgbox "打开失败"
End If
On error goto  0

objexc.activeworkbook.saveas execname, 1
objworkbook.close true
Set bjworkbook= nothing
Set bjexc= nothing

Option Explicit
Dim arrRange
arrRange = ReadFile("D:\test.xls","test")

Msgbox arrRange(3,1)
Function ReadFile(sFilename,sSheetname)
   Dim oExcel
   Dim oSheet
   Dim oRange
   Dim arrRange
   On error resume next
   set Excel=CreateObject("Excel.Application")
   If err.number<>0 Then
    msgbox "未能初始化Excel"
    Exit Function
   End If
   On Error Goto 0
      On error resume next
 oExcel.Workbooks.Open(sFilename)
   If err.number<>0 Then
    msgbox "打开excel 失败"
      Exit Function
   End If
     On Error Goto 0
 Set Sheet=oExcel.worksheets(sSheetname).usedRange
   Set Range = oSheet.Range("A1:Z1000")
       '把Excel数据转换到数组
       arrRange = oRange.Value
       ' 关闭工作簿
       oExcel.WorkBooks.Item(1).Close
       ' 退出Excel
       oExcel.Quit
       Set Excel = Nothing
    ' 返回包含Excel数据的数组
     ReadFile = arrRange
End Function

Browser("TestLink - Login").Page("TestLink - Login").WebEdit("login").Set "xing"
Browser("TestLink - Login").Page("TestLink - Login").WebEdit("password").SetSecure "4a67f8d1997f3be612a36c446be3"
Browser("TestLink - Login").Page("TestLink - Login").WebButton("Login").Click
Dim res , cmd ,sql,cnn,strcun
set cnn=createobject("adodb.connection")
Set res=createobject("adodb.recordset")
Set cmd=createobject("adodb.command")
strCnn = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=testlink;USER=root;Option=3"
cnn.open strcnn
set  cmd.activeconnection=cnn
cmd.commandtype=1
sql="SELECT * FROM `users` WHERE login = 'xing'"
cmd.commandtext=sql
Set res=cmd.execute()
msgbox res("login")
Set res = nothing
Set cmd.ActiveConnection = nothing
Set Cmd= nothing

Browser("TestLink - Login").Page("TestLink 1.7.4").Frame("titlebar").Link("Logout").Click

 

在测试的时候尽量要做到数据和测试用例的分离，我一般把数据放到Excel中，调用Excel的代码如下：

Datatable.ImportSheet"D:\QTP\test.xls","ceshi","Global"

Dim i, rowcount
rowcount=DataTable.GetRowCount
msgbox rowcount
For i=0 to rowcount-1

 DataTable.SetCurrentRow(i+1)
    msgbox  DataTable.GetSheet("Global").GetParameter("name").Value
 
 DataTable.SetNextRow
Next

一个卸载QTP的小工具

SystemUtil.Run "flight4a.exe","","D:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app","open"

Browser1="IE"
StartUrl="www.cmfu.com"
If  Browser1="IE" Then
 Set IE=CreateObject("InternetExplorer.Application")
 IE.Visible=true
 IE.Navigate StartUrl
End If

QTP连接mysql的方法如下:

下载一个mysql的驱动,然后进入控制面板设置好数据源!

连接数据库的代码如下:

Browser("TestLink - Login").Page("TestLink - Login").WebEdit("login").Set "xing"
Browser("TestLink - Login").Page("TestLink - Login").WebEdit("password").SetSecure "4a5431e5ab48dff2edee6594b6d6"
Dim Cnn, Rst, strCnn

strCnn = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=testlink;USER=root;Option=3"
Set Cnn = CreateObject("ADODB.connection")
Cnn.Open strCnn
Set Rst = CreateObject("ADODB.Recordset")
Rst.Open "select * from users", Cnn

Rst.MoveFirst
While Rst.EOF<>true
 msgbox Rst.fields("login")
 Rst.MoveNext
Wend
Rst.Close
Cnn.Close

Set Rst = Nothing
Set Cnn = Nothing

 

Browser("TestLink - Login").Page("TestLink - Login").WebButton("Login").Click

今天学习使用step generator来自动生成脚本，遇到了个现象：
对象和操作已经选好，用的Test-object operations，在Arguments栏中name列出现个text带一个红色的星号。星号的注解为: indicates a mandatory argument. step documentation中显示的脚本为:
You must define all mandatory arguments.

点击OK, 弹出窗口: You need to define all mandatory arguments

截取图如下:

通过上网查询解决方法如下:

因为密码要求必须输入数值,所以选择value,输入密码就可以了!

oldsidney的学习QTP文档

QTP8 Tutorial_oldsidney_cn(jianti).rar(641 KB)

1.新建一个新的测脚本

2.选择Insert-->call to existing action

 

备注:选取的动作必须是设置为reusable action

录制时,选择在Tools->options->run 下有设置save step screen capture to results的值为always

今天安装破解了QTP9.2的java插件，上网找了半天，步骤如下：

1.先安装QTP9.2应用程序,然后再安装 JAVA add-in插件

2.然后下载QTPro.exe QTPro.rar(609 KB)拷贝到d:\program files\mercury interactive\quicktest professional\bin下

3.然后运行QTPro.exe文件,会发现JAVA add-in已经可以使用了

安装QTP的步骤：

   1.安装microsoft framework2.0;

   2.将破解文件 mgn-mqt82.rar(235 KB)“mgn-mqt82.exe”复制到“D:\Program Files\Mercury Interactive\QuickTest Professional\bin”这个目录下，双击，破解成功， 我的程序安装到了D盘

   3.重新启动电脑，安装完成QTP

 

从今天开始学习QTP了，以前没有用过这个工具，欢迎大家和我交流