[ahmedfa71]

شكرا لك أخي منصور على المجهودات
بارك الله فيك

[ahmedfa71]

(10-05-17, 02:58 PM)mansoor كتب : اعتقد تحتاج تحديث النظام وبالذات محرك الاكسس او بتبسيط للمسألة تحديث الأكسس
جرب المشروع في جهاز آخر.

السلام عليكم ورحمة الله وبركاته 
هذا هو كود تحويل جدول من قاعدة البيانات access إلى ملف نصي txt

كود :

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
       'حفظ قاعدة البيانات إلى نص
       Try
           Dim dtResult As New DataTable
           con.Open()
           'مسار الجدول
           Dim dataAdap As New OleDbDataAdapter("SELECT * FROM Article", con)
           dataAdap.Fill(dtResult)
           con.Close()
           Dim Dilaoge As New SaveFileDialog
           Dilaoge.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
           Dilaoge.ShowDialog()
           Dim NomFechiers As String = Dilaoge.FileName
           Dim StreamW As StreamWriter = File.CreateText(NomFechiers)
           Try
               Dim sb As New StringBuilder
               For Each row As DataRow In dtResult.Rows
                   sb = New StringBuilder
                   For Each col As DataColumn In dtResult.Columns
                       sb.Append(row(col.ColumnName))
                   Next
                   StreamW.WriteLine(sb.ToString())
               Next
           Catch ex As Exception
               Throw ex
           Finally
               If Not StreamW Is Nothing Then StreamW.Close()
               MsgBox("تمت عملية الحفظ بنجاح")
           End Try
       Catch ex As Exception
           MessageBox.Show(ex.Message, "خطأ 04", MessageBoxButtons.OK, MessageBoxIcon.Error)
       End Try
   End Sub

للإفادة .
وشكرا

[silverlight]

يمكنك مراجعة الموضوع التالي لمزيد من التفاصيل
الرابط

[ahmedfa71]

شكرا لك silverlight بارك الله فيك على الرد
الكود في مشاركتي يحفظ الجدول من قاعدة البيانات إلى ملف txt وليس bkp
مع إمكانية تسمية الملف ووضعه في المكان المناسب بمربع الحوار savefiledialog

[العواد الصغير]

عندي اشتغل  تمام  انظر كما قال لك الاخ منصور ربما الاكسس او جرب جهاز اخر

[Asraa]

مرحبا انا عضوه جديده بلغه فجول بيسك 
كيف اكدر اضيف مستند txt عن طريق مربع الحوار

[yaskonofdakla]

السلام علكيم أريد تحويل جدول آكسس إلى ملف نصي