摘要: 读取MS SQL Server数据表数据,并将它保存到excel工作表中Sub ReturnSQLrecord() 'sht 为excel工作表对象变量,指向某一工作表 Dim i As Integer, sht As Worksheet '定义数据链接对象 ,保存连接数据库信息 '使用ADODB,须在菜单的Tools->References中添加引用“Microsoft ActiveX Data Objects library 2.x” Dim cn As New ADODB.Connection '定义记录集对象,保存数据表 Dim... 阅读全文
posted @ 2012-08-09 16:27 PPDev 阅读(5275) 评论(0) 推荐(0) 编辑