السلام عليكم شباب كان عندى سؤال
يوجد عندى جدول عباره عن id و img
عايز يتم البحث عن طريق id اذا كان غير موجود يتم اضافة البيانات الجديدة دخل حقل img و فى حالة وجود البيانات دخل الحقلimg يتم تعديل وحفظ البيانات الجديدة
كيف فعل هذا فى كود صغير و شكر ليكم اسف على الاطاله
وده الكود المستخدام و لكن كيفة التعديل عليه
يوجد عندى جدول عباره عن id و img
عايز يتم البحث عن طريق id اذا كان غير موجود يتم اضافة البيانات الجديدة دخل حقل img و فى حالة وجود البيانات دخل الحقلimg يتم تعديل وحفظ البيانات الجديدة
كيف فعل هذا فى كود صغير و شكر ليكم اسف على الاطاله
وده الكود المستخدام و لكن كيفة التعديل عليه
كود :
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
قال تعالى : يَامَعْشَرَ الْجِنِّ وَالإِنسِ إِنْ اسْتَطَعْتُمْ أَنْ تَنفُذُوا مِنْ أَقْطَارِ السَّمَاوَاتِ وَالأَرْضِ فَانفُذُوا لا تَنفُذُونَ إِلاّ بِسُلْطَانٍ
