• 全部
  • VBS
  • .NET技术
  • VBA
  • VB网络编程
  • VB多媒体
  • VB数据库
  • VB控件
  • VB COM/DCOM
  • VB基础类
  • VB API
  • 问答

/* 求助 */---/*** 在vb.net中DataSet导出CSV格式 或反之***/

dingy29 2005-03-02 09:49:17
紧急,解决问题,立即结贴!!!各位高手帮帮忙!!!
...全文
235 点赞 收藏 14
写回复
14 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
simon8181 2005-03-30
foreach -> for each
回复
dingy29 2005-03-30
因为前几天一直没人回,一忙,就忘了上了
如果有完全代码,当然要了,
johnny_mcoc(王) 谢谢!
回复
尚和空四 2005-03-07
建议从头开始学习
看人生豪迈
大不了从头在来
回复
johnny_mcoc 2005-03-04
我也正在做这个,不过比较烦,成功是成功了
楼主要否
回复
haoco 2005-03-04
up
回复
机器人 2005-03-03
strRow += dataTable(i)(j) 改为: strRow += dataTable.Rows(i)(j).ToString()
回复
机器人 2005-03-03
'传入DataTable ,文件名,导出csv.
Public Function WriteToCSV(ByVal dataTable As DataTable, ByVal filePath As String, ByVal records As ArrayList) As Boolean
Dim fileStream As System.IO.FileStream
Dim streamReader As System.IO.StreamReader
Dim streamWriter As System.IO.StreamWriter
Dim i, j As Integer
Dim strRow As String

Try
If (System.IO.File.Exists(filePath)) Then
System.IO.File.Delete(filePath)
End If

fileStream = New FileStream(filePath, System.IO.FileMode.CreateNew, System.IO.FileAccess.Write)

If Not dataTable Is Nothing Then
streamWriter = New StreamWriter(fileStream, System.Text.Encoding.Default)

For i = 0 To dataTable.Rows.Count - 1
strRow = ""
For j = 0 To dataTable.Columns.Count - 1
strRow += dataTable(i)(j)
If j < dataTable.Columns.Count - 1 Then
strRow += ","
Else
Next
streamWriter.WriteLine(strRow)
Next
streamWriter.Close()
End If

fileStream.Close()

Return True
Catch ex As Exception

Return False
End Try

End Function
回复
hamadou 2005-03-03
up!
回复
liulxmooo 2005-03-03
up
回复
dingy29 2005-03-03
能不能给我一个VB.net版的
回复
dingy29 2005-03-02
up
回复
dingy29 2005-03-02
你给的我也找到了,不过我怎么不能引入System.Web.UI.WebControls;
foreach是自定义的还是,系统函数,如果是系统函数,在VB中怎么使用
回复
haoztao 2005-03-02
http://dotnet.aspx.cc/
更多资料,自己看
回复
haoztao 2005-03-02
DataSet导出CSV格式(ASP.NET,C#)

作者:Not
MSN:notking@hotmail.com
Email:nots@sohu.com

本文引用下面的 Microsoft .NET 框架类库命名空间:
System.Data;
System.Web.UI.WebControls;

概要
本文解决将DataSet导出到CSV格式问题、将DataGrid中的数据导出到CSV格式问题

导出DataSet所有的列到CSV格式
遍历DataSet的Tables
遍历Table的Rows
遍历Rows的Columns

代码
/// <summary>
/// 将DataSet导出成CSV格式
/// </summary>
/// <param name="ds">DataSet</param>
/// <returns>CSV字符串数据</returns>
public static string ExportCSV(DataSet ds)
{
string data = "";
//data = ds.DataSetName + "
";

foreach(DataTable tb in ds.Tables)
{
data += tb.TableName + "
";

//写出列名
foreach (DataColumn column in tb.Columns)
{
data += column.ColumnName + ",";
}
data += "
";

//写出数据
foreach (DataRow row in tb.Rows)
{
foreach (DataColumn column in tb.Columns)
{
data += row[column].ToString() + ",";
}
data += "
";
}
data += "
";
}

return data;
}

DataSet与DataGrid问题
一般情况下我们用DataGrid显示DataSet时,只显示我们需要的列,并不显示DataSet所有的列,所以导出成CSV格式的时候可能只需要导出DataGrid中的列。

本文解决方法:
将DataSet中需要导出的列做上标记,在导出时只将有标记的列导出。

代码
/// <summary>
/// 标记DataColumn为接受导出的
/// </summary>
/// <param name="column">DataColumn</param>
public static void SetExport(DataColumn column)
{
if (column != null)
{
if (column.ExtendedProperties["IsExport"] == null)
column.ExtendedProperties.Add("IsExport", "true");
else
column.ExtendedProperties["IsExport"] = "true";
}
}

/// <summary>
/// 标记DataTable中的一些列为接受导出的
/// </summary>
/// <param name="tb">DataTable</param>
/// <param name="columns">列</param>
public static void SetExport(DataTable tb,params string[] columns)
{
foreach(string column in columns)
{
SetExport(tb.Columns[column]);
}
}

/// <summary>
/// 标记DataTable中的一些列为接受导出的
/// </summary>
/// <param name="tb">DataTable</param>
/// <param name="columns">DataGrid的列</param>
public static void SetExport(DataTable tb,DataGridColumnCollection columns)
{
foreach(DataGridColumn column in columns)
{
if (column.GetType().Name == "BoundColumn" || column.GetType().Name == "HyperLinkColumn" || column.GetType().Name == "TemplateColumn")
SetExport(tb.Columns[column.HeaderText]);
}
}

/// <summary>
/// 判断DataColumn是否为接受导出的
/// </summary>
/// <param name="column">DataColumn</param>
/// <returns>bool型的结果</returns>
public static bool IsExport(DataColumn column)
{
if (column.ExtendedProperties["IsExport"] != null && column.ExtendedProperties["IsExport"].ToString().Trim().ToLower() == "true")
return true;
else
return false;
}


使用示例:
Export.SetExport(ds.供应商列表视图,dg.Columns);

string data = Export.ExportCSV(ds);

string temp = string.Format("attachment;filename={0}","ExportData.csv");
Response.ClearHeaders();
Response.AppendHeader("Content-disposition", temp);
Response.Write(data);
Response.End();

回复
相关推荐
发帖
VB
创建于2007-09-28

1.6w+

社区成员

VB技术相关讨论,主要为经典vb,即VB6.0
申请成为版主
帖子事件
创建了帖子
2005-03-02 09:49
社区公告
暂无公告