تقييم الموضوع :
  • 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 [email protected] 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 [email protected] , [email protected] , [email protected] 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
قال تعالى : يَامَعْشَرَ الْجِنِّ وَالإِنسِ إِنْ اسْتَطَعْتُمْ أَنْ تَنفُذُوا مِنْ أَقْطَارِ السَّمَاوَاتِ وَالأَرْضِ فَانفُذُوا لا تَنفُذُونَ إِلاّ بِسُلْطَانٍ
الرد }}
تم الشكر بواسطة: عبد الهادي بهاب


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طريقة رسم كهذة Lathe1 0 81 12-08-22, 11:13 PM
آخر رد: Lathe1
  [سؤال] لسلام عليكم ورحمه الله وبركاته ازاي افعل خاصيه امكانيه التعديل علي الكود أثناء تشغيل حسن الجلب 1 163 06-08-22, 07:39 PM
آخر رد: asmarsou
  [كود] هدية قيمة و طلب: مشروع متكامل لشجرة و مطلوب التعديل عليه dr.programming 0 152 02-08-22, 02:28 AM
آخر رد: dr.programming
  ماهي طريقة تحويل الصور إلى pdf ؟ جيولوجي مبتدئ 6 274 30-07-22, 02:24 AM
آخر رد: جيولوجي مبتدئ
  هل يوجد طريقة لارسال رسائل واتساب من البرنامج باستخدام vb.net 2010 ? Dr.Sherif Alazizi 14 9,917 25-07-22, 07:48 PM
آخر رد: عبد الجليل سراج
  ماهي طريقة اقتطاع جزء معين من الصورة عند المسح بالسكانر ؟ جيولوجي مبتدئ 0 169 01-07-22, 02:55 AM
آخر رد: جيولوجي مبتدئ
  [VB.NET] كيفية التعديل علي firebase من خلال auth ميدو الفنان 2 447 12-06-22, 01:36 AM
آخر رد: أبو خالد الشكري
  ممكن طريقة لتحويل هذا الكود ابو روضة 9 627 10-06-22, 02:21 AM
آخر رد: ابو روضة
Question [VB.NET] استفسار حول طريقة الضغط على زر برمجيا lmofallis 4 3,190 01-06-22, 12:02 PM
آخر رد: عبد الجليل سراج
  ترتيب العرض الشراء الاول ثم السداد في حالة تساوي التاريخ atefkhalf2004 2 293 26-05-22, 10:07 PM
آخر رد: atefkhalf2004

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


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