منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
نقل بيانات جدول الى ملف نصي - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : نقل بيانات جدول الى ملف نصي (/showthread.php?tid=1712)

الصفحات: 1 2


RE: نقل بيانات جدول الى ملف نصي - aftfm - 27-01-14

هذا الكود بعد التعديل الاخير
لكنه في حالة أن التاريخ غير موجود لا يقوم بنقل السجل بمعنى ان السجل الذي ليس به تاريخ لا يتم ارسالة الى الملف النصي

كود :
Dim TextFile As New System.IO.StreamWriter("C:\MyTestFile.txt")
        Dim sSQL As String = String.Empty
        sSQL = "SELECT * FROM tblVIPs"
        Dim Command As New oleDbCommand(sSQL, Con)
        Con.Open()
        Dim Reader As OleDbDataReader = Command.ExecuteReader()
        If Reader.HasRows = True Then
            While Reader.Read()
                If Not Reader.IsDBNull(Reader.GetOrdinal("V_DateBirth")) Then
                    TextFile.WriteLine(Reader.GetString(1) & "@" & Reader.GetDateTime(Reader.GetOrdinal("V_DateBirth")) & "@" & Reader.GetString(3) & "@")
                End If
            End While
            TextFile.Close()
            Con.Close()
        End If
\=


RE: نقل بيانات جدول الى ملف نصي - Easy4ever - 28-01-14

بعد اذنك اخي kslawy

اخوي aftfm

استبدل كودك بهذا الكود

كود :
Dim TextFile As New System.IO.StreamWriter("C:\MyTestFile.txt")
        Dim sSQL As String = String.Empty
        sSQL = "SELECT * FROM tblVIPs"
        Dim Command As New oleDbCommand(sSQL, Con)
        Con.Open()
        Dim Reader As OleDbDataReader = Command.ExecuteReader()
        If Reader.HasRows = True Then
            While Reader.Read()
                If Not Reader.IsDBNull(Reader.GetOrdinal("V_DateBirth")) Then
                    TextFile.WriteLine(Reader.GetString(1) & "@" & Reader.GetDateTime(Reader.GetOrdinal("V_DateBirth")) & "@" & Reader.GetString(3) & "@")
                Else
                    TextFile.WriteLine(Reader.GetString(1) & "@" & Reader.GetString(3) & "@")
                End If
            End While
            TextFile.Close()
            Con.Close()
        End If



RE: نقل بيانات جدول الى ملف نصي - aftfm - 28-01-14

الف شكر اخي العزيز Easy4ever


RE: نقل بيانات جدول الى ملف نصي - aftfm - 21-02-14

السلام عليكم ورحمة الله وبركاته

واجهت مشكلة في نفس موضوعي هذا وهي
في حالة ما إذا كان تاريخ الجهاز بفورمات d/M/yyyy
ومع العلم ان التاريخ في قاعدة البيانات مكتوب مثلا 01/02/2014
يقوم بنقل البيانات بتنسيق d/M/yyyy

المطلوب كيف انقل البيانات من جدول قاعدة البيانات الى ملف نصي بتنسيق dd/MM/yyyy مهما كان تنسيق تاريخ الجهاز


RE: نقل بيانات جدول الى ملف نصي - aftfm - 22-02-14

تم حل المشكلة والحمد لله Big Grin Big Grin Big Grin