[فراس الغزي]

(03-12-17, 07:19 PM)Rabeea Qbaha كتب :

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() 


اخي  العزيز  شكرا لك  على ردك  لقد قمت  بتعديل  ما يلزم  انا  اعمل  على  MYSQL والكود  وصل  بغير قاعدة  وع  هذا  قمت باجراء  تعديلات  المطلوبة ولكن  نفس  المشكلة لم  يظهر  لي  ما اصبو  اليه  وشكرا لك