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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] طريقة سحاب روبط قائيمة التشغيل Kareem2021 1 49 منذ 5 ساعة مضت
آخر رد: ابو روضة
  طريقة تطبيق هذا الكود عل الدتا قريد ahmedbezia 2 137 17-09-21, 01:52 PM
آخر رد: ahmedbezia
  طريقة لفتح نوافذ مبيعات مختلفة في نفس الوقت وكل فاتورة لها رقم تلقائي tfarejdz 9 1,303 08-09-21, 07:25 PM
آخر رد: tfarejdz
  [VB.NET] التعديل على المثال AHMED213 1 163 08-09-21, 12:40 AM
آخر رد: ابراهيم ايبو
  طريقة استعمال الهاتف كقارئ باركود وربطه بالكمبيوتر ahmedbezia 3 204 30-08-21, 09:25 PM
آخر رد: asemshahen5
  إعادة ترتيب العمود التسلسلي kebboud 3 445 03-08-21, 02:50 AM
آخر رد: ابراهيم ايبو
  إعادة ترتيب العمود التسلسلي kebboud 0 249 01-08-21, 06:14 PM
آخر رد: kebboud
  ممكن طريقة نقل الاسماء من datagridview الى textbox العطر الرايق 2 380 31-07-21, 01:56 PM
آخر رد: العطر الرايق
  ممكن حل لمشكلة التعديل داخل DGv Ofealas 11 602 27-07-21, 09:32 PM
آخر رد: Ofealas
  ممكن طريقة نقل اسماء من datagridview الي اكثر من textbox العطر الرايق 1 357 27-07-21, 03:59 AM
آخر رد: aldery

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


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