تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] طريقة ترتيب كود الاضافة و التعديل مع try
#1
السلام عليكم 
عندى مشكلة فى تراتيب الكود الاضافة و التعديل مع بعض داخل try
ارويد يتعم اضافة بيانات جديدة و فى حالة ان هى موجود قبل كده يتم التعديل عليه فى نفس الوقت و ده الكود لى شغل عليه
كود :
 Try
           Dim con As New System.Data.SqlClient.SqlConnection(conn)
           Dim da As New System.Data.SqlClient.SqlDataAdapter("select * from UserStatus", conn)
           con.Open()
           Dim ds As New DataSet
           Dim cm As New System.Data.SqlClient.SqlCommandBuilder(da)
           da.Fill(ds, "UserStatus").ToString()
           Dim dr As DataRow = ds.Tables("UserStatus").NewRow
               dr.Item("idsuer") = Form1.Label6.Text
               dr.Item("timeSignIn") = Format(Now, "hh:mm:ss")
               dr.Item("dataSignin") = Now.Date
               dr.Item("status") = "SignIn"
               ds.Tables("UserStatus").Rows.Add(dr)
           da.Update(ds, "UserStatus")
           con.Close()
           Dim cmd As New SqlCommand
           cmd.Connection = con
           cmd.CommandType = CommandType.Text
           cmd.CommandText = "UPDATE UserStatus SET timeSignIn=@timeSignIn WHERE idsuer= @idsuer"
           cmd.Parameters.AddWithValue("@idsuer", Form1.Label6.Text)
           cmd.Parameters.AddWithValue("@timeSignIn", Format(Now, "hh:mm:ss"))
           cmd.ExecuteScalar()
           con.Close()

       Catch ex As Exception
           Form1.TextBox1.Text = ""
           Form1.TextBox2.Text = ""
           Form1.ListView1.Visible = False
           Form1.Panel1.Visible = False
           Form1.PictureBox11.Visible = False
           Form1.PictureBox9.Visible = False
           Form1.PictureBox10.Visible = False
           Form1.PictureBox8.Visible = False
           Form1.LinkLabel1.Visible = True
           Form1.LinkLabel2.Visible = True
           Form1.LinkLabel3.Visible = True
           Form1.Button1.Enabled = True
           Dim file As String = "key.txt"
           If My.Computer.FileSystem.FileExists(file) Then
               Dim filecontents As String
               filecontents = My.Computer.FileSystem.ReadAllText("key.txt")
               FileClose()
               Form1.ComboBox1.SelectedItem = filecontents.ToString
               Form1.TextBox1.Select()
               If filecontents.ToString = "English" Then
                   Form1.Label1.Text = ""
                   Form1.Label1.Text = "Spicy Messenger !"
                   Exit Sub
               End If
               If filecontents.ToString = "العربية" Then
                   Form1.Label1.Text = ""
                   Form1.Label1.Text = "ماسنجر حار!"
                   Exit Sub
               End If
           Else
               My.Computer.FileSystem.WriteAllText("key.txt", "English", True)
               Form1.ComboBox1.SelectedItem = "English"
           End If
           Form1.Show()
       End Try

الحمد الله ده الترتيب الصحيحه للكود
كود :
Dim con As New System.Data.SqlClient.SqlConnection(conn)
       Try
           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 UserStatus where (idsuer=N'" & Form1.Label6.Text & "')", con)
           Dim cm As New System.Data.SqlClient.SqlCommandBuilder(data)
           data.Fill(ds, "UserStatus")
           If ds.Tables("UserStatus").Rows.Count = 0 Then
               Dim dr As DataRow = ds.Tables("UserStatus").NewRow
               dr.Item("idsuer") = Form1.Label6.Text
               dr.Item("timeSignIn") = Format(Now, "hh:mm:ss")
               dr.Item("dataSignin") = Now.Date
               dr.Item("status") = "SignIn"
               ds.Tables("UserStatus").Rows.Add(dr)
               data.Update(ds, "UserStatus")
               con.Close()
               Exit Sub
           Else
               Dim cmd As New SqlCommand
               cmd.Connection = con
               cmd.CommandType = CommandType.Text
               cmd.CommandText = "UPDATE UserStatus SET status=@status , dataSignin=@dataSignin , timeSignIn=@timeSignIn WHERE idsuer= @idsuer"
               cmd.Parameters.AddWithValue("@idsuer", Form1.Label6.Text)
               cmd.Parameters.AddWithValue("@timeSignIn", Format(Now, "hh:mm:ss"))
               cmd.Parameters.AddWithValue("@dataSignin", Now.Date)
               cmd.Parameters.AddWithValue("@status", "SignIn")
               cmd.ExecuteScalar()
               ''con.Close()
               Exit Sub
           End If
       Catch ex As Exception
قال تعالى : يَامَعْشَرَ الْجِنِّ وَالإِنسِ إِنْ اسْتَطَعْتُمْ أَنْ تَنفُذُوا مِنْ أَقْطَارِ السَّمَاوَاتِ وَالأَرْضِ فَانفُذُوا لا تَنفُذُونَ إِلاّ بِسُلْطَانٍ
الرد
تم الشكر بواسطة: عبد الهادي بهاب


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طريقة لفتح نوافذ مبيعات مختلفة في نفس الوقت وكل فاتورة لها رقم تلقائي tfarejdz 1 78 15-04-21, 07:48 PM
آخر رد: messry
  [VB.NET] ترتيب جدول أبجديا حسب حقل معين (Column) mmaalmesry 0 58 13-04-21, 12:44 AM
آخر رد: mmaalmesry
  [VB.NET] كود الاضافه و الحذف و التعديل في VB.NET Ahmed Ihsan 1 132 12-04-21, 05:46 AM
آخر رد: alims
  [VB.NET] أرجو التعديل في الكود المرفق معتز حسن 3 173 10-04-21, 06:33 PM
آخر رد: معتز حسن
  [سؤال] حول التعديل على عرض صف في داتا جريد فيو ابو انس 0 73 10-04-21, 06:25 PM
آخر رد: ابو انس
  [سؤال] هل من طريقة احترافية لايجاد كمية صنف متعدد الوحدات alfaiz678 5 254 09-04-21, 06:00 AM
آخر رد: alfaiz678
  ممكن التعديل في كود البحث المرفق أبووسم 1 249 08-04-21, 10:32 PM
آخر رد: messry
  سؤال في التعديل في الجدول اليوم السابع 1 104 08-04-21, 03:22 PM
آخر رد: asemshahen5
  [سؤال] اعادة ترتيب الصفوف في ليست فيو دون تغيير العمود الاول asmarsou 2 260 02-04-21, 09:40 AM
آخر رد: asmarsou
Rainbow [سؤال] سؤال عن طريقة توصيل كامبرا الموبايل بقاعدة بيانات خالد دياب 0 160 25-03-21, 07:13 PM
آخر رد: خالد دياب

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


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