[VB.NET]救命啊!!!数据库导入excel中的问题

VB.NET源码-156个实用实例哦…… <script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
救命啊!!!数据库导入excel中的问题
用vb.net的语言怎么将sql 2000数据库中的一张表导入到excel中呢?本人研究了很久都没研究出来,急死了,如果服务器名是:abc,数据库名:book, 表名:123.将怎么实现呢?
求求大侠们帮帮忙....本人非常感激!!!
__________________________________________________________________________
怎么没人回,谢谢大虾们帮帮忙...
__________________________________________________________________________
方法有很多 如:
1.把DATATABLE里的数据一条记录一条记录写入EXCEL
2.把DATATABLE的数据导出成XML文件
3.把数据绑定到DATAGRID里,然后导出.
__________________________________________________________________________
好象第3是要在WEB里才能用
WIN里没有试过!
__________________________________________________________________________
能给个代码试试吗??谢谢...
__________________________________________________________________________
和SQL server操作类似的:
Dim conn As New Data.OleDb.OleDbConnection( Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:/Documents and Settings/weichen/桌面/新建 Microsoft Excel 工作表.xls;Extended Properties=Excel 8.0; )
conn.Open()
Dim comm As New OleDb.OleDbCommand
comm.CommandText = insert into [sheet1$] values( )
comm.CommandType = CommandType.Text
comm.Connection = conn
comm.ExecuteNonQuery()
更简单的:
dim myText as string=
Dim myc As Integer = ds.Tables(0).Columns.Count - 1
Dim myr As Integer = ds.Tables(0).Rows.Count - 1
Dim i As Integer
Dim j As Integer

For j = 0 To myc
mytext += ds.Tables(0).Columns(j).ColumnName & Chr(9)
Next
mytext += Chr(10)
For i = 0 To myr
For j = 0 To myc
mytext += ds.Tables(0).Rows(i).Item(j).ToString & Chr(9)
Next
mytext += Chr(10)
Next
Dim sw As New StreamWriter( excel文件地址 .Text, True, System.Text.Encoding.GetEncoding( GB2312 ))
sw.Write(mytext)
sw.Close()
sw.Dispose()
__________________________________________________________________________
参与评论 您还未登录,请先 登录 后发表或查看评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
©️2022 CSDN 皮肤主题:大白 设计师:CSDN官方博客 返回首页
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值