عضو يطلب المساعدة هل من مساعد يا أخوانى

اخى SAA بارك الله فيك وادعو الله ان يوفقك ويكرمك يارب بالنسبة للمثال المرفق مثال جميل وممتاز جدا جدا ولكن اخى الفاضل انا اريد حفظ الصورة دخل قاعدة البيانات وليس فى مجلد البرنامج المثال المرفق ممتاز جدا جدا جدا جدا ولكن المشكلة هية حفظ الصورة فى مجلد البرنامج انا اريد حفظها فى قاعدة البيانات ويكون بنفس الخصائص التى عملت بها المثال وموضوع الكريستل ربنا يسهل واحد من الأعضاء يتكرم علينا ويتعاطف معنا ويضع مثال لذلك لأن طلب مش صعب اوى كدة

أخي عماد قدري

المثال الذي أرفقت لك يحفظ الصور في قاعدة البيانات وليس في المجلد ، وبإمكانك تجربة حفظ صورة من أي مكان في الجهاز ، ولكن حتى نتلافي ظهور أي رسالة خطأ أثناء عرض التقرير يفضل وضع الصور في نفس مجلد البرنامج .

ولك تحياتي ،،

ممتاز جداجدا جدا جدا جدا اخى saa وياريت لو اعرف اسمك الحقيقى وبريدك لكى اعبر لك عن سعادتى بردك الجميل هذا بارك الله فيك جارى التجربة وبأذن الله احاول اربطة بالكريستل وارفق المثال كامل ان شاء الله لكى يستفيد الأخرين

ياريت لو اعرف اسمك

شكرا لك اخى الفاضل

اخوك / عماد

أخي عماد قدري

السلام عليكم

لا شكر على واجب يا أخي ، فغايتنا الإستفادة والإفادة المتبادلة ، وأتمنى لو أستطيع بذل المزيد لأخواني ولهذا المنتدى الذي جنيت منه فوائد شتى ، ولكن قدراتي محدودة للأسف الشديد .

أخوك / صالح

السلام عليكم ورحمة الله وبركاته

اهلين بيك اخى صالح ونعم الناس والله بارك الله فيك يارب اخي

بخصوص استخدامى فى ربط قواعد البيانات فأنا استخدم ado واستخدم بالأخص فى طريقة الحفظ هذا الكود

Public Sub SaveRecAdo(SaveWhat As String, frm As Object, ByVal Rs As ADODB.Recordset)
MyRespons = MsgBox(IIf(Not LangInterface, "åá ÊÑíÏ ÍÝÙ ÇáÈíÇäÇÊ", "Save Data"), vbOKCancel + vbInformation + vbDefaultButton1, " ÈÑäÇãÌ ÔÄæä ÇáÃÓÊÞÏÇã")
If MyRespons = 2 Then Exit Sub
'Dim Fld As New Field
'Set WS = Workspaces(0)
'WS.BeginTrans
Select Case SaveWhat
Case "ADD"
        Rs.AddNew
              For x = 0 To frm.Controls.Count - 1
                 If (Trim$(frm.Controls(x).Tag) > "") And (TypeOf frm.Controls(x) Is TextBox Or _
                    TypeOf frm.Controls(x) Is ComboBox Or _
                    TypeOf frm.Controls(x) Is CheckBox Or _
                    TypeOf frm.Controls(x) Is DBCombo) Then
                    FieldNafrm = Trim$(frm.Controls(x).Tag)
                    'MsgBox frm.Controls(X).Nafrm
                    'MsgBox frm.Controls(X).Tag
                    'MsgBox frm.Controls(X).Name
                    'MsgBox Val(frm.Controls(X))
                     'Set Rs.Fields(FieldNafrm) = Rs.Fields(FieldNafrm)
                     If Rs.Fields(FieldNafrm).Type = 8 Or Rs.Fields(FieldNafrm).Type = 7 Then
                     If IsDate(frm.Controls(x)) Then
                            Rs.Fields(FieldNafrm).Value = CVDate(Format(frm.Controls(x), "dd/mm/yyyy"))
                        Else
                            Rs.Fields(FieldNafrm).Value = Null
                        End If
                    ElseIf Rs.Fields(FieldNafrm).Type = 22 Then
                    Rs.Fields(FieldNafrm).Value = Format(Format(frm.Controls(x), "h:m:s"))
                    '202 text 203 memo 3 number
                    ElseIf Rs.Fields(FieldNafrm).Type = 202 Or Rs.Fields(FieldNafrm).Type = 203 Then
                           Rs.Fields(FieldNafrm).Value = frm.Controls(x)
                        Else
                           Rs.Fields(FieldNafrm).Value = Val(frm.Controls(x))
                                           
                    End If
                 End If
            
             Next x
             Rs.Update
             
   Case "MODIFY"
             'Rs.Edit
              For x = 0 To frm.Controls.Count - 1
                  If Trim$(frm.Controls(x).Tag) > "" And (TypeOf frm.Controls(x) Is TextBox Or _
                    TypeOf frm.Controls(x) Is ComboBox Or _
                    TypeOf frm.Controls(x) Is CheckBox Or _
                    TypeOf frm.Controls(x) Is DBCombo) Then
                     FieldNafrm = Trim$(frm.Controls(x).Tag)
                     'If TypeOf frm.Controls(X) Is ComboBox Then
                     'MsgBox frm.Controls(X).Text
                     'MsgBox frm.Controls(X).Tag
                    'End If
                     'Set Rs.Fields(FieldNafrm) = Rs.Fields(FieldNafrm)
                    If Rs.Fields(FieldNafrm).Type = 8 Then
                        If IsDate(frm.Controls(x)) Then
                            Rs.Fields(FieldNafrm).Value = CVDate(frm.Controls(x))
                        Else
                            Rs.Fields(FieldNafrm).Value = Null
                        End If
                    
                    
                    ElseIf Rs.Fields(FieldNafrm).Type = 202 Or Rs.Fields(FieldNafrm).Type = 203 Then
                           Rs.Fields(FieldNafrm).Value = frm.Controls(x)
                    Else
                           Rs.Fields(FieldNafrm).Value = Val(frm.Controls(x))
                    End If
                 End If
             Next x
             Rs.Update
   End Select
   
   
                'WS.CommitTrans
                'RollbackFlag = False
               'lastBookMark = Rs.LastModified
               Changed = False
End Sub

فأرجو منك تعديل المثال على ان يتم الحفظ بأستخدام ادو وايضا اضافة زر للحذف او الألغاء

وبارك الله فيك اخى صالح

up up up up

وينكم ياشباب وينك اخى صالح

معقولة يا جماعة طارح الموضوع منذو اربع ايام ومافى حل لى لديكم معقولة هذا مستوى المبرمجين وقف لحد كدة ولا ايه

أخي عماد قدري

السلام عليكم

أرجو المعذرة يا أخي لتأخري عليك ويؤسفني يا أخي عدم تمكني من مساعدتك وذلك لكوني لم أستخدم أداة Adodc وخصوصا في موضوع حفظ وإسترجاع الصور . ولكن تأكد يا أخي بأنني إن إستطعت التغيير في الكود فسوف لن أبخل عليك بالمعلومة إن شاء الله .

وأتمنى من الأخوة الأعضاء أن يمد يد المساعدة ، حيث يوجد الكثير ممن يملكون القدر الكافي من المهارة والخبرة .

أتمنى لك التوفيق ،،

بارك الله فيك اخى صالح وانت والله عملت إلا عليك وأكثر ربنا يبارك فيك وارجو من الأخوة المشاركة وعدم البخل علينا بالمعلومة نحن فى منتدي عريض بالأفكار والمعلومات وربنا يكرمنا والاقى حل لمشكلتى

والله أنى لو أعرف أن الموضوع عويص أوى كدة يا جماعة ما كنت كتبت فى المنتدي هنا ولكن أننى متأكد أن الموضوع سهل للخبراء والمشكلة أنهم لا يتجاوبون لماذا لا ادرى والله ربنا يفك عن كتابتهم ويكتبوا ردود هنا ويساعدونا يارب .

أخي عماد

المثالين الذين وضعهم الأخ جوست والأخ saa مثالين رائعين وهو غالبا هذه هي الطريقة المستخدمة عند تخزين الصور في قواعد البيانات الا يتم تخزين الصورة في قاعدة البيانات نفسها ولكن يخزن اسم الصورة أو مسارها في حقل من حقول قاعدة البيانات كحقل نصي ... وهي الطريقة التي استخدمتها ميكروسوفت في مثالها المرفق مع الفيجوال بيسك

والا عليك الرحيل الا sql server التي يمكنك تخزين الصورة فيها كما قال لك الأخ جوست كترميز ثنائي

وطريقة تخزين اسم الصورة في قاعدة البيانات وتخزين الصور في مجلد البرنامج طريقة آمنه جدا ولن يحدث معها مشاكل وخاصة عندما تستخدم أداة common dialog عند الفتح وعند الحفظ

تحياتي لك

اخوك ناصر

أخى الكريم ناصر هل ممكن ان ترفق لى مثال كامل لحفظ الصورة باى طريقة بس المهم يوفى بالغرض والغرض هو / حفظ الصورة وإستعراضها والأضافة والحذف وطباعتها بالكريستل ريبورت .

فهل هذا ممكن اخى الكريم

يا جماعة الرد بسرعة شغلى واقف والله وهفقد عملى بسبب هذا الموضوع الرجاء الرد بسرعة اخوانى

هل طريقتك اخى ناصر تصلح بأظهار الصورة بالكريستل ريبورت ام لا رجاء الرد للأهمية

الطريقة ستعمل مع الكريستال ريبورت بدون اى مشاكل ان شاء الله :rolleyes:

اخى العزيز محمد يا مشرفنا يا عسل لماذا تبخل على بالأجابة المفصلة اخى انا من قبل قولت لك انى مبتدأ فأرجو وضع المثال الذى يقوم بحفظ الصورة فى مجلد وحفظ المسار فى قاعدة البيانات واظهار الصورة بالكريستل اخى الفاضل لأنى والله تعبت تعبت تعبت تعبت تعبت تعبت جدا جدا جدا من هذا السؤال الا ماله نهاية.

السلام عليكم ورحمة الله وبركاته

والله انا لا ابخل بأى معلومة املكها فلا مجال للبخل فى الفريق العربى

اولاً : راجع هذا الموضوع

ثانياً : انا حتى الان استخدم الداتا ريبورت لكن توجد دورة كاملة للكريستال ريبورت للاخ Major ستجدها هنا

بارك الله فيك اخى محمد وجار تجربة المثالين المرفقين

تمت التجربة أخى الكريم محمد وألف ألف مليون شكر لك انت والأخ ناصر وأخوى صالح وجميع الأخوة الا شاركو بهذا السؤال وبارك الله فيكم جميعا .

أخوكم / عماد قدري