摘要：Dim conn,strSql '定义变量set conn = CreateObject("ADODB.Connection") '创建连接conn.ConnectionString="Provider=SQLOLEDB.1;Password=rcdb@2009;Persist Security... 阅读全文

摘要：问题起因： 在安装QTP后，或者禁用IE浏览器里的一些ActiveX控件后，正常录制QTP时，不能产生相应的录制脚本，脚本内容为空。 解决方法：QTP在IE中录制脚本是依靠一个叫BHOManager Class的动态链接库来完成的。当这个控件没有被加载，或者被禁用时，就会出现上述症状。于是，解决方法... 阅读全文

摘要：1、出发城市、到达城市、出发日期用同一类弹窗控件2、导致录制出发城市、到达城市的识别属性都只有html tag，且录制结果都是NOBR，无法区分开来，结果回放不通过。3、在对象识别设置中将page的强制识别属性加了innertext(其它属性应该也可以，只要是唯一的就行)4、更改后录制可见三个控制是... 阅读全文

摘要：制一段脚本代码，在专家视图窗口中编辑录制的脚本代码时，会碰到弹出一个对话窗口，提示为“当前安全设置禁止运行该页中的ActiveX 控件，因此，该页可能无法正常显示”类似的东西，而在人工操作时却没有这样的现象。（如图） 问题主要出在于QTP设置本身，之所以在编辑录制好的脚本时，QTP出现关于Act... 阅读全文

摘要：Set wordApp=getObject(,"word.Application")wordApp.Visible=trueDim odocFor each odoc in wordApp.Documentsmsgbox "Name:"& odoc.Name & ",path:"& odoc.pathNext 阅读全文

摘要：属性名称属性描述abs_xx轴的屏幕像速位置abs_yy轴的屏幕像速位置ClassName对象的名称enabled该对象属性是否可见（true/false)focused光标是否定位于该控件上面Foreground该对象是否处于激活状态HasBorder是否有边框HasCaption是否有titlebarHasHScroll是否有水平滚动条HasSizebox是否定义边框的面积HasSystemMenu在titlebar上是否有menuHasVScroll是否有垂直滚动条height对象的高度HScrollPageSize水平滚动条的面积，如果对象没有水平滚动条，那么GetROProperty 阅读全文

摘要：Dim rs,sqset conn=createobject("adodb.connection")set rs=createobject("adodb.recordset")conn.open="Driver={Microsoft ODBC for Oracle};Server=SID_HOST.DOMAIN.COM;Uid=mssqa;Pwd=password;"sql="select * from CLIENT_TABLE"rs.open sql,conn,3,3do while not rs.eofvalu 阅读全文

摘要：一,我们闲看下QTP中常用的一些函数1)InStr 函数 返回某字符串在另一字符串中第一次出现的位置。 InStr([start, ]string1, string2[, compare])2)Right 函数 从字符串右边返回指定数目的字符。 Right(string, length) 举例：Dim AnyString, MyStr AnyString = "Hello World" ' 定义字符串。 MyStr = Right(AnyString, 1) ' 返回 "d"。 MyStr = Right(AnyS... 阅读全文

摘要：在我们写qtp代码连接mysql数据库的时候有可能会遇到一些问题，如图，下面就是我在工作上遇到的一个问题：当遇到这种问题时，我的问题是因为我在循环，而我的数据集对象又在for循环的外面，所以造成在第二次循环的时候提示上面那个错误。解决方法:既然是循环取值，那么数据集的对象的创建就应该写 在for循环里面，数据集的关闭也是如此Dim Conn,str,sqlSet Conn=CreateObject("ADODB.Connection")Const ConnectionString="DSN=test;DATABASE=bip;PWD=shubo!@#huayin; 阅读全文

摘要：1.将excel数据导入DataTable Set Excelobj=createobject("Excel.Application") excelpath="C:\Users\Administrator\Desktop\4.xls" Excelobj.Workbooks.Open(excelpath) '打开excel的文件 Set newsheet=Excelobj.Sheets.Item(1) '打开excel的sheet colcount=newsheet.UsedRange.Columns.Count 'Add to H 阅读全文

摘要：1.先顶一个随机获取数的函数 Function GetList(i) randomize GetList=RandomNumber(0,i) End Function2.以下就是纯代码了，这里只展示一个下拉框是如何取值的 Dim stcount,stnum,rel,stobj Set stobj=browser("BIP管理平台").Page("BIP管理平台").WebList("read").Object stcount=stobj.options.length '获取下拉框对象的值个数 'msgbox(stcou 阅读全文

摘要：Dialog("Login").WinEdit("Agent Name:").Set "t_cy"Dialog("Login").WinEdit("Agent Name:").Type micTab Dialog("Login").WinEdit("Password:").SetSecure "52a672c06f1014b113d76d3a4b2a40807ac5b872"Dialog("Login").WinEd 阅读全文

摘要：录制的时候，时间控件不能直接参数化，但是我们仍然可以通过存放值在数据池，然后循环取值。把录制出来的代码手动改为我们想要的值录制的代码：Browser("BIP管理系统").Page("BIP管理平台_3").WebEdit("endTime").click();手动改动后的代码：Browser("BIP管理系统").Page("BIP管理平台_3").WebEdit("endTime").Object.value=DataTable("endTime",d 阅读全文

摘要：1.首先安装mysql数据驱动，qtp在windows系统下操作连接mysql，所以下载mysql-connector-odbc-5.1.8-win32.msi 下载地址：http://download.csdn.net/detail/tcybb/66885992.安装mysql驱动，默认安装即可。3.添加默认数控制面板->管理工具->数据源ODBC->系统DNS->添加->在“创建数据源”对话框中选择 “MysqlODBC 5.1 Driver”->完成->进入连接对话框->填写完后点击“test”，看看是否成功，成功后配置完成。注意：64位w 阅读全文