تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
هل يمكن استعمال اكتف ريبورت لعرض بيانات فبيها حقل صورة
#1
السلام عليكم
عندي قاعدة بيانات  لمعلومات شخصية الاسم والمواليد والعنوان وصورة الشخص
هل يمكن استعمال ريبورت اكتف لاظهار البيانات ؟  
مع خالص التقديـــــــــــــــــــــــــــــــــــر
الرد }}}
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله وبركاته

اكيد بتقدر.. 
ولكن انا ما جربت من قبل..
اذا عندك مثال ..  ارفعه حتى نجرب فيه 
العمليه هي اكواد ربط اداة عرض الصور بالحقل المناسب بقاعدة البيانات لا اكثر.
قال صلى الله عليه وسلم: 
«كلمتان خفيفتان على اللسان 
ثقيلتان في الميزان،حبيبتان إلى الرحمن: 
سبحان الله وبحمده، سبحان الله العظيم».
الرد }}}
تم الشكر بواسطة:
#3
شكرا لكم على اهتمامكم سارفع المثال في وقت لاحق
الرد }}}
تم الشكر بواسطة:
#4
نعم يوجد وعندي مشروع سأحاول رفعه لك عندما ادخل من الحاسوب
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ
الرد }}}
تم الشكر بواسطة: gonm64 , gonm64
#5
شكرا لك على الاهتمام وانتظر منكم واناشاكر لك
الرد }}}
تم الشكر بواسطة:
#6
خذ هذا الكود عدل فيه حسب اسم قاعدة البيانات والجدول واسم التقرير
كود :
If Trim(TextID.Text) = "" Then
MsgBox "يجب إختيـار الاســم", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "تنبيــه"
TextIDI.SetFocus
Exit Sub: End If

Dim x As String
x = TextID.Text

Unload Report1
Report1.DataControl1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
App.Path & "\Data.Base\Data_Base.mdb;Persist Security Info=False"

If RS.RecordCount <= 0 Then
   MsgBox "عفــواً ... لا يوجد سجل ", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "تنبيــه"
  
   TextID.SetFocus
   Exit Sub: End If

Report1.DataControl1.Source = "Select * From [TBL_Student] Where [ID_Code] = '" & x & "'"

If Not Textpic.Text = "" Then
Report1.Image1.Picture = LoadPicture(Textpic.Text)
Else
Report1.Image1.Picture = LoadPicture()
End If
                        
'Report1.LName.Caption = Form_school.Text3.Text
'Report1.Caption = " ÇÓÊãÜÇÑÉ ÈíÇäÜÇÊ ØÇáÜÜÈ" & " " & Form_documents.CombCategory.Text
'Report1.Caption = " ÇÓÊãÜÇÑÉ ÈíÇäÜÇÊ ÇáØÇáÜÜÈ : " & " " & Form_documents.Textname.Text & "  * ááÕÜÜÜÝ : " & Form_documents.CombClass.Text & "  * ÇáÔÚÈÜÜÜÉ : " & Form_documents.CombCClass.Text & "  * ÕÝÉ ÇáÞíÏ : " & Form_documents.CombCategory.Text
'Report1.LT.Caption = " ÇÓÊãÜÇÑÉ ÈíÇäÜÇÊ ØÇáÜÜÈ" & " " & Form_documents.CombCategory.Text
Report1.Show: Report1.Visible = True: Report1.Show

ولو لم يضبط معك سوف أرفع لك مثال
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ
الرد }}}
تم الشكر بواسطة:
#7
شكرا جزيلا لجنايكم الكريم ورعايتكم واهتمامكم
نظريا واضح الكود واكون شاكرا لكم اذا اكرمتنا بمثال يوضح الفكرة عمليا
........................................................................................................................
مع اني عندي قاعدة بيانات
فيها حقلان
الاول : الاسم
الثاني : الصورة الشخصية له
محفوظة بقاعدة البيانات نفسها وليس في ملف خارجي
تقبل تحياتي وتقديري لكم
الرد }}}
تم الشكر بواسطة:
#8
(11-09-22, 01:24 PM)gonm64 كتب : شكرا جزيلا لجنايكم الكريم ورعايتكم واهتمامكم
نظريا واضح الكود واكون شاكرا لكم اذا اكرمتنا بمثال يوضح الفكرة عمليا
........................................................................................................................
مع اني عندي قاعدة بيانات
فيها حقلان
الاول : الاسم
الثاني : الصورة الشخصية له
محفوظة بقاعدة البيانات نفسها وليس في ملف خارجي
تقبل تحياتي وتقديري لكم

من المستحسن حفظ الصور في ملف خارجي .
على كل حال عندما ادخل الجهاز أحاول عمل مثال إن شاء الله
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ
الرد }}}
تم الشكر بواسطة: gonm64 , gonm64


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  هل يمكن لتاريخ البرنامج أن يكون مستقل عن تاريخ الكمبيوتر amazonette 2 367 26-11-24, 01:57 PM
آخر رد: amazonette
  هل هنالك امكانية لطباعة النص داخل الداتا ريبورت بشكل عامودي mohammed_atallah 2 979 11-09-22, 06:00 PM
آخر رد: mohammed_atallah
  عرض الصور من قاعدة بيانات اكسس داخل الداتا ريبورت mohammed_atallah 0 740 04-09-22, 09:17 AM
آخر رد: mohammed_atallah
Rainbow [سؤال] كيف اربط قاعدة بيانات باكسس 2010 بفجوال بيسك 6 العولقي١١ 5 3,472 07-03-22, 04:18 AM
آخر رد: مصمم هاوي
  كيف يتم طباعة تقرير اكتف ريبورت مباشرة gonm64 1 1,897 03-02-22, 06:22 AM
آخر رد: Taha Okla
Question سؤال عن نوع قاعدة بيانات AmR EiSa 0 1,130 04-01-22, 11:10 PM
آخر رد: AmR EiSa
  [vb6.0] كيف اجعل المستخدم التعديل على الأرقام في text1 فقط ولا يمكن مسحها ؟ Microformt 2 1,714 18-12-21, 01:41 PM
آخر رد: اسلام الكبابى
Rainbow مساعدة في قاعدة بيانات VB6+ACESS tareqhabib15 2 1,811 01-12-20, 08:54 PM
آخر رد: tareqhabib15
Rainbow [سؤال] مساعدة لعمل برنامج حضور وانصراف+وقاعدة بيانات+ربط بالوورد لسهولة طباعة بعض الفورمز فاطمة غ 5 12,483 31-10-20, 01:00 AM
آخر رد: ryadd
  استفسار عن طريقة الربط بين قاعدة بيانات اكسيس 2003 عن طريق الانترنت jordaniancopy 1 2,085 29-08-20, 11:46 PM
آخر رد: diggitalk2017@gmail.com

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


يقوم بقرائة الموضوع: