تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] سؤال طريق اعمل بحث و اضافة و تعديل دخل قاعد البيانات فى نفس الوقت
#1
السلام عليكم شباب كان عندى سؤال 
يوجد عندى جدول عباره عن 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
قال تعالى : يَامَعْشَرَ الْجِنِّ وَالإِنسِ إِنْ اسْتَطَعْتُمْ أَنْ تَنفُذُوا مِنْ أَقْطَارِ السَّمَاوَاتِ وَالأَرْضِ فَانفُذُوا لا تَنفُذُونَ إِلاّ بِسُلْطَانٍ
الرد }}}
تم الشكر بواسطة:
#2
الحمد الله عرفت اعمل الكود ازاى و ده الكود علشان كل الناس تستفيد  Big Grin
كود :
 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
قال تعالى : يَامَعْشَرَ الْجِنِّ وَالإِنسِ إِنْ اسْتَطَعْتُمْ أَنْ تَنفُذُوا مِنْ أَقْطَارِ السَّمَاوَاتِ وَالأَرْضِ فَانفُذُوا لا تَنفُذُونَ إِلاّ بِسُلْطَانٍ
الرد }}}
تم الشكر بواسطة: علي بنيان


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعديل على فاتورة مبيعات خالد كامل1 4 68 26-03-24, 10:49 PM
آخر رد: خالد كامل1
  تعديل كود ارسال صورة الى الواتس new_programer 2 114 21-03-24, 10:07 PM
آخر رد: new_programer
  تعديل صب المجموع الكلي والمعدل والتقدير مصمم هاوي 3 130 19-03-24, 01:33 AM
آخر رد: مصمم هاوي
  تعديل طول حقل معين في جميع جداول القاعدة atefkhalf2004 1 97 09-03-24, 03:17 AM
آخر رد: atefkhalf2004
  تعديل بيانات عمود DataGridView دفعة واحدة مصمم هاوي 2 164 05-03-24, 08:27 PM
آخر رد: مصمم هاوي
  [VB.NET] حل مشكلة الاتصال بقواعد البيانات access loay775 2 158 25-02-24, 06:29 AM
آخر رد: loay775
  محتاج تشفير فيديو وتشغلية عن طريق البرنامج فقط new_programer 1 112 22-02-24, 12:09 PM
آخر رد: AHMED213
  تنفيذ كود عند حدوث تغيرات فى أحد جداول قاعد بيانات sql heem1986 2 247 16-02-24, 06:37 AM
آخر رد: عبدالله الدوسري
  سؤال عن عملية حذف سجل من قاعدة البيانات assuhimi 3 249 11-02-24, 08:43 PM
آخر رد: assuhimi
Big Grin [سؤال] سؤال على السريع أبو خالد الشكري 0 176 29-01-24, 08:58 AM
آخر رد: أبو خالد الشكري

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


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