08-11-14, 10:47 PM
السلام عليكم
شباب حصلت كود لحفظ الصورة داخل access 2013 لكن لم يعمل بالكامل سوف اضع لكم كود وحفظ الصورة والكود حقي لبرمجت الكودين معا لحفظ الصورة في الاكسس وبالاخير سوف اسألكم بعد الانتهاء من هذة الخطو بالخطوة الجديدة وهي قراءة البيانات مع الصورة المحفوظه لهذا الشخص .
كود جفظ الصورة :
اما هذا الكود خاص بي واريد اضافة او تعديله لي مع تعليمي مالكود الخاص بحفظ الصورة :
المشروع متعوب عليه باقي بس هذا الشيء للاسف لو كان المشروع بدون اضافة صورة الى لحد الان ماعرفت الطريقة جان من زمان بعته
شباب حصلت كود لحفظ الصورة داخل 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