تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشكلة ارجو حلها في التعامل مع الصور
#11
(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
الرد }}}
تم الشكر بواسطة:
#12
السادة  كلما حاولت افكك الضغط  لا استطيع
الرد }}}
تم الشكر بواسطة:
#13
(18-02-18, 08:35 PM)atefkhalf2004 كتب : السادة  كلما حاولت افكك الضغط  لا استطيع
السلام عليكم 

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

انا نفس المشكلة يبدو ان الاخ خضر  يستخدم  اصدارات حديثة  ونحن نستخدم اصدارات قديمة  Big Grin
الرد }}}
تم الشكر بواسطة:



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


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