过度思考者都是啥样人:vb sql datagrid 数据导出到excel

来源：百度文库编辑：中财网时间：2024/04/24 05:20:34

你新建一数据工程，在其窗体中添加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

trs数据导出SQL vb datagrid不显示数据 vb.net DataGrid 数据返回 vb连sql时怎样从datagrid里取出数据并可以与text比较 vb(sql)数据库,与datagrid的连接 SQL SERVER 2000 数据导出将DataGrid数据导出到Excel文档的问题如何用asp导入导出sql数据 SQL导出的数据放在那？ VB的数据保存和导出！ vb中如何将一系列数据显示于DataGrid中？如何实现：“print vb.net 中的datagrid控件中的数据” 紧急！！！VB.NET中如何打印DATAGRID数据 vb.net中的DataGrid控件显示不了数据了 VB.NET中如何将DataGrid数据写入Excel文件? 怎样获得vb的datagrid中单元格的数据 vb 如何实现datagrid中数据的修改和添加 vb中如何让数据在datagrid中显示 VB中datagrid数据可以被调用吗? VB与SQL网络数据的问题 MS SQL 怎样把数据导出成.txt文件急！如何把sql数据导出到EXCELl? 关于格式化 datagrid数据 webfrom datagrid数据添加？