10-05-17, 05:04 PM
الصفحات : 1 2
14-05-17, 11:21 AM
(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وشكرا
14-05-17, 12:53 PM
يمكنك مراجعة الموضوع التالي لمزيد من التفاصيل
الرابط
الرابط
14-05-17, 02:31 PM
شكرا لك silverlight بارك الله فيك على الرد
الكود في مشاركتي يحفظ الجدول من قاعدة البيانات إلى ملف txt وليس bkp
مع إمكانية تسمية الملف ووضعه في المكان المناسب بمربع الحوار savefiledialog
الكود في مشاركتي يحفظ الجدول من قاعدة البيانات إلى ملف txt وليس bkp
مع إمكانية تسمية الملف ووضعه في المكان المناسب بمربع الحوار savefiledialog
15-05-17, 05:47 PM
عندي اشتغل تمام انظر كما قال لك الاخ منصور ربما الاكسس او جرب جهاز اخر
06-05-20, 03:24 PM
مرحبا انا عضوه جديده بلغه فجول بيسك
كيف اكدر اضيف مستند txt عن طريق مربع الحوار
كيف اكدر اضيف مستند txt عن طريق مربع الحوار
17-02-21, 09:23 PM
السلام علكيم أريد تحويل جدول آكسس إلى ملف نصي
الصفحات : 1 2