الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

نقل بيانات جدول من قاعدة بيانات اكسس الى ملف نصي

بدأه aftfm في 3 مايو 2014 · 5 رد · 387 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

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

   Dim TextFile As New System.IO.StreamWriter("c:\MyTestFile.txt")
        Dim sSQL As String = String.Empty
        sSQL = "SELECT * FROM tbl1 "
        If Con.State = ConnectionState.Open Then Con.Close()
        Con.Open()
        Dim command As New OleDbCommand(sSQL, Con)
        Dim reader As OleDbDataReader = command.ExecuteReader()
        If reader.HasRows = True Then
            While reader.Read()
                TextFile.WriteLine(reader.GetString(0) & "@" & reader.GetString(1) & "@" & reader.GetDateTime(2) & "@" & reader.GetString(3) & "@" & reader.GetString(4) & "@" _
                                        & reader.GetString(5) & "@" & reader.GetString(6) & "@" & reader.GetString(7) & "@" & reader.GetString(8) & "@" & reader.GetString(9) & "@")
            End While
            TextFile.Close()
        End If
#2

جرب حط السطر هذا في اعلا الكود

On Error Resume Next
#3

السلام عليكم أخي العزيز 

تفضل هذا الكود فإنه سوف يحل المشكلة 

("Dim constr As String = ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Administrator\Desktop\Exp.accdb
    (Dim con As New OleDbConnection(constr
   " Dim accdbpath As String = "D:\Test.txt
    "Dim sqlstr As String = "Select * from Sales
Try
            constr = String.Format(constr, accdbpath)

            con = New OleDbConnection(constr)

            con.Open()


         Dim cmd As New OleDbCommand(sqlstr, con)
            
            Dim dr As OleDbDataReader = cmd.ExecuteReader

            Dim file As String = "D:\Test.txt"

            Dim objwriter As New System.IO.StreamWriter(file)

            While dr.Read
14:
                objwriter.Write(dr.Item(0) & " @ " & dr.Item(1) & " @ " & dr.Item(2) & " @ " & dr.Item(3) & " @ " & dr.Itm
                

                objwriter.WriteLine() 'Write a new line after writing all the data in one line.

           

               

            End While



           () objwriter.Close

          (" MsgBox("data saved



        Catch ex As Exception

          (  MsgBox(ex.Message

        End Try
#4

الف شكر هو فعلاً كتب ونقل البيانات من جدول قاعدة البيانات الي الملف النصي ولكن هناك حقلين لم يتم نقلهم

بسبب أن هذه الحقلين ليس بهم بيانات 

وهنا تكمن المشكلة

#5

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

Khodor1985

 

مشي الحال والحمد لله

#6

اخواني الأعزاء 

 

 

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

 

المشكلة أن لدي في الجدول عدد 3 مفتاح اساسي على اساسها يبنى التشابه للسجل

اريد عند وجود التشابه يتم ارسال السجل كـ Overwrite

يعني في حالة أن الحقول الثلاثه التي بها مفتاح اساسي متشابهه لا اريده ان يرفض الحفظ يعمل تبديل للسجل

 Try
            Application.DoEvents()
            Dim Del As New OleDb.OleDbCommand
            Del.Connection = Con
            Del.CommandType = CommandType.Text
            Del.CommandText = "INSERT INTO Msg_InformationB SELECT * FROM Msg_Information"
            If Con.State = ConnectionState.Open Then Con.Close()
            Con.Open()
            Del.ExecuteNonQuery()
            Con.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

تم تعديل هذه المشاركة بواسطة aftfm في 4 مايو 2014 في 16:41

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…