+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : هل يمكن استعمال اكتف ريبورت لعرض بيانات فبيها حقل صورة (/showthread.php?tid=42294)
هل يمكن استعمال اكتف ريبورت لعرض بيانات فبيها حقل صورة - gonm64 - 28-08-22
السلام عليكم
عندي قاعدة بيانات لمعلومات شخصية الاسم والمواليد والعنوان وصورة الشخص
هل يمكن استعمال ريبورت اكتف لاظهار البيانات ؟
مع خالص التقديـــــــــــــــــــــــــــــــــــر
RE: هل يمكن استعمال اكتف ريبورت لعرض بيانات فبيها حقل صورة - Taha Okla - 28-08-22
وعليكم السلام ورحمة الله وبركاته
اكيد بتقدر..
ولكن انا ما جربت من قبل..
اذا عندك مثال .. ارفعه حتى نجرب فيه
العمليه هي اكواد ربط اداة عرض الصور بالحقل المناسب بقاعدة البيانات لا اكثر.
RE: هل يمكن استعمال اكتف ريبورت لعرض بيانات فبيها حقل صورة - gonm64 - 03-09-22
شكرا لكم على اهتمامكم سارفع المثال في وقت لاحق
RE: هل يمكن استعمال اكتف ريبورت لعرض بيانات فبيها حقل صورة - مصمم هاوي - 03-09-22
نعم يوجد وعندي مشروع سأحاول رفعه لك عندما ادخل من الحاسوب
RE: هل يمكن استعمال اكتف ريبورت لعرض بيانات فبيها حقل صورة - gonm64 - 11-09-22
شكرا لك على الاهتمام وانتظر منكم واناشاكر لك
RE: هل يمكن استعمال اكتف ريبورت لعرض بيانات فبيها حقل صورة - مصمم هاوي - 11-09-22
خذ هذا الكود عدل فيه حسب اسم قاعدة البيانات والجدول واسم التقرير
كود :
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ولو لم يضبط معك سوف أرفع لك مثال
RE: هل يمكن استعمال اكتف ريبورت لعرض بيانات فبيها حقل صورة - gonm64 - 11-09-22
شكرا جزيلا لجنايكم الكريم ورعايتكم واهتمامكم
نظريا واضح الكود واكون شاكرا لكم اذا اكرمتنا بمثال يوضح الفكرة عمليا
........................................................................................................................
مع اني عندي قاعدة بيانات
فيها حقلان
الاول : الاسم
الثاني : الصورة الشخصية له
محفوظة بقاعدة البيانات نفسها وليس في ملف خارجي
تقبل تحياتي وتقديري لكم
RE: هل يمكن استعمال اكتف ريبورت لعرض بيانات فبيها حقل صورة - مصمم هاوي - 11-09-22
(11-09-22, 01:24 PM)gonm64 كتب : شكرا جزيلا لجنايكم الكريم ورعايتكم واهتمامكم
نظريا واضح الكود واكون شاكرا لكم اذا اكرمتنا بمثال يوضح الفكرة عمليا
........................................................................................................................
مع اني عندي قاعدة بيانات
فيها حقلان
الاول : الاسم
الثاني : الصورة الشخصية له
محفوظة بقاعدة البيانات نفسها وليس في ملف خارجي
تقبل تحياتي وتقديري لكم
من المستحسن حفظ الصور في ملف خارجي .
على كل حال عندما ادخل الجهاز أحاول عمل مثال إن شاء الله