Question

VB6.0 access数据库表导入excel的问题

要从数据中的一张表中读取数据,该表中有五列信息 我们只需要其中的三列，然后导出到固定路径下的一个excel文件 各位大神帮帮帮忙 给点示例代码也行哈

Answer 1

Dim cn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim SqlStr As String
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Mode=ReadWrite;Persist Security Info=False;Jet OLEDB:Database Password=123"
SqlStr = "Select * From 会员消费"
rst.CursorLocation = adUseClient
rst.Open SqlStr, cn, adOpenDynamic, adLockOptimistic, adCmdText '打开记录集
Set DataGrid1.DataSource = rst

Dim XlApp As New Excel.Application
XlApp.Visible = True
XlApp.Workbooks.Add
XlApp.Workbooks(1).Worksheets(1).Cells(1, 1).CopyFromRecordset DataGrid1.DataSource