导航

« sql 常用语句 技巧windows7 下调试 ASP 注意事项  »

vb.net 2010/2008 导出到excel 分享

VB.NET

这是网上的一个在Vb.net中将数据库中的数据导出到Excel的例子,经过了小小的修改,这种方法的好处是不需要另外的引用,代码如下:

       

ASP/Visual Basic Code复制内容到剪贴板
  1. Dim Mytable As DataTable = myDataSet("select * from JL").Tables(0)   '红色的是自定函数,可见最下面代码
  2.   
  3. If Mytable Is Nothing Then  
  4.     MessageBox.Show("没有记录不能导出数据""导出提示", MessageBoxButtons.OK, MessageBoxIcon.Information)  
  5.     Exit Sub  
  6. End If  
  7. Dim SaveFileDialog As FileDialog = New SaveFileDialog  
  8. If Mytable.Rows.Count > 0 Then  
  9.     Dim MyFileName As String  
  10.     Dim FileName As String = ""  
  11.     With SaveFileDialog  
  12.         .AddExtension = True '如果用户忘记添加扩展名,将自动加上  
  13.         .DefaultExt = "xls" '默认扩展名  
  14.         .Filter = "Excel文件(*.xls)|*.xls"  
  15.         .Title = "文件保存到"  
  16.         If .ShowDialog = Windows.Forms.DialogResult.OK Then  
  17.             FileName = .FileName  
  18.         End If  
  19.     End With  
  20.     MyFileName = Microsoft.VisualBasic.Right(FileName, 4)  
  21.     If MyFileName = "" Then  
  22.         Exit Sub  
  23.     End If  
  24.     If MyFileName = ".xls" Or MyFileName = ".XLS" Then  
  25.         Dim fs As FileStream = New FileStream(FileName, FileMode.Create)  
  26.         Dim sw As StreamWriter = New StreamWriter(fs, System.Text.Encoding.Default)  
  27.         sw.WriteLine(vbTab & FileName & vbTab & Date.Now)  
  28.         Dim i, j As Integer  
  29.         Dim str As String = ""  
  30.         For i = 0 To Mytable.Columns.Count - 1  
  31.             str = Mytable.Columns(i).Caption  
  32.             sw.Write(str & vbTab)  
  33.         Next  
  34.         sw.Write(vbCrLf)  
  35.         For j = 0 To Mytable.Rows.Count - 1  
  36.             For i = 0 To Mytable.Columns.Count - 1  
  37.                 Dim strRow As String  
  38.                 strRow = IIf(Mytable.Rows(j).Item(i) Is DBNull.Value, "", Mytable.Rows(j).Item(i))  
  39.                 sw.Write(strRow & vbTab)  
  40.             Next  
  41.             sw.Write(vbCrLf)  
  42.         Next  
  43.         sw.Close()  
  44.         fs.Close()  
  45.         MessageBox.Show("数据导出成功!""导出提示", MessageBoxButtons.OK, MessageBoxIcon.Information)  
  46.     Else  
  47.         Exit Sub  
  48.     End If  
  49. Else  
  50.     MessageBox.Show("没有记录不能导出数据""导出提示", MessageBoxButtons.OK, MessageBoxIcon.Information)  
  51. End If  

折叠C/C++ Code复制内容到剪贴板
  1. Public Function myDataSet(ByVal SQLStr As String) As DataSet  
  2.     dbName = My.Settings.dbNamer  
  3.   
  4.     Try  
  5.         ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Application.StartupPath & "\" & dbName & ".mdb" 
  6.         Conn = New OleDbConnection(ConnStr) 
  7.         Conn.Open() 
  8.         Dim da As OleDbDataAdapter = New OleDbDataAdapter(SQLStr, Conn) 
  9.         Dim ds As DataSet = New DataSet 
  10.         da.Fill(ds) 
  11.         Return ds 
  12.     Catch ex As Exception 
  13.         MsgBox(ex.Message.ToString, MsgBoxStyle.Information, "提示") 
  14.         ' MsgBox("请检查数据库名称是否正确!!", MsgBoxStyle.Information, "找不到数据库") 
  15.         'frmSet.txtDbName.Text = "data2003" 
  16.         dbName = My.Settings.dbNamer = "site"  
  17.         'frmMain.toolReReadData.PerformClick() 
  18.         ' frmSet.Show()  
  19.     Finally  
  20.         Conn.Close()  
  21.     End Try  
  22.     Return Nothing  '为去无返回警告  
  23. End Function  
  • 顶一下

落日故乡推荐


原创文章如转载,请注明:转载自落日故乡

本文链接地址:http://www.spersky.com/post/381.html

发表评论:

◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。

内容搜索


常用链接

最新评论及回复

Powered By Z-Blog

Copyright spersky All Rights Reserved.Theme Moonlight,Calf modified.