زر البحث في قاعدة بيانات مضافة لبرنامج..

Up

Up

السلام عليكم

كأنك تريد القول طريق البحث عن أيات الرحمن , والله أعلم

لانه السؤال مغاير بالمرة كونه معرفة وضع الرز وهذا لا أضن أنك تقصدهُ

على كل حال طريقة البحث تعتمد على هئيئة أو تصميم قاعدة البيانات هل هي Single Table أو Multi Tables

على العموم للبحث عن نص أو ما يشابهه في قاعدة أكسس يكون بهذا الشكل

 Dim sql1 As String = _
                        "SELECT * FROM Main " & _
                        "WHERE Status Like'" & critera & "%' "

وضح أكثر وإن شاء الله نجيب بشكل أكثر وضوح .

السلام عليكم

مشكور أخوي على تجاوبك ..

القاعدة ..Multi Tables

وش تحب أوضح لك .. وأنا على إستعداد

بالنسبة للزر هو بحث في عدة جداول .. يكون فيه قائمة منسدلة .. يختار المكان اللي يبحث فيه

أما جدول الأيات .. أو الأجزاء أو النوع (مكية -مدنية) أو برقم الصفحة .. أو ترتيب النزول

و إذا حسيتوا أن فيه فكرة غلط قولو لي عشان أوقفها .. .

أختكم في الله

السلام عليكم

ربما لم أنتبه لهذه العابرة

وتم تصميم وواجهة لكن بالأكسس

فإن كان بالاكسس فلا أضن أن هذا هو المكان المناسب لِطرح السؤال

والسبب الثاني أني لستُ من هواة الاكسس !

لكن إن كان في VB.NET فكما قلت سابقاً يعتمد على هيئة الجداول

وبما أنكِ ذكرتي أنهن مجموعة من الجداول فقد تحتاجين أما إلى Inner Join أو Left Join

لجلب أكثر من قيمة في أكثر من جدول .

فإن كان هذا هو المكان المناسب للسؤال ضعي أسماء الجداول و فكرة عن طريقة البحث التي تريدين

السلام عليكم

هذي صور للواجهات وعلاقات الجداول .. يمكن تفهمون منها القاعدة

وأشكر لك أخوي تجاوبك

Quraan.rar

جربت الطريقة هذي لكن .. :(

Dim SelectStr As String
SelectStr="Select * From " + ComboBox1.SelectedValue + " Where(" + ComboBox2.Text + "=" + yourSearchValue + ")"

السلام عليكم ورحمة الله وبركاته

الخطاء فى جملة sql

المفروض بعد بكلمة From اسم الجدول

وفى الكود بتاعك كاتب بدل اسم الجدول ComboBox1.SelectedValue

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

طيب احنا الان هنعمل Function Search

Function دية هتاخد منك اسم الجدول واسم الحقل والبيان

     Function Search(ByVal Table As String, ByVal field As String, ByVal Txt As String) As DataSet

وبعد كدة نبعت جملة sql

             CMD.CommandText = "select * from " + Table + " where " + field + " like('" + Txt + "%')"

ودة الشكل النهائى

    Function Search(ByVal Table As String, ByVal field As String, ByVal Txt As String) As DataSet
        Try
            CMD.CommandType = CommandType.Text
            CMD.CommandText = "select * from " + Table + " where " + field + " like('" + Txt + "%')"
            Dim ds As DataSet = New DataSet
            Dim da As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter
            da.SelectCommand = CMD
            CMD.Connection = Connection
            ds.Clear()
            da.Fill(ds)
            Return ds
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Function

طيب البحث الان بعرف DataSet

 Dim ds As New DataSet

  ds = Search("tbl_1", "name", Me.TextBox1.Text.Trim)

انا بعت اسم الجدول واسم الحق ومربع النص

WindowsApplication1.zip

لا علم لدى بالموضوع، لكن كنت أريد قاعدة البيانات إذا سمحتى ، وجزاكى الله خيراً

لو حجمها كبير ممكن ترسليها على بريدى

al_ahwany@hotmail.com

وشكراً

waleedhm

مشكور أخوي وجزاك الله ألف خير :rolleyes:

الطريقة نجحت .. لكن البحث يتم بأول حرف من كل آية

يعني لو أبحث عن كلمة .. الناس..سيظهر رسالة تفيد بأنه لايوجد معلومات

لكن لو بحث بكلمة الم ستظهر كل الأيات التي تبدا بـ ألم

أو لو شرح لي أي أحد هذه الجملة

CMD.CommandText = "select * from " + Table + " where " + field + " like('" + Txt + "%')"

بالنسبة لأخي الأهواني من هنا أخذت القاعدة

/index.php?showtopic=27299

وشكرا للجميع

Up

Up

السلام عليكم

اسف على التاخير فى الرد

تم التعديل على المثال

        Function Search1(ByVal Table As String, ByVal field As String, ByVal Txt As String) As DataSet
        Try
            CMD.CommandType = CommandType.Text
            CMD.CommandText = "select * from " + Table + " where " + field + " like( '%" + Txt + "%')"
            Dim ds As DataSet = New DataSet
            Dim da As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter
            da.SelectCommand = CMD
            CMD.Connection = Connection
            ds.Clear()
            da.Fill(ds)
            Return ds
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Function

مرفق مثال

جربى البحث عن كلمة الله او كلمة الرحيم وان شاء الله سوف يعمل

New Folder.zip