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

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

.rar   khodor1985 - WindowsApplication1.rar (الحجم : 276.95 ك ب / التحميلات : 16)
عن مولا نا علي ابن أبي طالب عليه السلام :
إضرب بعض الرأي ببعض يتولد منه الصواب.
الرد
تم الشكر بواسطة: 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 ك ب / التحميلات : 26)
عن مولا نا علي ابن أبي طالب عليه السلام :
إضرب بعض الرأي ببعض يتولد منه الصواب.
الرد
تم الشكر بواسطة: 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
السلام عليكم  احبائي 
بسبب انشغالي  قل  عطائي  -- اعتذر منكم  --  وسال الله العلي القدير  ان لا يشغلنا الا بطاعته.
اشكر كل الاخوة في المنتدى الرائع الذين ساعدوني خاصة والذين يساعدون الجميع -- اسال الله العلي القدير ان يكتب اجرهم مضاعفا ويرزقهم الجنة.
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة في تشغيل المشروع vs2010 Abdulaziz Hazazi 2 0 منذ 2 ساعة مضت
آخر رد: Abdulaziz Hazazi
  [VB.NET] مشكلة عند دخول غرفة الدردشة + مشروع e-coder 2 0 أمس, 10:07 AM
آخر رد: e-coder
Tongue [VB.NET] رحم الله من ساعدني في مشكلة الوقت تظهر لي هذه الرسالة MohammedHikmat 2 0 22-02-18, 09:46 PM
آخر رد: MohammedHikmat
  مشكلة ادخال الى قاعدة البيانات eeee2 0 0 22-02-18, 09:30 PM
آخر رد: eeee2
  حل مشكلة DataGrid Riyadh.Bataher 4 0 22-02-18, 02:56 PM
آخر رد: طالب برمجة
  [VB.NET] مشكلة عند البحث بالداتا جريد فيو محمد اسماعيل 4 0 20-02-18, 03:42 AM
آخر رد: محمد اسماعيل
  [سؤال] مشكلة في عمل load لملف xml مرة أخرى وقت التشغيل ... ما الحل ؟ Dr.Sherif Alazizi 1 0 20-02-18, 12:42 AM
آخر رد: طالب برمجة
  مشكلة خاصة بالاتصال بمحرك قاعدة البيانات اكسس 2010 مع فيجوال استوديو 2017 Mohamed Samy21 3 0 18-02-18, 10:50 PM
آخر رد: Mohamed Samy21
  كودى داتاجريدفيو وبه خطا ارجو الاصلاح sirnon 6 131 17-02-18, 03:02 PM
آخر رد: sirnon
  مشكلة بعد تحزيم البرنامج altho8 0 0 14-02-18, 04:09 PM
آخر رد: altho8

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


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