الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

شفرة البحث في قاعدة البيانات

مغلق
بدأه لحظة في 7 مايو 2005 · 1 رد · 562 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

اريد شفرة البحث في قاعدة البيانات

اي ادا كان لدي قاعدة بيانات تحتوي على عمودين

مثلا: مثلا في العمود الاول كلمة كتاب وبالمقابل لها في العمود الثاني كلمة book

و عند كتابة الكلمة كتاب في textbox1 تظهر الكلمة book في textbox2

وضعت في اعلى النمودج

  Dim OBJCURRENCYMANAGER As CurrencyManager
    Dim DV As New DataView()

أجراء

  Private Sub bindingfields()
        RichTextBox2.DataBindings.Clear()
        RichTextBox1.DataBindings.Clear()
        RichTextBox2.DataBindings.Add("text", DV, "ar")
        RichTextBox1.DataBindings.Add("text", DV, "fra")
    End Sub

وتحت زر البحث

  Try
            Dim a As Integer
            If DataSet11.Tables.Count = 0 Then Exit Sub
            DV = New DataView(DataSet11.Tables("a"))
            OBJCURRENCYMANAGER = CType(Me.BindingContext(DV), CurrencyManager)
            DV.Sort = "ar"
            a = DV.Find(RichTextBox2.Text)
            If a = -1 Then
                MsgBox("rccord not found")
            Else
                OBJCURRENCYMANAGER.Position = a
                bindingfields()
            End If
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try

ولكن البرنامج لم يعمل

مع اني ربطه بقاعدة بيانات

نرجوا المساعدة وهل هناك غلط او شئ ناقص

#2

هذي طريقة سهله

ويسوي بحث في قاعدة البيانات

وهذا هو الكود

 Dim con As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Book.mdb")
        Try

            con.Open()
            Dim cmd As New OleDb.OleDbCommand("select BookAuthor from Book where BookName='" & TextBox1.Text & "'", con)
            Dim rd As OleDb.OleDbDataReader = cmd.ExecuteReader
            If rd.Read Then
                TextBox2.Text = rd(0)
                Label3.Text = "Found"
            Else
                Label3.Text = "Not Found"
            End If
            con.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
            con.Close()
        End Try

وهذا المثال مرفق

WindowsApplication37.zip

هذا الموضوع مغلق.

مواضيع مشابهة