تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشكلة ارجو حلها في التعامل مع الصور
#11
السيد الفاضل
الملف بعد الدون لوود   لا يفتح
اتمني اعادة الرفع
الرد
تم الشكر بواسطة:
#12
بارك الله بيك استاذنا الكبير

لا اجيد كلمات التي تعبر عن امتناني وشكري لك تحياتي لك وان شاء الله لا انسى لك الدعاء عند ضريح الامام علي ابن ابي طالب (عليه السلام)
الرد
تم الشكر بواسطة:
#13

.rar   khodor1985 - WindowsApplication1.rar (الحجم : 276.95 ك ب / التحميلات : 33)
إسرائيل إلى زوال ... وسوف تثبت الأيام ذلك ... قريباً إن شاء الله.
الرد
تم الشكر بواسطة: Sajad
#14
كيف يمكنني ان اضغط مثلا على datagridview بدال ال كومبو  حيث اوتوماتيكيا راح تخرج لي الصورة عند الضغط على الداتا فيو بدون اختيار الاسم 

مثل  Private Sub FindImage()
        
  cmbImage.Text    =    cmd.Parameters.Add("@ImageName", OleDbType.VarWChar).Value = )

اي بدال الكومبو اختار مباشرتا من الداتا فيو ما هو التغير الذي يصبح ب براميترس

اريد اختار من نافذة datagridview مباشرتا تخرج لي الصورة في مربع picture box

كما في الصورة


الملفات المرفقة صورة/صور
   
الرد
تم الشكر بواسطة:
#15
تفضل أخي العزيز، لقد تم التعديل على المشروع بناء لطلبك
المشروع بعد التعديل عليه :
.rar   khodor1958 - 1 - WindowsApplication1.rar (الحجم : 277.91 ك ب / التحميلات : 43)
إسرائيل إلى زوال ... وسوف تثبت الأيام ذلك ... قريباً إن شاء الله.
الرد
تم الشكر بواسطة: Sajad , كناري008
#16
(17-02-18, 11:10 AM)khodor1985 كتب : تفضل أخي العزيز، لقد تم التعديل على المشروع بناء لطلبك
المشروع بعد التعديل عليه :

ممكن سؤال شنو تقصد برقم 2 او 1 في داتا بيس هل هي اسماء الحقول + كم حقل اضيف في داتا بيس غير ImageName , ImagePath

واسف كثير منك لأنك اتعتبك معي

اخي الكود التالي عملته هو اضافة من الصورة المسار والاسم وتمت العملية ب نجاح عن طريق التعديل ب براميتر 
                            Try
                                Using conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\employeedb.mdb;Jet OLEDBBig Grinatabase Password=1234kk")
                                    conn.Open()
                                    
                                    Dim command As New OleDbCommand("insert into employees (first_name, last_name, initial, address, age, contact, status, department, gender, e_position, date_hired, end_contract, rate, tin, sss, bday, kat3, mnsb, fr3, a1, a2, a3, a4, ImagePath, ImageName) values (@fname, @lname, @initial, @address, @age, @contact, @contractualradio, @dept, @gender, @pos2, @date1, @date2, @rate, @tin, @sss, @bday, @kat3, @mnsb, @fr3, @a1, @a2, @a3, @a4, @txtImagePath ,@txtImageName)", conn)
                                    With command.Parameters
                                        .AddWithValue("@fname", fname.Text)
                                        .AddWithValue("@lname", lname.Text)
                                        .AddWithValue("@initial", initial.Text)
                                        .AddWithValue("@address", address.Text)
                                        .AddWithValue("@age", age.Text)
                                        .AddWithValue("@contact", contact.Text)
                                        .AddWithValue("@contractualradio", contractualradio.Text)
                                        .AddWithValue("@dept", dept.Text)
                                        .AddWithValue("@gender", gender.Text)
                                        .AddWithValue("@pos2", pos2.Text)
                                        .AddWithValue("@date1", date1.Text)
                                        .AddWithValue("@date2", date2.Text)
                                        


                                        .AddWithValue("@rate", rate.Text)
                                        .AddWithValue("@tin", tin.Text)
                                        .AddWithValue("@sss", sss.Text)
                                        .AddWithValue("@bday", bday.Text)
                                        .AddWithValue("@kat3", kat3.Text)
                                        .AddWithValue("@mnsb", mnsb.Text)
                                        .AddWithValue("@fr3", fr3.Text)
                                        .AddWithValue("@a1", a1.Text)
                                        .AddWithValue("@a2", a2.Text)
                                        .AddWithValue("@a3", a3.Text)
                                        .AddWithValue("@a4", a4.Text)
                             
                                        .AddWithValue("txtImageName", txtImageName.Text)
                                            .AddWithValue("txtImagePath", txtImagePath.Text)
                                    End With


لكن العرض سبب لي مشكلة لا اعرف كيف يتم عرض الصورة استخدمت الدوال السابقه ولم افلح 
علما ان باقي الحقول مطلوبة ب اضافة ان رقم الصف للمسار هو 29 و للاسم هو

الدوال findimage و loadimage لم تنفع معي وكذلك save image لكنني استطعت ان احفظ اسم الصورة ومسارها

كود :
      Try
                               Using conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\employeedb.mdb;Jet OLEDBBig Grinatabase Password=1234kk")
                                   conn.Open()
                                   
                                   Dim command As New OleDbCommand("insert into employees (first_name, last_name, initial, address, age, contact, status, department, gender, e_position, date_hired, end_contract, rate, tin, sss, bday, kat3, mnsb, fr3, a1, a2, a3, a4, ImagePath, ImageName) values (@fname, @lname, @initial, @address, @age, @contact, @contractualradio, @dept, @gender, @pos2, @date1, @date2, @rate, @tin, @sss, @bday, @kat3, @mnsb, @fr3, @a1, @a2, @a3, @a4, @txtImagePath ,@txtImageName)", conn)
                                   With command.Parameters
                                       .AddWithValue("@fname", fname.Text)
                                       .AddWithValue("@lname", lname.Text)
                                       .AddWithValue("@initial", initial.Text)
                                       .AddWithValue("@address", address.Text)
                                       .AddWithValue("@age", age.Text)
                                       .AddWithValue("@contact", contact.Text)
                                       .AddWithValue("@contractualradio", contractualradio.Text)
                                       .AddWithValue("@dept", dept.Text)
                                       .AddWithValue("@gender", gender.Text)
                                       .AddWithValue("@pos2", pos2.Text)
                                       .AddWithValue("@date1", date1.Text)
                                       .AddWithValue("@date2", date2.Text)
                                       


                                       .AddWithValue("@rate", rate.Text)
                                       .AddWithValue("@tin", tin.Text)
                                       .AddWithValue("@sss", sss.Text)
                                       .AddWithValue("@bday", bday.Text)
                                       .AddWithValue("@kat3", kat3.Text)
                                       .AddWithValue("@mnsb", mnsb.Text)
                                       .AddWithValue("@fr3", fr3.Text)
                                       .AddWithValue("@a1", a1.Text)
                                       .AddWithValue("@a2", a2.Text)
                                       .AddWithValue("@a3", a3.Text)
                                       .AddWithValue("@a4", a4.Text)
                           
                                       .AddWithValue("txtImageName", txtImageName.Text)
                                           .AddWithValue("txtImagePath", txtImagePath.Text)
                                   End With
الرد
تم الشكر بواسطة:
#17
السادة  كلما حاولت افكك الضغط  لا استطيع
الرد
تم الشكر بواسطة:
#18
(18-02-18, 08:35 PM)atefkhalf2004 كتب : السادة  كلما حاولت افكك الضغط  لا استطيع
السلام عليكم 

جرب  استخدم اخر اصدار من الرار 

انا نفس المشكلة يبدو ان الاخ خضر  يستخدم  اصدارات حديثة  ونحن نستخدم اصدارات قديمة  Big Grin
  Heart   الرجاء البحث قبل وضع السؤال  Heart

   كل عام وانتم بالف بخير.  
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Exclamation ما هذا ؟ مشكلة في اداة ShockwaveFlash لعرض فيديوهات الـ Youtube YousefOkasha 3 32 منذ 7 ساعة مضت
آخر رد: elgokr
  مشكلة فى استدعاء الفاتورة للتعديل عليها atef_020 27 367 أمس, 10:23 PM
آخر رد: atefkhalf2004
  كود زر التالي والسابق في مستعرض الصور معاذ العامري 5 93 أمس, 05:53 PM
آخر رد: elgokr
  كود التعامل مع الفقرات رجاءا معاذ العامري 6 132 أمس, 03:11 PM
آخر رد: elgokr
  [VB.NET] كيف يمكن تفادي مشكلة اقلاع البرنامج اكثر من مرة larbihamri 4 81 20-07-18, 03:29 AM
آخر رد: YousefOkasha
Wink التعامل مع الـBluetooth عن طريق برنامجك YousefOkasha 4 757 16-07-18, 04:18 PM
آخر رد: YousefOkasha
  مشكلة ظهور الارقام في تقرير الكريستال ريبورت باللغة الانجليزية محمد صلاح ابراهيم 1 57 15-07-18, 05:07 PM
آخر رد: elgokr
Exclamation مشكلة في تثبيت Visual Studio 2013 YousefOkasha 7 299 13-07-18, 10:33 PM
آخر رد: YousefOkasha
  [سؤال] مشكلة عند عمل رن للمشروع khaled_2017 9 169 13-07-18, 07:32 PM
آخر رد: elgokr
  [VB.NET] مشكلة عند اضافة البيانات للسيرفر محمد اسماعيل 7 98 11-07-18, 04:28 AM
آخر رد: elgokr

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


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم