+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أمثلة ومشاريع vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=30)
+---- الموضوع : طريقة حفظ الصور في مجلد البرنامج (/showthread.php?tid=20851)
طريقة حفظ الصور في مجلد البرنامج - مصمم هاوي - 27-06-17
تقبل الله منا ومنكم وغفر لنا ولكم
لا نزال نتعلم من هذا المنتدى الرائع والذي أكسبنا الكثير من المعلومات المفيدة
وسؤالي هنا :
هل يمكن حفظ الصور في مجلد البرنامج وذلك بملف Picture
بدل قاعدة البنانات لأنها تأخذ حيزاً كبيراً .
المثال في المرفقات للتطبيق
شاكرً لكم حسن اهتمامكم الكبير بالإجابة عن استفسارات الأعضاء الكرام
لتحميل المثال اضغط هنا
RE: طريقة حفظ الصور في مجلد البرنامج - مصمم هاوي - 27-06-17
لله درُك ودر ُّأبيك أخي الحبيب ومشرفنا الغالي أمير على تكرمك بالإجابة
وأسال الله العظيم ربَّ العرش العظيم أن يجعله في ميزان حسناتك
RE: طريقة حفظ الصور في مجلد البرنامج - مصمم هاوي - 29-06-17
عفواً ... أستاذتي أمير
بقى شئٌ آخر وهو :
هل تتكرم بالتعديل على كود عرض التقرير بحيث يتم عرض الصورة الشخصية
فقد حاولتُ التعديل عليه وفشلت
كود :
Dim X As String
X = txtID.Text
Unload Report2
Report2.DataControl1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
App.Path & "\Data_Base.mdb;Persist Security Info=False"
If RS.RecordCount <= 0 Then
MsgBox "لايوجد سجل ", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "تنبيه"
txtIDI.SetFocus
Exit Sub
End If
Report2.DataControl1.Source = "Select * From [Q_Tech_Table] Where [ID] like '" & X & "'"
Report2.Show
Command7.Enabled = FalseRE: طريقة حفظ الصور في مجلد البرنامج - مصمم هاوي - 30-06-17
أحسن الله إليك وبارك الله فيك وجعل أعمالك في ميزان حسناتك يوم القيامة
واحياك الله حياة طيبة سعيدة هنية
RE: طريقة حفظ الصور في مجلد البرنامج - عبدالقادرعواد - 07-09-18
ماشاء الله أكثر من رائع
جزاكم الله الف خير
وجعله في ميزان حسناتكم