تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
سؤال:كيفية طباعة محتوى الداتاجريد
#1
السلام عليكم كيف يمكن طباعة محتويات DataGrid علما انها تتغير باستمرار حسب نتيجة الاستعلام
او بعبارة اخرى كيف اجعل التقرير ياخذ محتوياتة من نفس الاستعلام المستخدم في البحث في قاعدة بيانات اكسيس عن طريق الفيجوال بيسك 6 علما ان الربط من خلال ADO
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم

اولا قم برسم التكست بوكس في قسم الـ Details في تقرير الداتا ريبورت وضع اسم الحقل المناسب في التكستات من خلال خاصية الـ DataField للتكستات ثم في كود الفورم نفس الكود اللي تستخدمه لإسناد نتيجة البحث في الداتا قريد أسنده أيضاً للتقرير بهذا الشكل :
كود :
Set DataReport1.DataSource = RS
الرد }}}}
تم الشكر بواسطة:
#3
بارك الله بك اخ Ahmed_Mansoor وشكرا جزيلا يجري تجربة الكود

(26-11-14, 09:56 PM)Ahmed_Mansoor كتب : السلام عليكم

اولا قم برسم التكست بوكس في قسم الـ Details في تقرير الداتا ريبورت وضع اسم الحقل المناسب في التكستات من خلال خاصية الـ DataField للتكستات ثم في كود الفورم نفس الكود اللي تستخدمه لإسناد نتيجة البحث في الداتا قريد أسنده أيضاً للتقرير بهذا الشكل :

كود :
Set DataReport1.DataSource = RS

شكرا اخي الكريم ولكن يظهر التقرير كل محتويات جدول قاعدة البيانات وليس محتوى الداتاجريد
الرد }}}}
تم الشكر بواسطة:
#4
الاخ Ahmed_Mansoor انا استخدم الكود التالي للبحث داخل قاعدة البيانات
ارجو مراجعتة
كود :
Private Sub Command9_Click()
On Error Resume Next
Set DataGrid1.DataSource = Nothing
If Option1.Value = True Then
Adodc1.RecordSource = "Select * From Tab1 Where [StdName]= '" & Text5 & "'"
End If
If Option2.Value = True Then
Adodc1.RecordSource = "Select * From Tab1 Where  [Class] LIKE '%" & Text5 & "';"
End If
If Option3.Value = True Then
Adodc1.RecordSource = "Select * From Tab1 Where  [Div] LIKE '" & Text5 & "%';"
End If
If Option4.Value = True Then
Adodc1.RecordSource = "Select * From Tab1 Where  [" & Combo1.Text & "] LIKE '%" & Text5 & "%';"
End If

Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1

Set DataReport2.DataSource = RS
DataReport2.Show
End Sub
الرد }}}}
تم الشكر بواسطة:
#5
جرب تغير بدل RS حط Adodc1
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيفية اضافة استعلام وحفظه في قاعدة بيانات أبوسعود 4 88 17-05-17, 02:56 PM
آخر رد: أبوسعود
  سؤال أريد أن أكتب رقم الزبون في التكست بوكس وأعرض فواتير الزبون في التقرير فيصل علي 2 74 08-05-17, 08:57 PM
آخر رد: فيصل علي
  [سؤال] كيفية انشاء حقل من نوع ترقيم تلقائي بالفيجول بيسك 6 أبوسعود 6 168 27-04-17, 09:46 PM
آخر رد: أبوسعود
  سؤال حوال اداة التاريخ والوقت مع التقارير كنونو 2 75 27-04-17, 05:17 PM
آخر رد: كنونو
  سؤال عن القوائم السريعة كنونو 3 144 20-04-17, 11:25 PM
آخر رد: السيد الغالي
  سؤال حول الأداة datacombo المبرمج العتيق 2 103 03-04-17, 01:23 AM
آخر رد: المبرمج العتيق
  سؤال حول الأداة datareport فى برنامج مرفق المبرمج العتيق 4 157 26-03-17, 04:16 PM
آخر رد: Ahmed_Mansoor
  [vb6.0] سؤال فى داتا ريبورت عن كيفية طباعة سجل واحد فقط المبرمج العتيق 5 433 24-03-17, 06:06 PM
آخر رد: المبرمج العتيق
  [vb6.0] السؤال فى كيفية اضافة مجموعة من الادوات على الفورم المبرمج العتيق 2 154 24-03-17, 06:04 PM
آخر رد: المبرمج العتيق
  [ تمّ الحل ] : طباعة القُصاصات الورقيّة عبد العزيز البسكري 4 149 06-03-17, 11:46 PM
آخر رد: عبد العزيز البسكري

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم