vba如何连接db2数据库
2015-07-30 15:56
369 查看
http://jingyan.baidu.com/article/22a299b5185fd29e19376af2.html
dim conn as variant
Dim rs As variant
Set conn = CreateObject("ADODB.Connection")
conn.Open "DSN=ERP;UID=qothpr;PWD=ktron"
Set rs = CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM UTCRCP",conn
While not rs.eof
Print rs("UTCRDS ").Value
rs.movenext
wend
rs.close
Setrs=Nothing '清放连接
dim conn as variant
Dim rs As variant
Set conn = CreateObject("ADODB.Connection")
conn.Open "DSN=ERP;UID=qothpr;PWD=ktron"
Set rs = CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM UTCRCP",conn
While not rs.eof
Print rs("UTCRDS ").Value
rs.movenext
wend
rs.close
Setrs=Nothing '清放连接
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 
相关文章推荐
- MongoDB实战系列之四：mongodb副本集部署
- Oracle ASM 相关的 视图(V$) 和 数据字典（X$）
- mongodb的用户认证
- mysql处理上百万条的数据库如何优化语句来提高处理查询效率
- oracle中的job
- 数据库三表连接查询怎么做
- MySQL 添加列，修改列，删除列总结
- 在RedHat.Enterprise.Linux_v6.3系统中安装Oracle_11gR2教程
- SQLite安装及在Visual studio 2010（VS2010）中的使用
- mongodb命令
- heidisql 可以查看sql
- mysql性能监控指标及分析
- SQL Server 之 GROUP BY、GROUPING SETS、ROLLUP、CUBE
- oracle介质恢复和实例恢复的基本概念
- Redis异常JedisConnectionException:Read timed out
- mongodb sharding key的选择
- mysqldump常用参数
- mysql 命令备忘
- mysql ERROR 1290 (HY000):
- mysql下存储文件问题