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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : البحث في اكثر من قاعده (/showthread.php?tid=9303)

الصفحات: 1 2

البحث في اكثر من قاعده - سعود - 19-06-13

اخي الكريم لا استطيع تنفيذ طلبك بنفس الصورة لكن ممكن ابرمج مثال للبحث عن كلمة في اي جدول باي قاعدة .. يعني لدي قاعدتان وكل قاعدة فيها جدولان...
لحظة! لم احمل المثال لكن هل القاعدة اكسس؟؟

البحث في اكثر من قاعده - alaqsa - 19-06-13

نعم اخي الكريم ممكن تفيدي الفكره الى قلت عنها

نعم قاعده بيانات اكسيس

البحث في اكثر من قاعده - Sajad - 19-06-13

السلام عليكم

اخي الكريم افضل شيء هو ان تستخدم المصفوفات. ستقول كيف؟ اقول لك اجعل اسماء قواعد البيانات في مصفوفة مستقلة ثم اعمل loop لكل قاعدة على حدة وداخل الloop قم بالمرور على جداول تلك القاعدة وقم بالبحث

اليك المثال:

PHP كود :
Dim dbase As String() = New String() {"d1", "d2", "d3"}
       

        For i = 0 To 2
            Dim constr As String = "your connectionstring" & dbase(i)
            For j = 0 To myset.Tables.Count
                Dim select1 As String = "select * from " & myset.Tables(j)
            Next
        Next 

كما ترى اخي العزيز قم بعمل مصفوفة تضم جميع اسماء قواعد البيانات ثم اعمل for loop ثم املئ الdataset ثم اعمل for loop بجميع الجداول الموجودة بالdataset ومن ثم قم بعملية البحث

لتمنى ان تفيدك الفكرة

البحث في اكثر من قاعده - alaqsa - 19-06-13

اخي سجاد وجيع الاخوان انا شاكر جدا لكم

يا ريت يا اخ سجاد لو يكون هناك مثال بصراحه انا فهمت الفكره التي تقصدها ولكن لا ادري كيف ابدا فيها فليس لدي الخبره الكافيه في المصفوفات

وشكرا جزيلا لك

البحث في اكثر من قاعده - Sajad - 19-06-13

السلام عليكم

PHP كود :
Dim dbase As String() = New String() {"d1", "d2", "d3"}
        Dim mycon As New OleDbConnection()
        Dim myadapt As New OleDbDataAdapter()
        Dim mytable As New DataTable()
        Dim myset As DataSet


        For i = 0 To 2


            Dim constr As String = "provider=access provider; AttachDbFileName=|DataDirectory|\" & dbase(i)
            mycon = New OleDbConnection(constr)
            myadapt = New OleDbDataAdapter("select * from t1,t2,t3 .....", mycon)
            mycon.Open()
            myset = New DataSet()
            myadapt.Fill(myset)
            mycon.Close()

            For j = 0 To myset.Tables.Count - 1
                For h = 0 To myset.Tables(j).Rows.Count - 1
                    If (myset.Tables(j).Rows(h)("اسم الحقل الذي تريد البحث فيه") = "sajad") Then
                        ''' عرض البيانات
                    End If

                Next
            Next

        Next 

البحث في اكثر من قاعده - سعود - 19-06-13

[#15] * هذه هي الاجابة المطلوبة بارك الله فيك اخانا sajad

البحث في اكثر من قاعده - hoob computer - 20-06-13

بارك الله فيكم جميعاً, فعلا منتدى أكثر من رائع ...