ربط Query بال DataReport

عفوا ....

تريد التقرير ان يظهر نتائج البحث فقط ؟

بدون محتويات الـ Data Base الاخرى

انا اضطريت لجعل البيانات الناتجة عن البحث تنقل لـ Table خاص مربوط بالتقارير الناتجة عن البحث فقط .

هل هذا ما تريد ؟؟

اخوك

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

'اولا نفتح الداتا بيس

DataEnvironment1.Connection1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" + App.Path + "ord.mdb"

'الان سنحدد مصدر السجلات وهي من استفسار

Let DataEnvironment1.rsOrd_Manager.Source = "select * from c2 where dr_Code like " & "'%" & Text8.Text & "%'"

DataEnvironment1.rsOrd_Manager.Open

With DataReport1

Set .DataSource = DataEnvironment1

.DataMember = "Ord_Manager"

End With

DataReport1.Show 1

DataEnvironment1.rsOrd_Manager.Close

وبهذا استطعت ان اصنع تقرير مشروط ...... وشكرا

اعتقد ان ردك هو ضالتي ياليت تزودني بالطريقه صارلي زمن وانا ابحث عن حل لها ولم اجد شي . لكن اضف الى عملك اني ارغب ان تظهر البيانات ليس على تقرير فقط انما كيف اربط نتيجة الاستعلام بـDatagrid او MsFlixgrid .وانا لا افضل استخدام DataEnvironment لانها برأيي بطيئه نوعا ما خصوصا مع قواعد البيانات الكبيره ولك جزيل الشكر ..

ان شاء الله احاول اضغط لك المثال .. واحطه على الانترنت ..

(f)

انا في انتظار هذا المثال واليك الايميل alhyaan@hotmail.com

الأحبة كل عام و أنتم بخير

بارك الله فيك الأخ منصور

نرجو وضع الأمثلة في المنتدى .. لأنه أشمل و أعم و أكثر للفائدة

فكم مثال استفدنا منه

جزاكم الله خيرا

(f)

ولا يهمك ابو زيد ..

انا احط المثال على الانترنت واحط اللنك على المنتدى ... تامر امر

:)

طريقة نقل بيانات من جدول الى جدول ثاني وقت التشغيل

Count_Num = Form1.Data1.Recordset.RecordCount
 For dat = 1 To Count_Num
    Form2.Data1.Recordset.AddNew
         With Form2
            .Text1 = Form1.Text1
            .Text2 = Form1.Text2
    End With
   Form2.Data1.Recordset.Update
   Form1.Data1.Recordset.MoveNext
Next

الفكرة عبارة عن قراءة من الجدول الاول ومن ثم كتابة للجدول الجديد .

الحبيب الإبن منصور حفظه الله

خلقك الطيب وردك الجميل .. رأس الفضيلة .. و جهودك التي تزودنا بها زيادة على الخلق الجميل

فشكرا لك ثم شكرا ..أسأل الله أن ينفع بك و يوفقك

محبك أبو زيد