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