QTP从数据库中导出数据

QTP从数据库中导出数据到excel中

Set objExcel = createobject("Excel.Application")xlsUrl = "C:\aa.xls"objExcel.Workbooks.Open(xlsUrl)Set sheetNew = objExcel.Sheets.Item(1)  '把数据库中的内容保存到excel的sheet1表中Set conn = CreateObject("adodb.connection")set res = createobject("adodb.recordset")conn.Open "Provider=SQLOLEDB.1;Password=Password01!;Persist Security Info=True;User ID=sa;Initial Catalog=PCRM2;Data Source=ws-gisgtssts-03\paypaltestserver"strSql = "select * from RoleBase"res.Open strSql,conn,1,1

Dim ii = 1While not res.EOF    roleID = res("RoleId").value    name1 = res("Name").value    IsDeleted = res("IsDeleted").value    sheetNew.cells(i + 1,1).value = roleID  '从excel表中的第2行开始    sheetNew.cells(i + 1,2).value = name1    sheetNew.cells(i + 1,3).value = IsDeleted    i = i + 1    res.MoveNextWend

 objExcel.ActiveWorkbook.Save objExcel.QuitSet objExcel = nothing res.CloseSet res = nothing

QTP从数据库中导出数据到DataTable中

Set conn = CreateObject("adodb.connection")set res = createobject("adodb.recordset")conn.Open "Provider=SQLOLEDB.1;Password=Password01!;Persist Security Info=True;User ID=sa;Initial Catalog=PCRM2;Data Source=ws-gisgtssts-03\paypaltestserver"strSql = "select * from RoleBase"res.Open strSql,conn,1,1

Dim ii = 1While not res.EOF    roleID = res("RoleId").value    name1 = res("Name").value    IsDeleted = res("IsDeleted").value    DataTable.LocalSheet.GetParameter("RoleId").ValueByRow(i) = roleID     DataTable.LocalSheet.GetParameter("Name").ValueByRow(i) = name1    DataTable.LocalSheet.GetParameter("IsDeleted").ValueByRow(i) = IsDeleted    i = i + 1    res.MoveNextWend

 res.CloseSet res = nothing

转载于:https://www.cnblogs.com/emilyzhang68/archive/2011/12/19/2293704.html

QTP从数据库中导出数据相关推荐

从oracle9i/92数据库中导出数据至 oracle 8.1.7 数据库中
根据ORACLE官方文档的说明,一旦数据库创建后,数据库的字符集是不能改变的.因此,提前考虑自己的数据库将选用哪一种字符集是十分重要的.数据库字符集选择的一般规则是将数据库字符集设定为操作系统本地字 ...
从MySql 数据库中导出数据并生成指定格式xml文件
最近网站需要做数据迁移,需要我将网站的数据从mysql数据库中导出,并按照要求生成指定格式的xml文件. xml格式要求: 代码: package com.epsoft.gjjisp;import j ...
NPOI从数据库中导出数据到Excel
首先要添加NPOI.dll程序集 https://yunpan.cn/cMeSTELJSXmJJ 访问密码 8d83 把里面的程序集都添加到引用里下面的代码是从数据库导出到Excel 1 publ ...
sybase数据库导出mysql_使用BCP从Sybase远程数据库中导出数据
1.在本机安装Sybase ASE 15,我装的开发版全套,懒得去仔细看需要哪个了 2.在Sybase安装目录里找到ini\sql.ini,在里面添加数据源例如: [MYDS] master=NLWN ...
oracle 数据导出 excel 自动分多个文件,从oracle数据库中导出大量数据到excel中为什么自动分成了好几个excel文件《excel表格新手入门》...
EXCEL中一个单元格中多行文本如何导入或复制到SQL SERVER 数据库表中? 保留换行符保存进数据表啊,读取出来显示的时候根据需要进行转换就行了,比如要在网页上显示,可以把换行符转换成HTML的 ...
如何将存储在MongoDB数据库中的数据导出到Excel中？
将MongoDB数据库中的数据导出到Excel中,只需以下几个步骤: (1)首先,打开MongoDB安装目录下的bin文件夹,(C:\Program Files (x86)\MongoDB\Serve ...
vb 读取oracle中的表格数据,如何将数据库信息读取导出excel表格中-VB 从SQL数据库中把数据导出到Excel表格中，怎么写？...
VB 从SQL数据库中把数据导出到Excel表格中,怎么写? INSERT INTO OpenDataSource('Microsoft.Jet.OLEDB.4.0', 'Data Source=&q ...
使用POI技术简单的将数据库中的数据读取出为Excel文件
利用POI生成.xlxs 效果图利用反射将实体类的属性读取出来,然后对应数据库表中的字段,循环插入对应的数据数据来源本次测试的数据为数据库查询得出,所以需要MyBatis查询数据库,然后根据反射 ...
如何把MySql数据库中的数据导入到MyCat集群中_---Linux运维工作笔记050
我这里,单个MySql数据表的大小已经超过20GB了,单表8000多万条数据,马上上亿了,这个时候我,搭建了一个MyCat集群解决的,一个写库,11个读库这样来做的. 提高查询效率.但是搭建完以后, ...

QTP从数据库中导出数据

QTP从数据库中导出数据相关推荐

最新文章

热门文章