加入收藏 - 繁體

输入您的搜索字词 提交搜索表单

• 首页
• 资讯
  • IT业界
• 美食宝典
  • 厨房宝典
  • 厨房百科
  • 饮食礼仪
  • 饮食文化
• 美食菜谱
  • 凉菜菜谱
  • 热菜菜谱
  • 汤煲菜谱
  • 糕点小吃
  • 食疗菜谱
  • 微波炉菜谱
  • 外国菜谱
  • 茶酒饮品
  • 家常菜菜谱
• 饮食健康
  • 饮食常识
  • 瘦身美容
  • 母婴饮食
  • 食疗食补
  • 食物档案
  • 营养手册
• 程序开发
  • ASP教程
  • ASP.NET教程
  • JSP教程
  • PHP教程
  • CGI教程
  • XML教程
  • ColdFusion教程
• 建站
  • 推广宣传
  • 搜索引擎优化SEO
  • 网站视觉
  • 免费资源
  • 业内新闻
  • 其它
  • 建站指南
• 服务器
  • Web服务器架设
  • Ftp服务器架设
  • Mail服务器架设
  • Dns服务器架设
  • 代理服务器架设
• 数据库
  • MSAccess教程
  • Sql Server教程
  • MySQL教程
  • DB2教程
  • ORACLE教程
  • SYBASE教程
• 安全
  • 基础知识
  • 安全防范
  • 防火墙
  • 其他相关
  • 病毒防护
• 办公软件
  • WPS教程
  • Office教程
  • Word教程
  • Excel教程
  • PowerPoint教程
  • Visio教程
  • 输入法教程
• 应用程序
  • C++/VC教程
  • Delphi教程
  • Java教程
  • VB教程
• 电脑常识
  • 操作系统
  • 硬件
  • 软件
  • 互联网
  • QQ技巧
  • 局域网
  • 综合其他
• 网页制作
  • Dreamweaver教程
  • FrontPage教程
  • Golive教程
  • Flash教程
  • JavaScript教程
  • CSS教程
  • web标准
  • HTML教程
  • VBScript教程
  • XHTML教程
  • AJAX教程
  • 网页制作技巧
• 常用软件
  • 网络软件
  • 系统工具
  • 应用软件
  • 联络聊天
  • 图形图像
  • 多媒体类
  • 行业软件
  • 游戏娱乐
  • 编程开发
  • 安全相关
  • 教育教学
• 平面设计
  • Photoshop教程
  • Fireworks教程
  • CorelDRAW教程
  • Freehand教程
  • Illustrator教程
  • LOGO制作教程
  • Banner制作教程
  • 广告设计教程
  • 3Dmax教程

您的位置： 首页 >> 应用程序 >> VB教程 >> 阅读：用DLL实现把数据库的记录导出到EXCEL中(VB)

用DLL实现把数据库的记录导出到EXCEL中(VB)

´新建一个ActiveX DLL工程工程名为DbToExcel
´工程-->引用,引用Microsoft ActiveX Data Objects 2.6 Library
´Microsoft Excel 9.0 Objects Library

Option Explicit

Private Mcnnquery As ADODB.Connection   ´定义ADO连接对象
Private Mrsquery As ADODB.Recordset     ´定义ADO记录对象
Dim ObjExcel As Excel.Application   ´定义Excel对象
Dim ObjWorkBook As Excel.Workbook   ´定义工作薄
Dim ObjSheet As Excel.Worksheet     ´定义工作表
Dim ObjRange As Excel.Range         ´定义用户使用工作表的范围

Private Property Set Connquery(ByVal Conn As ADODB.Connection)
    Set Mcnnquery = Conn
End Property

Private Property Get Connquery() As ADODB.Connection
    Set Connquery = Mcnnquery
End Property

Private Property Set Rsquery(ByVal Rs As ADODB.Recordset)
    Set Mrsquery = Rs
End Property

Private Property Get Rsquery() As ADODB.Recordset
    Set Rsquery = Mrsquery
End Property

´属性方法共有三个参数
´strcnn 连接对象
´strrs  数据集对象
´strpath EXCEL文件
Public Sub DbtoExcel(Strcnn As ADODB.Connection, Strrs As ADODB.Recordset, Strpath As String)
    Dim i As Integer, j As Integer
On Error GoTo Err
    Set Connquery = Strcnn ´设置cnnquery属性
    Set Rsquery = Strrs   ´设置rsquery属性
    Set ObjExcel = New Excel.Application
    Set ObjWorkBook = ObjExcel.Workbooks.Open(Strpath)  ´打开EXCEL文件
    Set ObjSheet = ObjWorkBook.ActiveSheet
    Set ObjRange = ObjSheet.UsedRange ´用户使用过的工作表范围
    For i = 1 To Rsquery.Fields.Count
        ObjRange.Cells(1, i) = Rsquery.Fields(i - 1).Name
    Next i
    For j = 1 To Rsquery.RecordCount
        For i = 0 To Rsquery.Fields.Count - 1
            ObjRange.Cells(j + 1, i + 1) = Rsquery.Fields(i).Value
        Next i
        Rsquery.MoveNext
    Next j
    ObjExcel.Quit
    Set ObjWorkBook = Nothing
    Set ObjRange = Nothing
    Set ObjSheet = Nothing
    Set ObjExcel = Nothing
Err:
    MsgBox Err.Number & " " & Err.Description
    Set ObjWorkBook = Nothing
    Set ObjRange = Nothing
    Set ObjSheet = Nothing
    Set ObjExcel = Nothing
End Sub

´文件-->生成DbToExcel.dll

´新建一个标准EXE工程
´工程-->引用Microsoft ActiveX Data Objects 2.6 Library
浏览，加载刚才生成的DLL文件

Option Explicit
 
Dim Conn As ADODB.Connection
Dim Rs As ADODB.Recordset

Dim DE As New DbtoExcel.Class1  ´定义一个类，DbToExcel.DLL内Class1类的一个实例

Private Sub Command1_Click()
    DE.DbtoExcel Conn, Rs, "c\1.xls"
End Sub

Private Sub Form_Load()
    Set Conn = New ADODB.Connection
    Set Rs = New ADODB.Recordset
    Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\db.mdb;Persist Security Info=False"
    Conn.Open
    Rs.Open "select * from users", Conn, adOpenKeyset, adLockBatchOptimistic
End Sub

• 应用程序(17612)
  • C++/VC教程(3110)
  • Delphi教程(2859)
  • Java教程(10619)
  • VB教程(1024)

• 用VB备份和恢复SQL Server数据库的方法...
• 一个简单的MP3播放器
• 如何使VB的网格控件具有输入功能
• 利用Winsock控件实现局域网通信(二)...
• 数据在窗体中的翻页
• 在Visual Basic中使用WinSock控件...
• 利用API函数实现图像淡入淡出效果
• Creating a Server Component with VB ...
• 源代码推荐：vb的GUID生成算法
• Common Control - The VB Way (1)...
• 在VB中读写注册表函数源码
• 用MSComm控件实现来电显示
• VB图像处理之二次线性插值的应用
• 如何让文字的输入具有OverWrite的功能...
• VB多类图片数据库存取技巧
• 有用的GetForegroundWindow...
• Engine-Collection-Class，一种用来建...
• 用vb制作ActiveX Dll中，怎么让程序连...
• 高进度计时，精确到0.001秒，且不受任...
• 巧用VISUAL BASIC的RND（）函数...

Copyright @ 2007-2008 Allrights Reserved 豫ICP备09042973号

声明：本站文章均从网络收藏，仅供学术研究参考使用，版权为原作者所有。

如对本站收藏有异议者，请来信说明。QQ：51799148；Email:51799148＠qq.com