تقييم الموضوع :
  • 1 أصوات - بمعدل 5
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] كود حفظ الصورة وجده لكن لايعمل بالكامل
#1
السلام عليكم

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

كود جفظ الصورة :
كود :
Private Sub SaveToDB1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveToDB1.Click
       Dim str As New MemoryStream
       pic.Image.Save(str, Imaging.ImageFormat.Jpeg)
       Dim buffer(CInt(str.Length - 1)) As Byte
       str.Position = 0
       str.Read(buffer, 0, CInt(str.Length))
       Dim con As New OleDbConnection(conString)
       Dim cmd As New OleDbCommand("INSERT INTO Pictures (ThePicture) VALUES (@ThePicture)", con)
       cmd.CommandType = CommandType.Text

       Dim prmPic As New OleDbParameter
       With prmPic
           .ParameterName = "@MyPicture"
           .OleDbType = OleDbType.Binary
           .Value = buffer
       End With
       cmd.Parameters.Add(prmPic)

       Try

           con.Open()
           cmd.ExecuteNonQuery()
           MessageBox.Show("The image was saved successfully.")
           pic.Image = Nothing
       Catch ex As Exception
           MessageBox.Show("There was a problem saving the image." & ControlChars.CrLf & ex.Message)
       Finally
           If con.State = ConnectionState.Open Then con.Close()
           con.Dispose() : cmd.Dispose()
           con = Nothing : cmd = Nothing : prmPic = Nothing
       End Try
   End Sub

اما هذا الكود خاص بي واريد اضافة او تعديله لي مع تعليمي مالكود الخاص بحفظ الصورة :

كود :
conn.ConnectionString = "PROVIDER=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath() & "\Data.accdb" & ";Persist Security Info=True;Jet OLEDB:Database Password=123"

       Try
           conn.Open()
           Dim cmd As New System.Data.OleDb.OleDbCommand("insert into Student (Student_Name,Student_CPR,Student_Birth,Student_Join,Student_Nation,Student_Sex,Student_D,Student_Place,Student_Address,Student_Sick,Student_Vairus,Student_phone,Student_Dad,Student_mom,Student_Angel,Student_jobmom,Student_jobdad,Student_Famaly,Student_Pic) values ('" & TextBox1.Text & "','" & TextBox10.Text & "','" & DateTimePicker1.Value & "','" & DateTimePicker2.Value & "','" & ComboBox2.Text & "','" & ComboBox3.Text & "','" & ComboBox1.Text & "','" & ComboBox4.Text & "','" & TextBox2.Text & "','" & ComboBox5.Text & "','" & TextBox7.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox8.Text & "','" & TextBox9.Text & "','" & ComboBox6.Text & "','" & PictureBox1.Image & "')", conn)
           cmd.ExecuteNonQuery()
           conn.Close()

           MessageBox.Show("تمت الإضافة بنجاح", "My Systm", MessageBoxButtons.OK, MessageBoxIcon.Information)

       Catch ex As Exception
           MessageBox.Show(ex.Message, "خطأ في الإضافة", MessageBoxButtons.OK, MessageBoxIcon.Error)
       End Try
   End Sub
End Class
المشروع متعوب عليه باقي بس هذا الشيء للاسف لو كان المشروع بدون اضافة صورة الى لحد الان ماعرفت الطريقة جان من زمان بعته
الرد }}}}
تم الشكر بواسطة:
#2

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

شوف هذه الطريقة موجودة بالمنتدى
وهي أكثر ترتيباً وتتميز بسهولة مراجعة الكود وأضفت لك طريقة تحويل بيانات الصورة
ملاحظة يجب ترتيب Parameters بنفس الترتيب في جملة الاستعلام حسب ما ذكره الأعضاء
إضافة كلمة Date بعد Value لأداة التاريخ
PHP كود :
Dim conn As New OleDbConnection("PROVIDER=Microsoft.ACE.OLEDB.12.0;Data Source=" Application.StartupPath() & "\Data.accdb" ";Persist Security Info=True;Jet OLEDB:Database Password=123")

Private 
Sub Button1_Click(sender As System.ObjectAs System.EventArgsHandles Button1.Click
    
Try

        
Dim sql As String _
            
" INSERT INTO [Student] " _
            
" (  Student_Name,  Student_CPR,  Student_Birth,  Student_Join,  Student_Nation,  Student_Sex,  ​Student_D,  Student_Place,  Student_Address,  Student_Sick,  Student_Vairus,  Student_phon​e,  Student_Dad,  Student_mom,  Student_Angel,  Student_jobmom,  Student_jobdad,  Student_Fa​maly,  Student_Pic ) " _
            
" VALUES " _
            
" ( @Student_Name, @Student_CPR, @Student_Birth, @Student_Join, @Student_Nation, @Student_Sex, @​Student_D, @Student_Place, @Student_Address, @Student_Sick, @Student_Vairus, @Student_phon​e, @Student_Dad, @Student_mom, @Student_Angel, @Student_jobmom, @Student_jobdad, @Student_Fa​maly, @Student_Pic ) "

        
Dim cmd As New OleDbCommand(sqlconn)
        
cmd.Parameters.AddWithValue("@Student_Name"TextBox1.Text)
        
cmd.Parameters.AddWithValue("@Student_CPR"TextBox10.Text)
        
cmd.Parameters.AddWithValue("@Student_Birth"DateTimePicker1.Value.Date)
        
cmd.Parameters.AddWithValue("@Student_Join"DateTimePicker2.Value.Date)
        
cmd.Parameters.AddWithValue("@Student_Nation"ComboBox2.Text)
        
cmd.Parameters.AddWithValue("@Student_Sex"ComboBox3.Text)
        
cmd.Parameters.AddWithValue("@Student_D"ComboBox1.Text)
        
cmd.Parameters.AddWithValue("@Student_Place"ComboBox4.Text)
        
cmd.Parameters.AddWithValue("@Student_Address"TextBox2.Text)
        
cmd.Parameters.AddWithValue("@Student_Sick"ComboBox5.Text)
        
cmd.Parameters.AddWithValue("@Student_Vairus"TextBox7.Text)
        
cmd.Parameters.AddWithValue("@Student_phon"TextBox3.Text)
        
cmd.Parameters.AddWithValue("@Student_Dad"TextBox4.Text)
        
cmd.Parameters.AddWithValue("@Student_mom"TextBox5.Text)
        
cmd.Parameters.AddWithValue("@Student_Angel"TextBox6.Text)
        
cmd.Parameters.AddWithValue("@Student_jobmom"TextBox8.Text)
        
cmd.Parameters.AddWithValue("@Student_jobdad"TextBox9.Text)
        
cmd.Parameters.AddWithValue("@Student_Fa​maly"ComboBox6.Text)
        
Using ms As New IO.MemoryStream
            Me
.PictureBox1.Image.Save(msSystem.Drawing.Imaging.ImageFormat.Png)
            
cmd.Parameters.AddWithValue("@Student_Pic"ms.ToArray())
        
End Using

        conn
.Open()
        
cmd.ExecuteNonQuery()
        
conn.Close()

        
MessageBox.Show("تمت الإضافة بنجاح""My Systm"MessageBoxButtons.OKMessageBoxIcon.Information)

    Catch 
ex As Exception
        MessageBox
.Show(ex.Message"خطأ في الإضافة"MessageBoxButtons.OKMessageBoxIcon.Error)
    
End Try
End Sub 

الرد }}}}
تم الشكر بواسطة:
#3
شكرا على المساعدة لكن طلع لي خطأ

The INSERT INTO statement contains the following unknown field name: '​Student_D'. Make sure you have typed the name correctly, and try the operation again.
الرد }}}}
تم الشكر بواسطة:
#4

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

الخطأ من عندك، لازم تراجع أسماء الحقول كلها من قاعدة البيانات، لأني وضعت لك الاسماء كما كتبتها أنت

والرسالة تقوم عدم وجود الحقل Student_D فلازم تراجع الاسماء عندك

الرد }}}}
تم الشكر بواسطة:
#5
الخطأ في اسم الحقل Student_D ربما يكون الصحيح هو Student_ID بإضافة حرف آي (I) قبل الـ(D) الأخيرة
(وَقُل رَّبِّ زِدْنِي عِلْمًا)

الرد }}}}
تم الشكر بواسطة: الوليد ☺
#6
اخي وليد صراحة راجعتهم اكثر من مرة وقمت بكتابتهم من جديد هل يمكنك التأكد لي سوف اقوم برفعه واتمنى الافادة

حمل الملف من الرابط
http://adf.ly/ttggw
الرد }}}}
تم الشكر بواسطة:
#7

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

يبدو أن هناك أخطاء بسبب النسق واللصق، فقمت بمسح اسم الحقل من الكود في نص sql وكتابته من جديد فزالت المشكلة،
وتكررت المشكلة في ثلاث أسماء حقول وهي:
Student_D
Student_phone
Student_Famaly

الرد }}}}
تم الشكر بواسطة: kslawy


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] اظهار الصورة naden 3 146 03-10-16, 08:58 AM
آخر رد: silverlight
  [سؤال] تحريك الصورة naden 3 112 02-10-16, 01:13 AM
آخر رد: ممدوح
  سوال عن الصورة في الفورم soper 8 202 29-09-16, 09:47 PM
آخر رد: soper
  [vb6.0] ما هو كود قص او تعديل على الصورة ؟؟ proff2016 0 73 31-08-16, 05:03 PM
آخر رد: proff2016
  تصوير بواسطة ويب وحفظ الصورة بقاعدة بيناتات MS Access haniblack 0 89 11-08-16, 01:41 PM
آخر رد: haniblack
  كيف التحقق من صوره اذا كانت نفس الصورة ام لا Mohamed20 4 154 06-08-16, 03:55 PM
آخر رد: Mohamed20
  سؤال حفظ الصورة وعرضها فراس صلاح 7 258 24-07-16, 12:21 AM
آخر رد: عدنان الشمري
  ماهي دلالة هذه الصورة طالب 22 3 145 30-06-16, 08:55 PM
آخر رد: الوادي
  التطبيق لايعمل على جهاز العميل sarca 5 255 06-05-16, 11:33 AM
آخر رد: samerselo
  حفظ الصورة بصيغة PDF ,DOC nali 6 442 24-04-16, 07:29 PM
آخر رد: عدنان الشمري

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


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