[madinahson]

اخواني الافاضل عندي الكود التالي :

Dim saveinfo As New OleDb.OleDbCommand

        Dim constr As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\a.accdb"

        Dim conn As New OleDbConnection(constr)

        Dim re As OleDbDataReader

        Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, conn)

        saveinfo.Connection = conn

        saveinfo.CommandType = CommandType.Text

        Dim asd As String

(asd = Trim(TextBox5.Text

         & saveinfo.CommandText = ("select * from ba where Name = " & asd

        conn.Open()

        re = saveinfo.ExecuteReader

        re.Read()

        TextBox1.Text = re("Id")

        TextBox2.Text = re("Name")

        TextBox3.Text = re("Age")

        TextBox4.Text = re("Job")

        conn.Close()

عند التنفيذ يأتي الخطأ التالي : لم يتم إعطاء قيمة لمعلمة أو أكثر من المعلمات المطلوبة

مع العلم انني لو قمت بوضع الاستعلام بشكل صريح اي لو كنت ابحث عن الاسم "عماد" في الاستعلام فستكون النتيجه صحيحه ويتم اكمال بيانات الاستعلام بشكل ممتاز

لكن عند جلب القيمه من متغير فتكون النتيجه ايقاف الكود ورسالة الخطأ .

اعتذر عن تداخل الكود بسبب القص واللصق هنا .