[ahmedfa71]

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

PHP كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Dim EnregFechiers As New SaveFileDialog
            EnregFechiers.Filter = "Ahmed Files|*.txt"
            EnregFechiers.Title = "Enregistrer sous"
            EnregFechiers.FilterIndex = 1
            If EnregFechiers.ShowDialog = Windows.Forms.DialogResult.OK Then
                Using sf As New System.IO.FileStream(EnregFechiers.FileName, IO.FileMode.Create)

                End Using
                Dim NFichier As String = System.IO.Path.GetFileName(EnregFechiers.FileName)
                Dim AccesFichier As String = System.IO.Path.GetDirectoryName(EnregFechiers.FileName)
                Dim con As New OleDb.OleDbConnection
                con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\BDclass.accdb"
                con.Open()
                Dim cmd As OleDb.OleDbCommand
                cmd = New OleDb.OleDbCommand("SELECT * INTO [Txt;Database=" & AccesFichier & ";HDR=No].[" & NFichier & "] FROM [class]", con)
                cmd.ExecuteNonQuery()
                con.Close()
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub 


تقبلو كل الإحترام والتقدير

[mansoor]

PHP كود :

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Try

            Using EnregFechiers As New SaveFileDialog With {.Filter = "Ahmed Files|*.txt", .Title = "Enregistrer sous", .FilterIndex = 1}

                If EnregFechiers.ShowDialog = Windows.Forms.DialogResult.OK Then

                    Dim NFichier As String = System.IO.Path.GetFileName(EnregFechiers.FileName)
                    Dim AccesFichier As String = System.IO.Path.GetDirectoryName(EnregFechiers.FileName)

                    Dim con As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\BDclass.accdb;")

                    con.Open()
                    Dim cmd As New OleDb.OleDbCommand("SELECT * INTO [Text;Database=" & AccesFichier & ";HDR=No].[" & NFichier & "] FROM [class]", con)
                    cmd.ExecuteNonQuery()
                    con.Close()

                End If

                MsgBox("نجاح")
            End Using

        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub 


[ahmedfa71]

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

[mansoor]

ممكن تضع المشروع، لأني مجرب الكود عندي بدون مشكلة.

[ahmedfa71]

(09-05-17, 08:57 PM)mansoor كتب : ممكن تضع المشروع، لأني مجرب الكود عندي بدون مشكلة.

شكرا أخي منصور  بارك الله فيك 
ستجد المشروع في المرفقات

[mansoor]

PHP كود :

Imports System.Data.OleDb

Public Class Form1

    Private con As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Dbcalcul.accdb;")


    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        ActualiseDG()

    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try

            Using EnregFechiers As New SaveFileDialog With {.Filter = "Ahmed Files|*.txt", .Title = "Enregistrer sous"}

                If EnregFechiers.ShowDialog = Windows.Forms.DialogResult.OK Then

                    'يحذف الملف القديم (إن وجد) ليتمكن من الحفظ
                    If IO.File.Exists(EnregFechiers.FileName) Then IO.File.Delete(EnregFechiers.FileName)

                    Dim NFichier As String = System.IO.Path.GetFileName(EnregFechiers.FileName)
                    Dim AccesFichier As String = System.IO.Path.GetDirectoryName(EnregFechiers.FileName)


                    Dim cmd As New OleDb.OleDbCommand("SELECT * INTO [Text;Database=" & AccesFichier & ";HDR=No].[" & NFichier & "] FROM [Article]", con)

                    If con.State <> ConnectionState.Open Then con.Open()
                    cmd.ExecuteNonQuery()
                    con.Close()

                    MsgBox("نجاح")

                End If

            End Using

        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub


    Private Sub ActualiseDG()
        Try
            Using Ad As New OleDbDataAdapter("SELECT * from Article", con)

                Dim dt As New DataTable

                Ad.Fill(dt)

                DataGridView.DataSource = dt

                ImportDG()

            End Using
        Catch ex As Exception
            MessageBox.Show(ex.Message, "خطأ3", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub


    Public Sub ImportDG()
        With DataGridView
            .Columns(0).Width = 70
            .Columns(0).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleLeft
            .Columns(1).Width = 66
            .Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleLeft
            .Columns(2).Width = 69
            .Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleLeft
            .Columns(3).Width = 88
            .Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleLeft
        End With
    End Sub

End Class 


[ahmedfa71]

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

[mansoor]

المرفق شغال عندي بدون مشكلة

[ahmedfa71]

عندي لا يشتغل رغم عدة محاولات وإعادة تحميلي للملف المعدل من طرفك الأخ منصور

[mansoor]

اعتقد تحتاج تحديث النظام وبالذات محرك الاكسس او بتبسيط للمسألة تحديث الأكسس
جرب المشروع في جهاز آخر.