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

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

مغلق
بدأه Pretty في 18 مارس 2005 · 11 رد · 2,506 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

أخواني لدي مشروع بالفيجول بيسك ..عبارة عن برنامج بحث في آيات القران ..

فكرته أنه يحتوي على كذا فورم ..فورم لقراءة المصحف

وفورم للبحث

ويمكن نضيف فورم التفسير .. إن شاء الله

..

تم عمل قاعدة البيانات .. سابقا إستنادا لقاعدة بينات ..تم إدراجها هنا لكن لا أذكر أين..

مع التعديل عليها على حسب حاجتنا لها..

وتم تصميم وواجهة لكن بالأكسس لأننا أستخدمناها في مشروع سابق..إذا حابين أضفيف لكم صور قاعدة البينات .. قولو لي

المشكلة في فورم البحث ..

كيف أعمل زر البحث ؟؟ وعندي أسئلة لكن هذا اللي أشغلني أكثر شئ ..

بإنتظار ردودكم

:rolleyes:

#2

Up

Up

#3

السلام عليكم

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

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

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

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

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

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

السلام عليكم

في المثال يتضح المقال

#4

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

القاعدة ..Multi Tables

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

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

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

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

أختكم في الله

#5

السلام عليكم

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

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

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

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

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

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

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

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

السلام عليكم

في المثال يتضح المقال

#6

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

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

Quraan.rar

#7

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

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

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

الخطاء فى جملة 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

تم تعديل هذه المشاركة بواسطة waleedhm في 27 مارس 2005 في 02:52

{وَاتَّقُواْ يَوْمًا تُرْجَعُونَ فِيهِ إِلَى اللّهِ ثُمَّ تُوَفَّى كُلُّ نَفْسٍ مَّا كَسَبَتْ وَهُمْ لاَ يُظْلَمُونَ} (281) سورة البقرة

br17.gif

برنامج الإتصلات الإدارية والارشيف الالكتروني

برنامج الخبير لنقاط البيع المباشرة

#9

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

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

al_ahwany@hotmail.com

وشكراً

تم تعديل هذه المشاركة بواسطة الأهوانى في 27 مارس 2005 في 03:56

#10

waleedhm

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

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

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

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

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

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

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

/index.php?showtopic=27299

وشكرا للجميع

#11

Up

Up

#12

السلام عليكم

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

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

        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

تم تعديل هذه المشاركة بواسطة waleedhm في 22 أبريل 2005 في 06:10

{وَاتَّقُواْ يَوْمًا تُرْجَعُونَ فِيهِ إِلَى اللّهِ ثُمَّ تُوَفَّى كُلُّ نَفْسٍ مَّا كَسَبَتْ وَهُمْ لاَ يُظْلَمُونَ} (281) سورة البقرة

br17.gif

برنامج الإتصلات الإدارية والارشيف الالكتروني

برنامج الخبير لنقاط البيع المباشرة

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

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