تعديل في هذا الكود

و عليكم السلام

اودك ان تجرب هذا:

cmd.commandtext="select * from ste where name=[eName]"
cmd.parameters.addwithvalues([eName],textbox1.text)

لان القيمة الغير معرفة في استعلام الاكسس تعتبر parameter

ملاحظه:

وضعت اسم ال parameter هو "ename" لان كلمة name محجوزه في ال SQL و قد تسبب لك مشاكل في الكود

اياد دهشان كتب:

و عليكم السلام

اودك ان تجرب هذا:

cmd.commandtext="select * from ste where name=[eName]"
cmd.parameters.addwithvalues([eName],textbox1.text)

لان القيمة الغير معرفة في استعلام الاكسس تعتبر parameter

ملاحظه:

وضعت اسم ال parameter هو "ename" لان كلمة name محجوزه في ال SQL و قد تسبب لك مشاكل في الكود

______________________

السلام عليكم

أخي شكراً جزيلاً لك

أنا قصدي يعني إذا أردت أن أعرض اسم أحمد وكتبت في textbox أحم بدون حرف الدال يظهر لي اسم أحمد أو أبحث عن شيء ويظهر لي قريب عليه أي مشابه له.

Name = Like "*" & [Ename] & "*" z

بدون "z"

اياد دهشان كتب:

Name = Like "*" & [Ename] & "*" z

بدون "z"

______________

السلام عليكم

أخي الكريم

عملت هذا الكود المعدل ولم يجدي نفعاً لم تظهر لي أي كلمة سواء كانت كاملة أو ناقصة

وإليك الكود بالكامل لعل هناك أي تغيير في باقي الكود :

      Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim conn As New OleDbConnection
        conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\search.mdb"
        Try
            conn.Open()
            Dim cmd As New OleDbCommand
            cmd.Connection = conn
            cmd.CommandType = CommandType.Text
            cmd.CommandText = "select author from [index] where bookname= like " * " & [ename] & " * ""
            cmd.Parameters.AddWithValue("ename", txt1.Text)
            Dim dr As OleDbDataReader = cmd.ExecuteReader
            While (dr.Read)
                Label1.Text = dr.Item("author").ToString
            End While
            dr.Close()
        Catch ex As Exception


        Finally
            If conn.State = ConnectionState.Open Then
                conn.Close()
            End If

        End Try
    End Sub

cmd.CommandText = "select author from [index] where bookname= like " * " & [ename] & " * ""

اولاً : لا يمكن تسمية جدول بـ Index

ثانياً : جرب هذا التعديل :

cmd.CommandText = "select author from ste where bookname like '" & txt1.text & & "'"

و نتيجته أسماء المؤلفبن غندما يكون إسم الكتاب يحتوي على جزء او كل النص المراد البحث عنه !!!

:mellow: