[ahmedbezia]

(16-11-17, 05:27 PM)tryold كتب : تفضل اخي هذا المثال

بارك الله فيك اخي مشكور تمام 
لاكن كيف اربط حقل ايدي با قاعدة البينات لان الحقل لايضهر ناتج البحث 
اي انو غير مربوط با قاعدة البينات ارجو الاجابة بارك الله فيك واسف علي الازعاج

Imports System.Data.OleDb
Imports System.Data
Public Class Form1


    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Dim CnString As String = "provider=microsoft.jet.oledb.4.0;data source=" & Application.StartupPath & "\data.mdb;user id=admin;jet oledb:database password=987"
        Dim Conn As New OleDbConnection(CnString)
        conn = New OleDb.OleDbConnection(str)
    End Sub

    Private Sub DataGridView1_CellEndEdit(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellEndEdit
        Dim itemName As String = DataGridView1.CurrentRow.Cells(0).Value

        If e.ColumnIndex = 0 Then
            'فحص الاتصال بقاعدة البيانات
            If conn.State = ConnectionState.Open Then
                conn.Close()
            End If
            conn.Open()
            Dim cmd As New OleDbCommand()
            cmd.Connection = conn

            cmd.CommandText = "select * from sila where itemName =@itemName"
            cmd.Parameters.AddWithValue("@itemName ", itemName)

            Dim dr As OleDbDataReader = cmd.ExecuteReader
            While dr.Read
                DataGridView1.CurrentRow.Cells(1).Value = dr.Item(1)
                DataGridView1.CurrentRow.Cells(2).Value = dr.Item(2)
                DataGridView1.CurrentRow.Cells(3).Value = dr.Item(3)
                DataGridView1.CurrentRow.Cells(4).Value = dr.Item(4)
                DataGridView1.CurrentRow.Cells(5).Value = dr.Item(5)
            End While

            dr.Close()
            conn.Close()
        End If

      
    End Sub
اين الخطئ هنا