Export Dstaset To Txt File

ممكن تعمل loop علي الصفوف الموجودة في ال dataset و تقرأ منها و تكتب في الملف

افضل لو انك تعمل دالة تاخد dataset و ترجع string

اقصد ال data tables اللي موجوده داخل ال dataset

شكرا لك أخى الفاضل

ممكن تساعدنى بمثال بسيط للLoop

السلام عليكم

مثال صغير

	Private Function GetDataTable(ByVal cmdText As String) As DataTable
		Dim cmd As New SqlCommand
		Dim mAdapter As New SqlDataAdapter
		Dim ds As New DataSet
		cmd.Connection = mConnection
		cmd.CommandText = cmdText
		mAdapter.SelectCommand = cmd
		mAdapter.Fill(ds)
		Return ds.Tables(0)
	End Function

وكود انشاء الملف يكون بالشكل التالى 

		Dim FilePath As String = Server.MapPath("~\FolderName\TextFileName.txt")
		Dim sw As StreamWriter
		sw = File.CreateText(FilePath)
		Dim dt As DataTable = GetDataTable("SELECT * FROM Employees")
		For Each dr As DataRow In dt.Rows
			sw.WriteLine(dr(0))
		Next
		sw.Flush()
		sw.Close()
		sw.Dispose()
		sw = Nothing

بالتوفيق ان شاء الله