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

طباعة سجل واحد في الData Report

مغلق
بدأه Delicate_Shadow في 16 يناير 2005 · 6 رد · 910 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

شباب سار لي أكثر من يومين و أنا أدور على طريقه أطبع بها سجل معين من قاعدة بيانات access عن طريق الـVisual Basic Data Report و ماني قادر !!! طبعاً راح تقولو طيب جرب الـCrystal Report راح أقلكم اني مضطر أسويه بالـVisual Basic Data Report

لقيت طريقه هنا في المنتدى :

select no_st,name_st from TABLE1 where no_st in (select no_st from TABLE3 where no_sub="& chr(34) & xx & chr(34) & " ) ;

بس للأسف ما نفعت و المثال اللي نزلته أصلاً ما اشتغل صح !!!!

يا ريت تقولو لي اذا كان ممكن أسوي هذا الشي ولا لأ و طبعاً محتاج لمثال

و الف شكر مقدماً

#2

DataReport2.Caption = "f1"

Dim strUserName As String

strUserName = cboName.Text

Dim SQL As String

Dim RS As New ADODB.Recordset

SQL = "SELECT * FROM Workers WHERE F1 = '" & strUserName & "' "

Set RS = Cn.Execute(SQL)

DataReport2.Caption = RS("f1")

Set DataReport2.DataSource = RS

DataReport2.Sections("section4").Controls("Label1").Caption = RS("f1")

DataReport2.Sections("section4").Controls("Label2").Caption = RS("f2")

DataReport2.Sections("section4").Controls("Label3").Caption = RS("f3")

DataReport2.Sections("section4").Controls("Label4").Caption = RS("f4")

DataReport2.Sections("section4").Controls("Label5").Caption = RS("f5")

DataReport2.Sections("section4").Controls("Label6").Caption = RS("f6")

DataReport2.Sections("section4").Controls("Label7").Caption = RS("f7")

DataReport2.Sections("section4").Controls("Label8").Caption = RS("f8")

DataReport2.Sections("section4").Controls("Label9").Caption = RS("f9")

DataReport2.Sections("section4").Controls("Label10").Caption = RS("f10")

DataReport2.Sections("section4").Controls("Label11").Caption = RS("f11")

DataReport2.Sections("section4").Controls("Label12").Caption = RS("f12")

DataReport2.Sections("section4").Controls("Label13").Caption = RS("f13")

DataReport2.Sections("section4").Controls("Label14").Caption = RS("f14")

DataReport2.Sections("section4").Controls("Label15").Caption = RS("f15")

DataReport2.Sections("section4").Controls("Label16").Caption = Format(RS("f16"), "yyyy/mm/dd")

DataReport2.Sections("section4").Controls("Label17").Caption = RS("f17")

DataReport2.Sections("section4").Controls("Label18").Caption = RS("f18")

DataReport2.Sections("section4").Controls("Label19").Caption = RS("f19")

DataReport2.Sections("section4").Controls("Label20").Caption = RS("f20")

DataReport2.Sections("section4").Controls("Label21").Caption = RS("f21")

DataReport2.Sections("section4").Controls("Label43").Caption = RS("f22")

DataReport2.Sections("section4").Controls("Label44").Caption = RS("f23")

DataReport2.Show 1

End Sub

ولو ارفقت ملف لارفقنا لك الحل f1 اسماء السجلات اختر منها ما تريد

من مواضيعي :

كود ضغط القاعدة بـwinzip

إجعل برنامجك يعمل على كل جهاز في العالم

النسخة الاحتياطية الاكثر تطورا على مستوى المنتديات

هذا الكود يحتاج لكثير من الذكاء وقليل من العمل

إليكم بعض المعلومات عن المكتبة الشاملة التي يجهلها الكثير وهي مصممة بالvb6

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

برنامجين مع السورس كود قديمين جداً

مثال كامل لــانشاء ملف txt*. النصي

الاداة رائعة جدا بكل المقاييس swbbtnba.ocx

كود ممتاز ؟ ومساعدة في الاضافة / الحذف

احلى حركة وجدتها اخيرا بعد وقت طويل

وأخيرا حصلت المعجزة : تحويل الفلم الى صورة متحركة وكانك تشاهد فلما Camtasia Studio

#3

الف شكر أخوي

بس ممكن توضح أكثر !!!

#4

انظر هذا الرابط وغن شاء الله يفيدك

معلش الصور صغيرة ولكن غن شاء الله تقراه جيدا

Data Report

سبحان الله MCP,MCSA,MCDBA,MCSE,MCTegyptian in Dammam----------------------------------------------------مواضيعي بالمنتدي أنشأ مشروعك بالفيجوال بيسك 6كتاب أنشأ مشروعك بالفيجوال بيسك كامل pdfكل ما يتعلق بدوال التاريخالمستخدمون والصلاحيات في برنامجك

#5

شكراً على مرورك أخوي nasser50001

بس للأسف هذا مو طلبي

أنا طلبي طريقه طباعه سجل معين على الـDataRerport

#6

أي نعم أخي

استخدم الكود التالي في زر الطباعة 

dim sql as string
sql = "select * from table_name where filed_name = condition"
rs.open sql
set report.datasource = rs
report.show

طبعا يجب أن تضع الحقول المطلوبة بالتقرير فمثلا لو أردت طباعة السجل الحالي حيث رقم السجل يساوي الرقم الموجود بمربع النص text1 اذنا غير جملة sql كالتالي 

sql = "select * from table_name where filed_name =" &  text1.text"

هذا ما فهمته والرابط يشرح الداتا ريبورت كاملا وبه نفس الأكواد التي كتبتها

سبحان الله MCP,MCSA,MCDBA,MCSE,MCTegyptian in Dammam----------------------------------------------------مواضيعي بالمنتدي أنشأ مشروعك بالفيجوال بيسك 6كتاب أنشأ مشروعك بالفيجوال بيسك كامل pdfكل ما يتعلق بدوال التاريخالمستخدمون والصلاحيات في برنامجك

#7

الف شكر أخوي

اشتغلت و قدرت أطبع السجل

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

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