منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : ما طريقة حفظ محتويات الداتا جريد إلى ملف تكست على الهارد
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم
اتمني الخير والصحة لكم جميعا
اريد كود تصدير بيانات الداتا جريد إلى ملف تكست على الهارد
أتمنى أن يكون ذو فائده لك فيما طلبت

http://vb4arb.com/vb/showthread.php?tid=29148
السلام عليكم ورحمة الله وبركاته
تفضل اخي الكريم
هذا الكود لداتا غرايد فيها اربع اعمدة يمكنك الزيادة حسب ماترغب
انشئ ملف نصي في مجلد Debug الخاص بمشروعك بالاسم الذي تريده 
واستبدل الاسم الذي اوردته لك"YourFile.txt" باسم الملف الذي انشأته 
كود :
 'YourFile.txt انشئ ملف نصي في مجلد ال الديبك للمشروع باسم
   Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
       Try
           Dim strTxt As String = ""
           For i As Integer = 0 To DataGridView1.Rows.Count - 1
               strTxt += DataGridView1.Rows(i).Cells(0).Value.ToString() & ";" & DataGridView1.Rows(i).Cells(1).Value.ToString() & ";" & DataGridView1.Rows(i).Cells(2).Value.ToString() & ";" & DataGridView1.Rows(i).Cells(3).Value.ToString() & Environment.NewLine
           Next
           Dim Sw As New StreamWriter("YourFile.txt", True)
           Sw.Write(strTxt)
           Sw.Close()
       Catch ex As Exception

       End Try

   End Sub
شكرا اخواني الكرام
جاري التنفيذ وتجربة الاكواد