请教:如何将SQL中的数据导入到excel中呢?
用VB.NET如何实现将SQL 2000中的数据导入到excel中?非常谢谢.... --------------------编程问答-------------------- 通过SQLServer可以轻松实现。
http://community.csdn.net/Expert/topic/5086/5086676.xml?temp=.9907343 --------------------编程问答-------------------- 用SQL SERVER2000自带的工具就可以导出了,可视化,很简单 --------------------编程问答-------------------- 在程序中也可先转动xml在导到excel --------------------编程问答-------------------- 用程序转也很方便.可以轻松实现数据库->EXCEL的输出哩....
先做个EXCEL的表.做的好看些.
再用程序往里放数据.嘿嘿.今天刚刚写了个,单位用的.出报表的. --------------------编程问答-------------------- 非常感谢大家的回复!!还是不太懂,能讲得再清楚点吗,有代码吗?小弟感激不尽.... --------------------编程问答-------------------- 从数据库中读取数据方法不再说,
从dataset中导出到excel中的方法有很多种,其中
和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()
--------------------编程问答-------------------- 如果不是需要特别的格式,可以直接生成CSV文件,也是个不错的方法。
简单 --------------------编程问答-------------------- ..............................
补充:.NET技术 , VB.NET