DataGridView数据绑定以及导出Excel示例
来源:互联网 发布:追啊app mac版 编辑:程序博客网 时间:2024/05/21 21:36
Private Sub Btn_Exe_Click()Sub Btn_Exe_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Exe.Click
Dim connStr As String = "Data Source=(local); Database=pubs; Integrated Security=SSPI;"
Dim conn As SqlConnection = New SqlConnection(connStr)
Dim comStr As String = "select * from authors"
Dim da As SqlDataAdapter = New SqlDataAdapter(comStr, conn)
Dim ds As DataSet = New DataSet
da.Fill(ds, "table1")
DataGridView1.DataSource = ds.Tables("table1")
DataGridView1.AutoResizeColumns(DataGridViewAutoSizeColumnsMode.AllCells)
Me.Cursor = Cursors.WaitCursor
Dim myExcel As excel.Application = New excel.Application
myExcel.Application.Workbooks.Add(True)
myExcel.Visible = True
Dim i As Integer
For i = 0 To ds.Tables("table1").Columns.Count - 1
myExcel.Cells(1, i + 1) = ds.Tables("table1").Columns(i).Caption
Next
Dim m, n As Integer
For m = 0 To ds.Tables("table1").Rows.Count - 1
For n = 0 To ds.Tables("table1").Columns.Count - 1
myExcel.Cells(m + 2, n + 1) = ds.Tables("table1").Rows(m)(n).ToString
Next
Next
Me.Cursor = Cursors.Default
Dim connStr As String = "Data Source=(local); Database=pubs; Integrated Security=SSPI;"
Dim conn As SqlConnection = New SqlConnection(connStr)
Dim comStr As String = "select * from authors"
Dim da As SqlDataAdapter = New SqlDataAdapter(comStr, conn)
Dim ds As DataSet = New DataSet
da.Fill(ds, "table1")
DataGridView1.DataSource = ds.Tables("table1")
DataGridView1.AutoResizeColumns(DataGridViewAutoSizeColumnsMode.AllCells)
Me.Cursor = Cursors.WaitCursor
Dim myExcel As excel.Application = New excel.Application
myExcel.Application.Workbooks.Add(True)
myExcel.Visible = True
Dim i As Integer
For i = 0 To ds.Tables("table1").Columns.Count - 1
myExcel.Cells(1, i + 1) = ds.Tables("table1").Columns(i).Caption
Next
Dim m, n As Integer
For m = 0 To ds.Tables("table1").Rows.Count - 1
For n = 0 To ds.Tables("table1").Columns.Count - 1
myExcel.Cells(m + 2, n + 1) = ds.Tables("table1").Rows(m)(n).ToString
Next
Next
Me.Cursor = Cursors.Default
myExcel.Application.ActiveWorkbook.SaveAs("E:/test.xls")
MsgBox("Export Successful!")
End Sub
MsgBox("Export Successful!")
End Sub
- DataGridView数据绑定以及导出Excel示例
- Datagridview导出Excel数据
- C# DataGridView导出Excel示例
- DataGridView导出数据到Excel
- datagridview数据导出到excel
- DataGridView数据导出为Excel
- DataGridView 数据导出为EXCEL
- DataGridView数据导出到Excel
- DataGridView 数据 导出 Excel --转
- DataGridView导出数据到Excel
- datagridview 向excel 导出数据
- C#如何连接Oracle数据库,如何把数据绑定到dataGridView,如何把dataGridView数据导出到EXCEL
- 将DataGridView中的数据导出到Excel
- C# DataGridView 数据导出到Excel
- datagridview中的数据导出到excel过程
- C#datagridview导出数据到excel
- DataGridView中数据导出到Excel里
- Datagridview数据导出Excel和Word
- 夜
- 在TXT中进行文件读写
- 祝贺章立民老师两本最新技术力作获市场高度认可!
- Thinking in C++读书笔记--9.3静态成员函数
- QQ提示“键盘加密技术无法启动”问题的解决办法
- DataGridView数据绑定以及导出Excel示例
- 如何快速入门Windows编程
- 用程序控制窗体最大化、最小化、还原
- 分析:有效提升博客人气的十种方法
- Thinking in C++读书笔记--10.2C++中的引用
- C# 设计模式--外观模式(Facade)
- 无题
- 1tie.cn网站分析
- programmer 你们都睡了吗.