救命啊!!!数据库导入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() __________________________________________________________________________ 原文链接：https://www.f2er.com/vb/263531.html