جمةل اتصالك بقاعدة البيانات
Dim con As New OleDb.OleDbConnection("Provider=Microsoft........")
اجراء في حدث التحرير مرتبط بحدث تحرير خلية في الجريد فيو
Private Sub DataGridView1_EditingControlShowing(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewEditingControlShowingEventArgs) Handles DataGridView1.EditingControlShowing
AddHandler e.Control.TextChanged, AddressOf CellTextChanged
End Sub
الاجاراء الاتي في حدث تغيير النص في الخلية وكما رأيت استخدمناه في الاعلى في الجملة
[size=small][font=Monaco, Consolas, Courier, monospace] e.Control.TextChanged[/font][/size]
Private Sub CellTextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
الاناذا الخلية اللي انت واقف عليها في خلية في اول عمود اذن نفذ الاجراء الاتي
If Me.DataGridView1.CurrentCell.ColumnIndex = 0 Then
الاجراء انك تتصل بالجدول مستخدما الجملة
Using cmd As New OleDb.OleDbCommand("SELECT [name] FROM [table1] WHERE [id] = ?", con)
cmd.Parameters.AddWithValue("@id", Val(CType(sender, DataGridViewTextBoxEditingControl).Text))
اذا الاتصال باقاعدة غير متاح اذا افتح الاتصال بالقاعدة مرر جملة الاستعلام للجدول
If con.State <> ConnectionState.Open Then con.Open()
الاجراء الاخير يقوم بتعبئة الخلية المقابلة للخلية الاولى في العمود الثاني بعد احضار قيمة جملة الاستعلام السابقة
Me.DataGridView1.Item(1, Me.DataGridView1.CurrentCell.RowIndex).Value = cmd.ExecuteScalar
End Using
End If
End Sub
