23-12-17, 03:34 PM
PHP كود :
Sub FillGrid_Search()
DataGrid1.CancelEdit()
DataGrid1.Columns.Clear()
DataGrid1.DataSource = Nothing
DataGrid1.Columns.Add("", "رقم المحل")
DataGrid1.Columns.Add("", "المساحة")
DataGrid1.Columns.Add("", "الطابق")
DataGrid1.Columns.Add("", "الموقع")
DataGrid1.Columns.Add("", "")
DataGrid1.Columns(4).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
Dim sqlstring As String= "SELECT * FROM table ORDER BY Date DESC "
'فحص الاتصال بقاعدة البيانات
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
DataGrid1.Rows.Add()
DataGrid1.Rows(i).Cells(1).Value = dt.Rows(i).ItemArray(0)
DataGrid1.Rows(i).Cells(2).Value = dt.Rows(i).ItemArray(1)
DataGrid1.Rows(i).Cells(3).Value = dt.Rows(i).ItemArray(2)
DataGrid1.Rows(i).Cells(4).Value = dt.Rows(i).ItemArray(3)
Next
SQL.conn.Close()
End Sub
