[VB.NET] طلب مساعدة في حل مشكلة - نسخة قابلة للطباعة

PHP كود :

 Sub fillDGV()
        Dt.Rows.Clear()


        adapter = New MySqlDataAdapter("select * from projact", con)

        adapter.Fill(Dt)

        Me.Dvcustmar.DataSource = Dt
        Dvcustmar.Columns(0).HeaderText = "التسسلسل"
        Dvcustmar.Columns(1).HeaderText = "اسم المادة"
        Dvcustmar.Columns(2).HeaderText = "سعر الشراء"
        Dvcustmar.Columns(3).HeaderText = "سعر البيع"
        Dvcustmar.Columns(4).HeaderText = "تاريخ الاضافة"
        Dvcustmar.Columns(5).HeaderText = "الكمية المتوفرة"
      

        Dvcustmar.Refresh()


    End Sub

PHP كود :

Dvcustmar.CancelEdit()
            Dvcustmar.Columns.Clear()
            Dvcustmar.DataSource = Nothing

Dvcustmar.Columns.Add("", "التسسلسل")
       Dvcustmar.Columns.Add("", "اسم المادة")
       Dvcustmar.Columns.Add("", "سعر الشراء")
       Dvcustmar.Columns.Add("", "سعر البيع")
       Dvcustmar.Columns.Add("", "تاريخ الاضافة")
       Dvcustmar.Columns.Add("", "الكمية المتوفرة")
 

  
    Dim sqlstring As String = "Select top * FROM projact"
       'فحص الاتصال بقاعدة البيانات
       If SQL.conn.State = ConnectionState.Open Then
           SQL.conn.Close()
       End If
       SQL.conn.Open()
       Dim adt As New SqlDataAdapter(sqlstring, SQL.conn)
       Dim dt As New DataTable
       adt.Fill(dt)
       Dim i As Integer
       For i = 0 To dt.Rows.Count - 1
           Dvcustmar.Rows.Add()
           Dvcustmar.Rows(i).Cells(0).Value = dt.Rows(i).ItemArray(0)
           Dvcustmar.Rows(i).Cells(1).Value = dt.Rows(i).ItemArray(1)
           Dvcustmar.Rows(i).Cells(2).Value = dt.Rows(i).ItemArray(2)
           Dvcustmar.Rows(i).Cells(3).Value = dt.Rows(i).ItemArray(3)
           Dvcustmar.Rows(i).Cells(4).Value = dt.Rows(i).ItemArray(4)
           Dvcustmar.Rows(i).Cells(5).Value = dt.Rows(i).ItemArray(5)
      
       Next
       SQL.conn.Close()

كود :

'فحص الاتصال بقاعدة البيانات

            If con.State = ConnectionState.Open Then

                con.Close()

            End If

            con.Open()

            Dim strSQL As String = "SELECT * FROM projact"



            Dim da As New OleDbDataAdapter(strSQL, con)

            Dim ds As New DataSet

            da.Fill(ds, "projact")

            DataGridView1.DataSource = ds.Tables(0)

            con.Close()