[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