[العواد الصغير]

(16-02-16, 01:48 AM)khodor1985 كتب : السلام عليكم أخي العزيز ورحمة الله وبركاته
لقد تم تنفيذ المثال بناء لطلبك

الأكواد :
أستدعاء مكتبة OLEDB:

PHP كود :

Imports System.Data.OleDb 


الإغلان عن المتغيرات التالية :

PHP كود :

Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\MyDB.accdb")
    Dim cmd As OleDbCommand
    Dim da As OleDbDataAdapter
    Dim ds As DataSet
    Dim RecordCount As Integer 


تحميل البيانات من قاعدة البيانات إلى DataGrid :

PHP كود :

Try

            con.Open()

            Dim StrSelect As String = "SELECT * From Person"
            cmd = New OleDbCommand(StrSelect, con)

            da = New OleDbDataAdapter(cmd)
            ds = New DataSet

            ds.Clear()
            RecordCount = da.Fill(ds)

            If RecordCount > 0 Then
                DGVData.DataSource = ds.Tables(0)
                da.UpdateCommand = New OleDbCommandBuilder(da).GetUpdateCommand
            End If


            If con.State = ConnectionState.Open Then con.Close()

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        ActiveCell() 


إنشاء إجراء مستقل للتحكم بفعالية الصف في DataGrid :

PHP كود :

Sub ActiveCell()
        For i = 0 To DGVData.Rows.Count - 1
            With DGVData.Rows(i)
                Dim MyCheck As Boolean = .Cells(4).Value
                If MyCheck = True Then
                    .Cells(0).ReadOnly = True
                    .Cells(1).ReadOnly = True
                    .Cells(2).ReadOnly = True
                    .Cells(3).ReadOnly = True
                    .DefaultCellStyle.BackColor = Color.LightGray

                Else
                    .Cells(0).ReadOnly = False
                    .Cells(1).ReadOnly = False
                    .Cells(2).ReadOnly = False
                    .Cells(3).ReadOnly = False
                    .DefaultCellStyle.BackColor = Nothing
                End If
            End With
        Next

    End Sub 


أاستدعاء الإجراء المستقل إلى الحدث CellValueChanged في DataGrid :

PHP كود :

ActiveCell() 


النتيجة :


المرفق :

أتمنى لك التوفيق

جزاك الله خيرا