高温高压阀门:vb ado datagrid 数据导出到excel
来源:百度文库 编辑:九乡新闻网 时间:2024/04/29 19:57:33
你新建一数据工程,在其窗体中添加ADODC数据控件和DATAGRID控件。添加COMMAND控件,将按钮控件的属性TABINDEX设置为0
使用以下代码,可将在DATAGRID控件显示的数据导出到EXCEL,将下列代码中的数据库连接语句和表名改为你自己的数据库和表名:
Option Explicit
Dim i, j, k As Integer
Dim strConn As String
Dim pubConn As New adodb.Connection
Dim rsTable As New adodb.Recordset
Dim strSQL As String
Dim xlapp As Variant
Dim xlBook As Variant
Dim xlSHEET As Variant
Private Sub Command1_Click()
Set xlapp = CreateObject("excel.application")
Set xlBook = xlapp.workbooks.Add
Set xlSHEET = xlBook.worksheets(1)
xlapp.Visible = True
On Error Resume Next
If Err.Number <> 0 Then Set xlapp = CreateObject("Excel.Application")
Set xlBook = xlapp.workbooks.Add
Set xlSHEET = xlBook.ActiveSheet
For k = 1 To DataGrid1.Columns.Count
xlSHEET.Cells(1, k) = DataGrid1.Columns(k - 1).Caption
Next k
For i = 1 To Adodc1.Recordset.RecordCount + 1
For j = 0 To DataGrid1.Columns.Count
xlSHEET.Cells(i + 1, j + 1) = Adodc1.Recordset(j) '
Next j
Adodc1.Recordset.MoveNext
Next i
End Sub
Private Sub Form_Load()
strSQL = "select * from mdlk_sj where 批号='D012'"
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\hxrkgl.mdb;Persist Security Info=False"
Adodc1.RecordSource = strSQL
Adodc1.Refresh
End Sub
使用以下代码,可将在DATAGRID控件显示的数据导出到EXCEL,将下列代码中的数据库连接语句和表名改为你自己的数据库和表名:
Option Explicit
Dim i, j, k As Integer
Dim strConn As String
Dim pubConn As New adodb.Connection
Dim rsTable As New adodb.Recordset
Dim strSQL As String
Dim xlapp As Variant
Dim xlBook As Variant
Dim xlSHEET As Variant
Private Sub Command1_Click()
Set xlapp = CreateObject("excel.application")
Set xlBook = xlapp.workbooks.Add
Set xlSHEET = xlBook.worksheets(1)
xlapp.Visible = True
On Error Resume Next
If Err.Number <> 0 Then Set xlapp = CreateObject("Excel.Application")
Set xlBook = xlapp.workbooks.Add
Set xlSHEET = xlBook.ActiveSheet
For k = 1 To DataGrid1.Columns.Count
xlSHEET.Cells(1, k) = DataGrid1.Columns(k - 1).Caption
Next k
For i = 1 To Adodc1.Recordset.RecordCount + 1
For j = 0 To DataGrid1.Columns.Count
xlSHEET.Cells(i + 1, j + 1) = Adodc1.Recordset(j) '
Next j
Adodc1.Recordset.MoveNext
Next i
End Sub
Private Sub Form_Load()
strSQL = "select * from mdlk_sj where 批号='D012'"
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\hxrkgl.mdb;Persist Security Info=False"
Adodc1.RecordSource = strSQL
Adodc1.Refresh
End Sub
vb ado datagrid 数据导出到excel
vb ado datagrid 数据导出到excel (转)
从DataGrid输出数据到Excel
VB Listview导出EXCEL功能模块
用DLL实现把数据库的记录导出到EXCEL中(VB) - 应用程序 - VB教程
Excel VBA ADO 问题 - VB / VBA
用DLL实现把数据库的记录导出到EXCEL中(VB)转
VC++下的m_grid控件实现Accesse数据导出到Excel
巧用EXCEL数据导入导出功能
SqlServer2005导出数据到SqlServer2000步骤!
VB ADO treeview代码(转)
orcl 数据导入导出
解决用友软件导出的EXCEL表的零值数据无法参与计算的问题
POI导出EXCEL
导出EXCEL实例
Listview导出EXCEL功能模块
php 导出excel
php?导出excel类
C# 导出Excel
VB利用ADO控件连接access数据库
大智慧股票池怎么导出股票到TXT或者EXCEL,DOC之类??
导出DBF文件到Excel的Python小程序(页 1)
Listview导出EXCEL功能模块007
淘宝助理 如何导入 数据 导出数据