[سؤال] سؤال طريق اعمل بحث و اضافة و تعديل دخل قاعد البيانات فى نفس الوقت

كود :

   Public Sub PictureBox(ByVal Control As System.Windows.Forms.PictureBox, ByVal laba As System.Windows.Forms.Label)

        Dim con As New System.Data.SqlClient.SqlConnection("Data Source=DESKTOP-SNS2QF4;Initial Catalog=adduser;Integrated Security=True")

        If con.State = ConnectionState.Open Then con.Close()

        con.Open()

        Dim ds As New DataSet

        ds.Clear()

        Dim data As New SqlClient.SqlDataAdapter("select * from idfriends where (iduser=N'" & laba.Text.ToString & "')" & "", con)

        Dim cm As New System.Data.SqlClient.SqlCommandBuilder(data)

        If data.Fill(ds, "idfriends") Then

            Control.Image = Nothing

            Dim picbyte As Byte()

            Dim SysMom As New MemoryStream

            ds.Clear()

            data.Fill(ds, "idfriends")

            picbyte = ds.Tables("idfriends").Rows(0).Item(1)

            SysMom.Write(picbyte, 0, picbyte.Length)

            Control.Image = Image.FromStream(SysMom)

            If con.State = ConnectionState.Open Then con.Close()

        Else

            Control.Image = Nothing

            Control.Image = Image.FromHbitmap(My.Resources.icon_user_default.GetHbitmap())

            If con.State = ConnectionState.Open Then con.Close()

        End If

    

    End Sub

كود :

 Public Sub PictureBox(ByVal Control As System.Windows.Forms.PictureBox, ByVal laba As System.Windows.Forms.Label)

        Dim con As New System.Data.SqlClient.SqlConnection("Data Source=DESKTOP-SNS2QF4;Initial Catalog=adduser;Integrated Security=True")

        If con.State = ConnectionState.Open Then con.Close()

        con.Open()

        Dim ds As New DataSet

        ds.Clear()

        Dim data As New SqlClient.SqlDataAdapter("select * from idfriends where (iduser=N'" & laba.Text.ToString & "')" & "", con)

        Dim cm As New System.Data.SqlClient.SqlCommandBuilder(data)

        If data.Fill(ds, "idfriends") Then

            Control.Image = Nothing

            Dim picbyte As Byte()

            Dim SysMom As New MemoryStream

            ds.Clear()

            data.Fill(ds, "idfriends")

            picbyte = ds.Tables("idfriends").Rows(0).Item(1)

            SysMom.Write(picbyte, 0, picbyte.Length)

            Control.Image = Image.FromStream(SysMom)

            If con.State = ConnectionState.Open Then con.Close()

        Else

            Control.Image = Nothing

            Control.Image = Image.FromHbitmap(My.Resources.icon_user_default.GetHbitmap())

            If con.State = ConnectionState.Open Then con.Close()

        End If

    

    End Sub