vb.net 2010/2008 导出到excel,无需引用
来源:互联网 发布:高斯键盘知乎 编辑:程序博客网 时间:2024/04/30 09:04
这是网上的一个在Vb.net中将数据库中的数据导出到Excel的例子,经过了小小的修改,这种方法的好处是不需要另外的引用,代码如下:
ASP/Visual Basic Code复制内容到剪贴板
- Dim Mytable As DataTable = myDataSet("select * from JL").Tables(0) '红色的是自定函数,可见最下面代码
- If Mytable Is Nothing Then
- MessageBox.Show("没有记录不能导出数据", "导出提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
- Exit Sub
- End If
- Dim SaveFileDialog As FileDialog = New SaveFileDialog
- If Mytable.Rows.Count > 0 Then
- Dim MyFileName As String
- Dim FileName As String = ""
- With SaveFileDialog
- .AddExtension = True '如果用户忘记添加扩展名,将自动加上
- .DefaultExt = "xls" '默认扩展名
- .Filter = "Excel文件(*.xls)|*.xls"
- .Title = "文件保存到"
- If .ShowDialog = Windows.Forms.DialogResult.OK Then
- FileName = .FileName
- End If
- End With
- MyFileName = Microsoft.VisualBasic.Right(FileName, 4)
- If MyFileName = "" Then
- Exit Sub
- End If
- If MyFileName = ".xls" Or MyFileName = ".XLS" Then
- Dim fs As FileStream = New FileStream(FileName, FileMode.Create)
- Dim sw As StreamWriter = New StreamWriter(fs, System.Text.Encoding.Default)
- sw.WriteLine(vbTab & FileName & vbTab & Date.Now)
- Dim i, j As Integer
- Dim str As String = ""
- For i = 0 To Mytable.Columns.Count - 1
- str = Mytable.Columns(i).Caption
- sw.Write(str & vbTab)
- Next
- sw.Write(vbCrLf)
- For j = 0 To Mytable.Rows.Count - 1
- For i = 0 To Mytable.Columns.Count - 1
- Dim strRow As String
- strRow = IIf(Mytable.Rows(j).Item(i) Is DBNull.Value, "", Mytable.Rows(j).Item(i))
- sw.Write(strRow & vbTab)
- Next
- sw.Write(vbCrLf)
- Next
- sw.Close()
- fs.Close()
- MessageBox.Show("数据导出成功!", "导出提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
- Else
- Exit Sub
- End If
- Else
- MessageBox.Show("没有记录不能导出数据", "导出提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
- End If
折叠C/C++ Code复制内容到剪贴板
- Public Function myDataSet(ByVal SQLStr As String) As DataSet
- dbName = My.Settings.dbNamer
- Try
- ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Application.StartupPath & "\" & dbName & ".mdb"
- Conn = New OleDbConnection(ConnStr)
- Conn.Open()
- Dim da As OleDbDataAdapter = New OleDbDataAdapter(SQLStr, Conn)
- Dim ds As DataSet = New DataSet
- da.Fill(ds)
- Return ds
- Catch ex As Exception
- MsgBox(ex.Message.ToString, MsgBoxStyle.Information, "提示")
- ' MsgBox("请检查数据库名称是否正确!!", MsgBoxStyle.Information, "找不到数据库")
- 'frmSet.txtDbName.Text = "data2003"
- dbName = My.Settings.dbNamer = "site"
- 'frmMain.toolReReadData.PerformClick()
- ' frmSet.Show()
- Finally
- Conn.Close()
- End Try
- Return Nothing '为去无返回警告
- End Function
- vb.net 2010/2008 导出到excel,无需引用
- vb.net导出到excel
- VB.NET 导出数据到EXCEL中
- vb.net导出数据到Excel代码
- VB.NET 快速导出数据到Excel
- VB.NET 导出数据到EXCEL中
- VB.NET 导出数据到EXCEL中
- vb.net datagridview导出到excel表
- VB/VB.NET/C#导出到Excel的方法
- VB/VB.NET/C#导出到Excel的方法
- VB.net导出Excel
- VB.NET/C#导出到Excel的方法
- VB.NET 数据快速导出到excel文件
- .NET(VB,C#)导出DATAGRIDVIEW到EXCEL中
- VB.NET将数据库的记录导出到excel中
- VB.net 将dataGridView中的数据导出到excel
- VB导出数据到excel
- VB.Net导出Excel原理
- [ VIM ] vim 打造自己的VIM界面!
- poj 3259
- 马戏团人塔问题
- Draggable 可拖动
- 知识交易如何才能做到“安全”“诚信”?
- vb.net 2010/2008 导出到excel,无需引用
- CPU-Z v1.62
- 使用_TrackMouseEvent捕获WM_MOUSELEAVE和WM_MOUSEHOVER消息
- 谁是最好的Coder
- opengl编程指南
- 【JavaWeb】画验证码图片
- Activity 启动模式
- Hibernate事务的高级应用
- 查询redo logfile的使用率 tablespace 的自由空间