一个QTP中用ADO操作Excel的例子
2008-07-07 23:56
537 查看
' *******************************************************************************
' 目的:ADO操作Excel例子
' 输入参数:
' 返回结果:
' 注意事项:
' 作者:陈能技(http://itestware.com)
' 日期:2008-7-7
' *******************************************************************************
TestADOExcel
Sub TestADOExcel
' 创建ADO
Set conn= createobject("ADODB.Connection")
' 打开链接
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:/CNJ/QNAP自动化测试项目/MyTest/ADOExcel/Data/ADOExcel.xls;Extended Properties=Excel 8.0"
' 查询
sql= "SELECT * FROM [ADOExcel$]"
Set RecSet = conn.Execute(sql)
RecSet.MoveFirst
While Not RecSet.EOF
Msgbox RecSet.Fields("username").Value & " , " & RecSet.Fields("password").Value
RecSet.MoveNext
Wend
' 插入
sql = "insert into [ADOExcel$] Values('aaa','bbb')"
conn.Execute(sql)
' 更新
sql = "update [ADOExcel$] set [password]='hello world' where [username]='allen' "
conn.Execute(sql)
' 关闭链接
conn.close
End Sub
' 目的:ADO操作Excel例子
' 输入参数:
' 返回结果:
' 注意事项:
' 作者:陈能技(http://itestware.com)
' 日期:2008-7-7
' *******************************************************************************
TestADOExcel
Sub TestADOExcel
' 创建ADO
Set conn= createobject("ADODB.Connection")
' 打开链接
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:/CNJ/QNAP自动化测试项目/MyTest/ADOExcel/Data/ADOExcel.xls;Extended Properties=Excel 8.0"
' 查询
sql= "SELECT * FROM [ADOExcel$]"
Set RecSet = conn.Execute(sql)
RecSet.MoveFirst
While Not RecSet.EOF
Msgbox RecSet.Fields("username").Value & " , " & RecSet.Fields("password").Value
RecSet.MoveNext
Wend
' 插入
sql = "insert into [ADOExcel$] Values('aaa','bbb')"
conn.Execute(sql)
' 更新
sql = "update [ADOExcel$] set [password]='hello world' where [username]='allen' "
conn.Execute(sql)
' 关闭链接
conn.close
End Sub
相关文章推荐
- 一个POI操作Excel简单例子
- 一个很简单的操作excel的例子
- ado.net 操作excel 问题记录 -- 操作必须使用一个可更新的查询
- 一个perl操作excel的例子
- Delphi Excel操作,写了个ADODataSet转Excel的函数作为后期学习的例子
- poi操作Excel的一个小例子
- [VB.NET]高分:求一个在vb.net2005中用ado.net读取excel文件并将其导入到Acess的示例!
- PHP操作excel的一个例子
- jxls操作Excel表的导出,一个简单的例子
- PHP操作excel的一个例子
- 自己写的一个使用ADO操作ACCESS数据库的例子
- 一个Excel导入SQL Server的例子
- BGRABitmap图像操作1:最简单的例子,在窗体上画一个长方体
- 用JAVA操作WORD的一个例子
- Python连接DB2操作的一个小例子
- QTP对Excel的操作(EOM) 类封装
- java 操作Excel的方式例子
- 一个python操作XML文件的例子
- 一个Lua脚本操作Redis的简单例子
- QTP数据库操作(ADO)(转载)