منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم ورحمة الله وبركاته
أتمنى أن تكونوا جميعا في أتم صحه وعافيه

عندي مشكلة في كود إضافة الصورة مرفق لكم الكود
أتمنى ايجاد حل حيث تتم العملية ولكن لا يتم إضافة صورة في قاعدة البيانات sql مرفق لكم صورة لمعلومات الجدول

كود :

Dim Cmd As New SqlClient.SqlCommand

        With Cmd

            .Connection = con

            .CommandType = CommandType.Text

            .CommandText = "Insert Into Staff (PRN,Name)values(@PRN,@Name)"

            .Parameters.Clear()

            .Parameters.AddWithValue("@PRN", SqlDbType.Int).Value = txt_prn.Text

            .Parameters.AddWithValue("@Name", SqlDbType.NVarChar).Value = txt_Name.Text

            Dim ms As New MemoryStream

            Dim bmpImage As New Bitmap(Pic_Staff.Image)

            bmpImage.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)

            Dim data As Byte() = ms.GetBuffer

            Dim p As New SqlParameter("@Pic_Staff", SqlDbType.Image)

            p.Value = data

            .Parameters.Add(p)

        End With

        If con.State = 1 Then con.Close()

        con.Open()

        Cmd.ExecuteNonQuery()

        con.Close()

        MsgBox("Done")

        Cmd = Nothing

        txt_prn.Text = Nothing

        txt_Name.Text = Nothing

        Pic_Staff.Image = Nothing

        DgvLoad()

كود فتح نافذة لجلب الصورة

كود :

  Try

            Dim ofd As New OpenFileDialog

            With ofd

                .Filter = ("images |*.png; *.bmp; *.jpg; *.jpeg; *.gif;")

                .FilterIndex = 4

            End With

            ofd.FileName = ""

            If ofd.ShowDialog() = DialogResult.OK Then

                Pic_Staff.Image = Image.FromFile(ofd.FileName)

            End If

        Catch ex As Exception

            MsgBox(ex.ToString())

        End Try

[attachment=24429]
[attachment=24430]

عدل الاستعلام ليكون :

PHP كود :

.CommandText = "Insert Into Staff (PRN,Name,Pic_Staff)values(@PRN,@Name,@Pic_Staff)" 

بارك الله فيك
وجدة كود ويعمل بشكل صحيح أتمنى أن يفيد الجميع

كود :

Dim pos As Integer

        pos = DataGridView1.CurrentRow.Index

        Dim EemployeID = DataGridView1.Rows(pos).Cells(1).Value

        Dim EemployeName = DataGridView1.Rows(pos).Cells(2).Value

        If MsgBox("هل تريد تعديل البيانات للموظف: " & EemployeName & EemployeID, MsgBoxStyle.Question + vbYesNo, Title:="Warning") = vbYes Then

            Dim cmd As New SqlCommand

            With cmd

                .Connection = con

                .CommandType = CommandType.Text

                .CommandText = "Update TB_Eemploye Set EemployeID=@EemployeID, EemployeName=@EemployeName, PicEemploye=@PicEemploye, EemployePosition=@EemployePosition, EemployeStatus=@EemployeStatus, Nationalty=@Nationalty, Mobilenumber=@Mobilenumber, GR=@GR, BasicSalary=@BasicSalary, DOA=@DOA, DirectorinthesystemSap=@DirectorinthesystemSap where EemployeID=@EemployeID"

                .Parameters.Clear()

                .Parameters.AddWithValue("@EemployeID", SqlDbType.NVarChar).Value = txt_prn.Text

                .Parameters.AddWithValue("@EemployeName", SqlDbType.NVarChar).Value = txt_Name.Text

                .Parameters.AddWithValue("@EemployePosition", SqlDbType.NVarChar).Value = ComboBoxPosition.Text

                .Parameters.AddWithValue("@Nationalty", SqlDbType.NVarChar).Value = ComboBoxNationalty.Text

                .Parameters.AddWithValue("@Mobilenumber", SqlDbType.NVarChar).Value = txt_Mobilenumber.Text

                .Parameters.AddWithValue("@GR", SqlDbType.NVarChar).Value = txt_Grade.Text

                .Parameters.AddWithValue("@BasicSalary", SqlDbType.NVarChar).Value = txt_Basic_Salary.Text

                .Parameters.AddWithValue("@DOA", SqlDbType.NVarChar).Value = ComboBoxDate_Of_Employment.Text

                .Parameters.AddWithValue("@DirectorinthesystemSap", SqlDbType.NVarChar).Value = txt_Director_in_the_system_Sap.Text

                .Parameters.AddWithValue("@EemployeStatus", SqlDbType.NVarChar).Value = ComboBoxStatus.Text

                Dim ms As New IO.MemoryStream

                Dim bmpimage As New Bitmap(pbox.Image)

                bmpimage.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)

                Dim data As Byte() = ms.GetBuffer()

                Dim p As New SqlParameter("@PicEemploye", SqlDbType.Image)

                p.Value = data

                .Parameters.Add(p)

            End With

            If con.State = 1 Then con.Close()

            con.Open()

            cmd.ExecuteNonQuery()

            con.Close()

            TextValueClere()

            dt.Clear()

            DgvLoad()

            MsgBox("تم إعتماد تعديل البيانات للموظف: " & EemployeName & EemployeID, MsgBoxStyle.Information)

            Me.txt_prn.ReadOnly = False

            Me.butt_new.Enabled = True

            Me.butt_Save.Enabled = True

            txt_Serch.Focus()

            txt_Serch.Update()

        Else

            Return

        End If

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

محمد العامر

asemshahen5

محمد العامر