-
WshShell 对象(转载)
2009-06-02 22:24:03
-
一位高人的QTP学习笔记(转)
2009-05-11 10:55:42
-
QTP经常用到的函数和程序
2009-05-08 09:58:13
-
QTP连接数据库进行增删改查脚本(转)
2009-05-08 09:55:40
-
QTP参考资料收集(7)
2009-04-01 21:47:25
-
QTP参考资料收集(6)-4
2009-04-01 21:44:37
-
QTP参考资料收集(6)-3
2009-04-01 21:29:42
-
QTP参考资料收集(6)-2
2009-03-31 20:03:08
-
QTP参考资料收集(6)-1
2009-03-31 16:14:48
-
QTP参考资料收集(5)
2009-03-31 16:13:16
-
QTP参考资料收集(4)
2009-03-31 16:11:46
-
QTP参考资料收集(3)
2009-03-31 16:07:12
-
QTP参考资料收集(2)
2009-03-31 16:03:03
-
QTP参考资料收集(1)
2009-03-31 15:46:36
-
(转)QTP将错误信息写到数据库中
2009-03-30 11:45:05
-
(转)在QTP中将数据库的数据导入到EXCEL
2009-03-30 11:44:02
-
(转)QTP访问数据库（推荐）
2009-03-30 10:45:53
一 、先给一个访问数据库的vbs脚本：
使用的时候只需要调用下面标记为红色的三个函数基本就可以了
'@Description获取检索到数据集
'@Documentation<selectCommandText>查询语句
Public Function FillDataTable(ByRef selectCommandText)
Dim connSet conn = getOleDbConnection()
Dim cmd
Set cmd = getOleDbCommandInstance()
cmd.CommandText = selectCommandText
cmd.Connection = conn
Dim adapter
Set adapter = getOleDbDataAdapterInstance()
adapter.SelectCommand = cmd
Dim data
Set data = getDataTableInstance()adapter.Fill(data)
conn.Close
Set FillDataTable = data
End Function'@Description执行一条无返回结果集的Sql语句
'例如Update 、Insert、delete语句
'@Documentation<selectCommandText>查询语句
Public Function ExecuteNoQuery(ByRef selectCommandText)Dim conn
Set conn = getOleDbConnection()
Dim cmd
Set cmd = getOleDbCommandInstance()
cmd.CommandText = selectCommandText
cmd.Connection = conn
'返回影响的行数
Dim resultCount
resultCount =cmd.ExecuteNonQuery()conn.Close
Set ExecuteNoQuery = resultCount
End Function'@Description执行查询，并返回查询所返回的结果集中第一行的第一列。忽略额外的列或行
'例如Select count(*) from student
'@Documentation<selectCommandText>查询语句
Public Function ExecuteScalar(ByRef selectCommandText)Dim conn
Set conn = getOleDbConnection()
Dim cmd
Set cmd = getOleDbCommandInstance()
cmd.CommandText = selectCommandText
cmd.Connection = conn
Dim resualtObject
resualtObject = cmd.ExecuteScalar()conn.Close
ExecuteScalar = resualtObject
End Function'@Description获取OleDbConnection对象
Private Function getOleDbConnection()Set conn = DotNetFactory.CreateInstance("System.Data.OleDb.OleDbConnection")
conn.ConnectionString =Environment.Value("ConnectionString")'我的数据库连接字符串在环境变量里面保存，原型如下：
'Provider=SQLOLEDB;server=127.0.0.1;database=Northwind;uid=sa;pwd=sa
conn.Open()
Set getOleDbConnection = conn
End Function'------------------------------------------------------------------------------------------------------------
'@Description获取OleDbCommand的对象实例
Private Function getOleDbCommandInstance()
Dim cmdSet cmd = DotNetFactory.CreateInstance("System.Data.OleDb.OleDbCommand")
Set getOleDbCommandInstance = cmd
End Function'@Description获取OleDbDataAdapter的对象实例
Private Function getOleDbDataAdapterInstance()Dim adapter
Set adapter = DotNetFactory.CreateInstance("System.Data.OleDb.OleDbDataAdapter")
Set getOleDbDataAdapterInstance = adapter
End Function'@Description获取DataTable的对象实例
Private Function getDataTableInstance()
Dim data
Set data = DotNetFactory.CreateInstance("System.Data.DataTable")
Set getDataTableInstance = data
End Function'@Description获取DataSet的对象实例
Private Function getDataSetInstance()
Dim data
Set data = DotNetFactory.CreateInstance("System.Data.DataSet")
Set getDataTableInstance = data
End Function我写的这个访问数据库的底层代码主要是用于访问SQLServer数据库和Access数据库，很容易扩展写成专门访问SQLServer数据库或者Oracle数据库的代码，如果搞不明白，可以直接发邮件给我！
二 、再给一个如何调用上述代码的实例：
以SQLServer自带的NorthWind数据库为例，直接在QTP的专家视图里面写的代码，如下：
Dim rowcount
'获取Products表的记录数，这个返回值不是一个对象，所以不能这样写：Set rowcount = ExecuteScalar("Select Count(*) From Products")
rowcount = ExecuteScalar("Select Count(*) From Products")
msgbox rowcountDim dtdata
'获取Products中的所有数据，放到dtdata对象中
Set dtdata = FillDataTable("Select * from Products")rowcount = dtdata.Rows.Count
Dim i
For i = 0 to rowcount -1'dtdata.Rows.get_Item(i)("ProductName") 获取第i行字段名称为ProductName的内容，
'也可以这样写dtdata.Rows.get_Item(i)(1) 即可以是字段名也可以字段编号
Reporter.ReportEvent micPass,"第"&i&"条记录","ProductName："&dtdata.Rows.get_Item(Cint(i))("ProductName")&"，QuantityPerUnit："&dtdata.Rows.get_Item(Cint(i))("QuantityPerUnit")
Next下面一个截图是通过QTP提供的Add Watch的功能学习如何使用DataTable中更多的属性和方法！很有用的哦！！
如果发现有什么问题，欢迎指正，共同进步！！！
调试DataTable对象抓图，很有帮助的哦！
-
(转)QTP通过.NET组件访问多种数据库的方法
2009-03-30 10:43:32
在编辑QTP脚本中经常需要访问数据库或者Excel，针对数据库或者文件的访问，大家最常用的应该是使用ADO的一系列对象，例如获取数据库连接对象：Set connObj = CreateObject("ADODB.Connection")；获取记录集获取对象：Set rdsObj = CreateObject("ADODB.Recordset"),获取Excel文件访问对象：Set excelObj = CreateObject("Excel.Application")等等。不知道大家使用过程中有何感受，我感觉最不爽的地方就是读取记录集中的数据，必须要和数据库保持连接状态，并且还要使用循环来读取数据，不能一下子定位到我想要的数据（可能是自己还不太会用吧，抱歉O(∩_∩)O哈哈~
）。曾经用C#写过几年的程序，感觉使用ADO.NET的系列对象来访问数据库、操作数据是相当的方便，所以一想到访问数据库和XML格式的数据就想到ADO.NET的数据库访问对象，DataSet、DataTable对数据的访问还是比较方便。最令人兴奋的是QTP可以通过创建数据库访问对象的方式使用ADO.NET，并且操作的方式和流程与在C#下编程思路没有多大区别。废话少说，言归正传。
首先教给大家一个小知识，如何获取各种数据库连接字符串：
新建一个文本文件，把它的扩展名修改成udl，名字可以任意起，如：db.udl,双击该文件按照操作提示即可获取，赶快试一下吧，很不错的。
OK,开始我们的旅行吧！
首先先附上一个通过.NET从SqlServer数据库读取数据的C#源代码（如果需要访问Access数据库，可以将访问对象修改成System.Data.OleDb下的相关对象，如果需要访问foxpro数据库，可以将访问对象修改成System.Data.Odbc下的相关对象，并且是通用的，Odbc基本可以访问大部分关系型数据库）
public System.Data.DataTable GetAccessData(string selectCmdText)
{string str = "server=.;database=StudentDB;uid=sa;pwd=sa";
System.Data.SqlClient.SqlConnection conn = new SqlConnection();
conn.ConnectionString = str;
conn.Open();
System.Data.SqlClient.SqlCommand cmd =new System.Data.SqlClient.SqlCommand();
cmd.CommandText = selectCmdText;
cmd.Connection = conn;
System.Data.SqlClient.SqlDataAdapter adapter=new System.Data.SqlClient.SqlDataAdapter();
adapter.SelectCommand = cmd;
System.Data.DataTable dtdata = new DataTable();
adapter.Fill(dtdata);
conn.Close();
return dtdata;
}以上代码对应到QTP的vb脚本中如下所示：
Dim conn
Set conn = DotNetFactory.CreateInstance("System.Data.SqlClient.SqlConnection")
conn.ConnectionString = "server=.;database=StudentDB;uid=sa;pwd=sa"
conn.Open()Dim cmd
Set cmd = DotNetFactory.CreateInstance("System.Data.SqlClient.SqlCommand")
cmd.CommandText="select * from student"
cmd.Connection = conn
Dim adapter
Set adapter = DotNetFactory.CreateInstance("System.Data.SqlClient.SqlDataAdapter")adapter.SelectCommand = cmd
Dim dtdataSet dtdata= DotNetFactory.CreateInstance("System.Data.DataTable")
dtdata.TableName="qtptest"
adapter.Fill(dtdata)
conn.Closemsgbox dtdata.Rows.Count '显示获取的数据条数
今天事情真多，先写到这里吧，下次把通过DataSet对象对xml数据的操作给大家贡献出来，相信你会放弃使用通过ADO的对象访问xml数据的，只是个人见解，多提宝贵意见！！
-
(转)QTP中DataTable操作大全
2009-03-30 10:40:36
-
(转)我的QTP的学习方法及总结(3)
2009-03-29 13:49:49
写脚本的时候，当系统发生页面跳转或是当前操作有返回结果需要等待的时候，需要对是否到达预期页面或预期结果是否返现进行验证，否则很容易出现脚本运行失败的情况。
@4i mHVJ|u138711以下是几种常用check方法。51Testing软件测试网2LD8R U r t
1. QTP自带Sync方法
SystemUtil.Run "iexplore.exe", "http://www.google.com"51Testing软件测试网1g,^]3y5[.E:Q/f R xX l
R1^_9T1im(V138711Browser("Google").Page("Google").Sync
m3a%i,n K*p1q*Z9eGq138711与这种方式有关的设置如图。
:]Bn_6f138711
D+\/m%XsI(t9g-C"Od13871151Testing软件测试网%N(Da#y%t/`f;m W!`
2. WaitProperty方法
这个也是支持的一种方法，等待指定对象属性获得指定值或超出指定超时后再继续下一步。原型object.WaitProperty(PropertyName,PropertyValue, [lTimeOut])，帮助文档对各个参数有详细说明。TimeOut如果不指定也会使用上图中的设置。
rZ$Gqsi7}138711If Browser("百度一下，你就知道").Page("百度一下，你就知道").WaitProperty("title","百度一下，你就知道",1000) Then
m"w"O ksg#YF138711'后续操作
End If51Testing软件测试网D} P cw:JtN
3. 利用Dom和RegExp检索
这种方法利用Dom的createTextRange方法获得页面文本，再结合正则表达式进行检索，判断页面是否有预期的结果。
+A"D n-p5O&N138711set a=Browser("百度一下，你就知道").Page("百度一下，你就知道").Object.body.createTextRange()
c=Check (a,"知道")
msgbox c
A8xjdd138711'检索函数
8x"?)Szq?138711'Obj 检索的对象
'checkStr 检索的字符串
Public Function Check(ByRef Obj, ByRef checkStr)
b=Obj.text
Set regEx=new RegExp
regEx.Pattern=checkStr '设置需要查找的字符串
pi3r#@E~a? ~138711regEx.IgnoreCase=true
9W1eT;F S138711regEx.Global=true
Check = regEx.Test(b) '在页面的文本中检索预期值，返回布尔值
&i0@{BZ)msw138711End Function
正则表达式可以参考QTP安装目录help下的VBScript56.CHM文档。
$Q/| x;M3V138711
&_d c;m/x4M H y2P1387114. 利用Dom本身的查找
5kb0QP N JO4F138711Dom的createTextRange也提供了查找的相应方法。如下代码。
set a=Browser("网易电子邮箱-极速3.0正式版").Page("网易电子邮箱-极速3.0正式版").Frame("index").Object.body.createTextRange
2Z/D:GE*R138711msgbox Check (a,"草稿箱")
)~A n/o d R!f138711
G;Rh,K3b w138711Public Function Check(ByRef Obj, ByRef checkStr)
j9QK {ZT0l y{"^138711found = Obj.findText(checkStr)
Obj.select
cO6YX.`-L t138711Check=found
PWz;e{n138711End Function
"Xx7D ]v$i138711以上代码是登陆163邮箱后检索页面是否有“草稿箱”文本并选中文本。51Testing软件测试网BFF}{J0D
:e ^9E*ks Sy5s1387115. 利用readyState判断页面当前所处状态
利用页面的readyState属性判断当前页面所处状态。
a ^f Lv138711SystemUtil.Run "iexplore.exe", "http://www.sina.com.cn/"
tb!|;x$Tf QC138711msgbox Browser("新浪首页").Page("新浪首页").Object.readyState51Testing软件测试网:_K_0_.JKn3}3T
I m i*C#l,k4H4z:Yk.|7x138711上图是打开sina首页，正在打开的状态及QTP输出的readySta值。如果首页已完全打开返回的值应为Complete。
可以通过readyState返回的状态值，判断进行后续操作。readyState的可能值如下（中英）：
There are five possible values for readyState:
0 (Uninitialized): The object has been created but the open() method hasn’t been called.
ic:B9R%rsuD1387111 (Loading): The open() method has been called but the request hasn’t been sent.
2 (Loaded): The request has been sent.
3 (Interactive). A partial response has been received.
4 (Complete): All data has been received and the connection has been closed.
O?j'by138711readyState有五种可能的值：
0 (未初始化)：(xml(标准化越来越近了)HttpRequest)对象已经创建，但还没有调用open()方法。
"~b9c{ P9|0b1387111 (载入)：已经调用open()方法，但尚未发送请求。
&]@?6]&GU+f4]1387112 (载入完成)：请求已经发送完成。
3 (交互)：可以接收到部分响应数据。
4 (完成)：已经接收到了全部数据，并且连接已经关闭。
-fy;Bn#}N'i138711
a*E T [u1aj&j1387116. 利用QTP自带的检查点
F/CTgUWe,gI^ z\138711这种方式就是在脚本中插入Checkpoint进行相应检查，包括文本、图片、对象属性等，在录制过程或是录制完毕选择Insert—Checkpoint按提示操作即可，QTP会自动生成代码。由于QTP可以自动生成代码，在此不再贴出示例。
标题搜索
我的存档
数据统计
- 访问量: 169613
- 日志数: 260
- 书签数: 81
- 建立时间: 2007-08-28
- 更新时间: 2012-06-13
