[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

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