تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
نقل بيانات جدول الى ملف نصي
#1
السلام عليكم ورحمة الله وبركاته

اخواني جزاكم الله خير

اريد نقل بيانات جدول من قاعدة بيانات اكسس الى ملف نصي
الرد
تم الشكر بواسطة:
#2
هذه تجربتي ولكن لم يتم نقل البيانات

كود :
Dim TextFile as new System.Io.StreamWriter("C:\MyTestFile.txt")
Dim sSQL as String= String.Empty
sSQL = "SELECT * FROM MYTABLE"
Dim Command as new oleDbCommand (sSQL, Con)
Con.Open()
Din Reader as OleDbDataReader = Command.ExecuteReader()
if Reader.HasRows = True Then
While Reader.Read()
TextFile.WriteLine(Reader.GetString(0))
End While
Con.close
الرد
تم الشكر بواسطة:
#3
قم باستخدام ال stringbuilder او دالة docmd الموجوده فى مكتبة الاكسس
الرد
تم الشكر بواسطة:
#4
كيف استخدمها ممكن توضح بمثال
الرد
تم الشكر بواسطة:
#5
أغلق الملف بعد الكتابة فيه

لاحظ الكود قبل إغلاق الاتصال بقاعدة البيانات

كود :
Dim TextFile as new System.Io.StreamWriter("C:\MyTestFile.txt")
Dim sSQL as String= String.Empty
sSQL = "SELECT * FROM MYTABLE"
Dim Command as new oleDbCommand (sSQL, Con)
Con.Open()
Din Reader as OleDbDataReader = Command.ExecuteReader()
if Reader.HasRows = True Then
While Reader.Read()
TextFile.WriteLine(Reader.GetString(0))
End While

TextFile.Close()

Con.close
End If
(وَقُل رَّبِّ زِدْنِي عِلْمًا)

الرد
تم الشكر بواسطة: aftfm , Easy4ever
#6
الف شكر اخي العزيز kslawy
تم ارسال البيانات الى الملف النصي
لكن توجد مشكلة انه تم ارسال فقط الحقل الاول وعند تعديل الكود في السطر

PHP كود :
TextFile.WriteLine(Reader.GetString(0)) 

الى

PHP كود :
TextFile.WriteLine(Reader.GetString(0) & "@"  Reader.GetString(1)) 

اعطاني الحقل الاول والثاني ولكن
في

PHP كود :
TextFile.WriteLine(Reader.GetString(0) & "@"  Reader.GetString(1) & "@" Reader.GetString(2)) 

ظهرت رسالة خطأ

Specified cast is not valid

توجد ملاحظة

الحقل 2 نوعة تاريخ لانه عند طلب الحقل رقم 3 في الكود

TextFile.WriteLine(Reader.GetString(3))

لم تظهر رسالة الخطأ كيف اتغلب على هذه المشكلة

نعم الحل في GetString
تصبح GetDateAndTime

توجد لدي مشكلة في حالة لو كان حقل التاريخ فارغ
تظهر نفس الرسالة

Specified cast is not valid

كيف اتغلب على هذه المشكلة
الرد
تم الشكر بواسطة:
#7
توجد لدي مشكلة في حالة لو كان حقل التاريخ فارغ
تظهر نفس الرسالة

Specified cast is not valid

كيف اتغلب على هذه المشكلة
الرد
تم الشكر بواسطة:
#8
حسناً بعد البحث عن رسالة الخطأ في قوقل وجدت الحل بموقع مايكروسوفت هــنـــــــا

سبب الرسالة لأن الحقل فارغ لا توجد به بيانات لذلك يجب التأكد أولاً من وجود بيانات بالحقل كالتالي :

كود :
If Reader.HasRows = True Then
            While Reader.Read()
                If Not Reader.IsDBNull(Reader.GetOrdinal("أكتب هنا اسم الحقل بقاعدة البيانات")) Then
                    
                    TextFile.WriteLine(Reader.GetString(Reader.GetOrdinal("sname")))

                End If
            End While
            TextFile.Close()
            Con.Close()
        End If

الجديد هنا الدالة Reader.GetOrdinal والتي نمرر لها اسم الحقل في قاعدة البيانات فتعود لنا برقمه أي أننا لسنا مضطرين لكتابة رقم الحقل ستتكفل هذه الدالة بذلك

تم تجربة المثال ويعمل بدون ظهور رسالة الخطأ
(وَقُل رَّبِّ زِدْنِي عِلْمًا)

الرد
تم الشكر بواسطة: Easy4ever
#9
ماذا تقصد بـ sname في السطر

PHP كود :
TextFile.WriteLine(Reader.GetString(Reader.GetOrdinal("sname"))) 
الرد
تم الشكر بواسطة:
#10
عفواً هذا اسم الحقل بقاعدة البيانات التي كنت أجرب بها الكود نسيت ما حذفته ... ضع بدله اسم الحقل الخاص بك
(وَقُل رَّبِّ زِدْنِي عِلْمًا)

الرد
تم الشكر بواسطة: aftfm


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  الاتصال بقاعدة بيانات mdf موجودة على القرص نور الهدى الهدى 10 313 18-03-19, 08:55 PM
آخر رد: 5000
  قاعدة بيانات بيانات ال sql مع الفجوال 2008 raaddawood 0 152 02-02-19, 11:16 AM
آخر رد: raaddawood
  الاتصال بقاعدة بيانات اكسس وفق نظام 64 بايت raaddawood 0 141 28-01-19, 09:21 PM
آخر رد: raaddawood
  [VB.NET] الاتصال بقاعدة بيانات Access على استضافه YazanOtoum 8 2,392 05-01-19, 06:05 PM
آخر رد: musa al7elo
  سؤال بخصوص تحديث بيانات DataGridView abdullhadi999 0 174 05-01-19, 12:28 AM
آخر رد: abdullhadi999
  سؤال بخصوص تحديث بيانات DataGridView abdullhadi999 0 123 05-01-19, 12:27 AM
آخر رد: abdullhadi999
  مل نسخة احتياطية لقاعدة بيانات sql server djelloul 8 1,303 23-12-18, 01:21 AM
آخر رد: atefkhalf2004
  استيراد نموذج به 145000 صف بيانات nabil.1710 2 350 16-12-18, 09:05 PM
آخر رد: viv
  هل يمكن نقل بيانات DataGridView إلى Dataset . عبد الله 7 2,057 03-09-18, 11:23 PM
آخر رد: انيس القبائلي
  كيفة عمل Attach لقاعدة بيانات SqlServer? abozeyd 5 591 18-07-18, 09:27 PM
آخر رد: abozeyd

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم