[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