vb.net 20102008 导出到excel,无需引用

概述这是网上的一个在Vb.net中将数据库中的数据导出到Excel的例子，经过了小小的修改，这种方法的好处是不需要另外的引用，代码如下：         ASP/Visual Basic Code 复制内容到剪贴板 Dim Mytable As DataTable = myDataSet("select * from JL").Tables(0)   '红色的是自定函数，可见最下面代码    If M

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

ASP/Visual Basic Code 复制内容到剪贴板 DimMytableAsDatatable=myDataSet("select*fromJL").tables(0) '红色的是自定函数，可见最下面代码 IfMytableIsnothingThen MessageBox.Show("没有记录不能导出数据","导出提示",MessageBoxbuttons.OK,MessageBoxIcon.information) ExitSub EndIf DimSavefileDialogAsfileDialog=NewSavefileDialog IfMytable.Rows.Count>0Then DimMyfilenameAsString DimfilenameAsString="" WithSavefileDialog .AddExtension=True'如果用户忘记添加扩展名，将自动加上 .DefaultExt="xls"'默认扩展名 .Filter="Excel文件(*.xls)|*.xls" .Title="文件保存到" If.ShowDialog=windows.Forms.DialogResult.OKThen filename=.filename EndIf EndWith Myfilename=Microsoft.VisualBasic.Right(filename,4) IfMyfilename=""Then ExitSub EndIf IfMyfilename=".xls"OrMyfilename=".XLS"Then DimfsAsfileStream=NewfileStream(filename,fileMode.Create) DimswAsStreamWriter=NewStreamWriter(fs,System.Text.EnCoding.Default) sw.Writeline(vbTab&filename&vbTab&Date.Now) Dimi,jAsInteger DimstrAsString="" Fori=0ToMytable.Columns.Count-1 str=Mytable.Columns(i).Caption sw.Write(str&vbTab) Next sw.Write(vbCrLf) Forj=0ToMytable.Rows.Count-1 Fori=0ToMytable.Columns.Count-1 DimstrRowAsString strRow=IIf(Mytable.Rows(j).Item(i)Isdbnull.Value,"",Mytable.Rows(j).Item(i)) sw.Write(strRow&vbTab) Next sw.Write(vbCrLf) Next sw.Close() fs.Close() MessageBox.Show("数据导出成功！",MessageBoxIcon.information) Else ExitSub EndIf Else MessageBox.Show("没有记录不能导出数据",MessageBoxIcon.information) EndIf
折叠 C/C++ Code 复制内容到剪贴板 PublicFunctionmyDataSet(ByValsqlStrAsstring)AsDataSet dbname=My.Settings.dbnamer Try ConnStr="ProvIDer=Microsoft.Jet.olEDB.4.0;DataSource="&Application.StartupPath&"\"&dbname&".mdb" Conn=NewoleDbConnection(ConnStr) Conn.open() DimdaAsoleDbDataAdapter=NewoleDbDataAdapter(sqlStr,Conn) DimdsAsDataSet=NewDataSet da.Fill(ds) Returnds CatchexAsException MsgBox(ex.Message.ToString,MsgBoxStyle.information,"提示") 'MsgBox("请检查数据库名称是否正确！！","找不到数据库") 'frmSet.txtDbname.Text="data2003" dbname=My.Settings.dbnamer="site" 'frmMain.toolReReadData.PerformClick() 'frmSet.Show() Finally Conn.Close() EndTry Returnnothing'为去无返回警告 EndFunction 总结

以上是内存溢出为你收集整理的vb.net 2010/2008 导出到excel,无需引用全部内容，希望文章能够帮你解决vb.net 2010/2008 导出到excel,无需引用所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。