DATASET结果集导入到EXCEL
来源:互联网 发布:java gui图形界面编程 编辑:程序博客网 时间:2024/06/06 07:21
Imports System.Data.OleDb
Public Class Form1
Inherits System.Windows.Forms.Form
Private connstr, selectcmd As String
Private conn As OleDbConnection
Private cmd As OleDbCommand
Private myreader As OleDbDataReader
Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim excelApp As Object
excelApp = CreateObject("Excel.Application")
Dim excelBook As Object
excelBook = excelApp.Workbooks.Add
Dim excelWorksheet As Object
excelWorksheet = excelBook.Worksheets(1)
excelApp.Visible = False
SaveFileDialog1.Title = "将结果保存为"
SaveFileDialog1.Filter = "excel *.xls|*.xls"
If SaveFileDialog1.ShowDialog = DialogResult.OK Then
If SaveFileDialog1.FileName <> "" Then
Dim n As Integer
Dim i As Integer = 2
With excelWorksheet
Do While myreader.Read()
For n = 0 To myreader.FieldCount - 1
.Range(Chr(65 + n) & "1").value = myreader.GetName(n)
.Range(Chr(65 + n) & "1").ColumnWidth = 15
.Range(Chr(65 + n) & i.ToString).value = myreader.Item(n)
Next n
i += 1
Loop
End With
excelBook.saveas(SaveFileDialog1.FileName)
End If
End If
excelApp.quit()
excelApp = Nothing
MsgBox("恭喜")
conn.close()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
connstr = "provider=microsoft.jet.oledb.4.0;data source=d:/dl/dl.mdb"
selectcmd = "select * from users"
conn = New OleDbConnection(connstr)
conn.Open()
cmd = New OleDbCommand(selectcmd, conn)
myreader = cmd.ExecuteReader
End Sub
End Class
- DATASET结果集导入到EXCEL
- DATASET结果集导入到EXCEL
- excel导入到dataset
- DataSet导入到Excel文件
- 字符串检索-递归遍历文件夹-excel读取成dataset-结果导入到excel
- Excel数据导入到DataSet类
- 将excel文件导入到dataset中
- 导入本地Excel到DataSet中
- Excel编程篇之多个excel表导入到Dataset
- Sql Server2005 导入查询结果到excel
- Excel导入DataSet
- DATASET 导入 EXCEL
- 将Excel导入DataSet
- 将EXCEL中的数据导入到DataSet中
- 以xml格式将dataset导入到excel
- C# 从Excel表中导入数据函数到DataSet
- 把Excel文件的数据导入到DataSet数据集中
- C#导入Excel到DataSet(客户端无需安装Office)
- Android 美化文件夹(二)
- JQuery UI - draggable参数中文详细说明
- 了解Amazon google、IBM、microsoft云计算主要平台及特点
- AfxWnd42 qq2006中怎样取得发送消息窗口中的Richedit
- Android 一个URL开启手机浏览器
- DATASET结果集导入到EXCEL
- 修改aspx文件名后出错
- 链表(一)
- JUnit3的使用
- /etc/shadow字段详解
- Android应用程序的自动更新升级(自身升级、通过tomcat)
- presentModalViewController 设置动画效果
- 判断处理器是大端还是小端
- UVa 100 3n+1