[سعود]

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

[alaqsa]

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

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

[Sajad]

السلام عليكم

اخي الكريم افضل شيء هو ان تستخدم المصفوفات. ستقول كيف؟ اقول لك اجعل اسماء قواعد البيانات في مصفوفة مستقلة ثم اعمل 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]

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

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

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

[Sajad]

السلام عليكم

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 


[سعود]

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

[hoob computer]

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