[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 


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