تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
أحتاج كود اعادة ترقيم حقل المسلسل بعد حذف صف ما في الجدول
#1
السلام عليكم ورحمة الله وبركاته

إخواني الكرام تحياتي لكم جميعا

اريد كود يقوم باعادة ترقيم حقل المسلسل في جدول sql server 2008 .

وذلك بعد حذف سجل ما من الجدول

أو حل لهذه المشكلة

جزاكم الله خيرا
الرد }}}
تم الشكر بواسطة: سعود
#2
(08-09-17, 07:02 PM)Abdelazez.Ahmad كتب : السلام عليكم ورحمة الله وبركاته

إخواني الكرام تحياتي لكم جميعا

اريد كود يقوم باعادة ترقيم حقل المسلسل في جدول sql server 2008 .

وذلك بعد حذف سجل ما من الجدول

أو حل لهذه المشكلة

جزاكم الله خيرا


ضع هذا الكود بعد كود الحذف


PHP كود :
Try
            Application.DoEvents()
            Dim cmd As sqlDbCommand = New sqlDbCommand("SELECT field1,field2  from Table order by id "Con)
            da = New OleDbDataAdapter(cmd)
            'Dim cmd As New OleDb.OleDbCommand("", con)
            '
cmd.Connection Con()
            If Not con.State ConnectionState.Open Then
                con
.Open()
            End If
            ' ID كود حذف المفتاح من حقل الترقيم التلقائي الي اسمه   
            cmd.CommandText = "ALTER TABLE Table DROP CONSTRAINT PrimaryKey"
            cmd.ExecuteNonQuery()
            ' 
ID كود حذف حقل الترقيم التلقائي الي اسمه  
            cmd
.CommandText "ALTER TABLE Table DROP COLUMN id"
            cmd.ExecuteNonQuery()
            'مع وضع مفتاح له ID كود انشاء حقل الترقيم التلقائي الي اسمه  
            cmd1.CommandText = "ALTER TABLE Table ADD COLUMN id COUNTER CONSTRAINT [PrimaryKey] Primary key"
            cmd.ExecuteNonQuery()
            '
تحديث قاعدة البيانات
            ds 
= New DataSet
            ds
.Clear()
            da.Fill(ds"Table")

            con.Close()
        Catch ex As Exception
         End 
Try 
Mish3l
الرد }}}
#3
ابسط طريقة بحسب ما ارى ان تقم بعمل عمود الرقم (id) غير تلقائي 
بعد ذالك في الكود البرمجي عند كل اضافه معلوماتجديده للجدول تقوم بقرائه اخر رقم (id) من الجدول و تضيف اليه 1

وهذه هي الطريقه :

فنكشن لقرائه اخر رقم من الجدول :

 
كود :
Private Function GetRowsCount() As Integer
        Dim da As New SqlDataAdapter("select * from table", SQL.conn)
        Dim ds As New DataSet
        da.Fill(ds)
        Return ds.Tables(0).Rows.Count
    End Function

بعد ذلك عند الاضافه تقوم بوضع هذا الكود ليضاف لل id :
GetRowsCount() + 1
هكذا تحل مشكلتك صديقي
الرد }}}
تم الشكر بواسطة: سعود
#4
جزاك الله خيرا أخي الكريم ( [b]tryold[/b] ) جاري التجربة
أسأل الله العظيم أن يجعل من الخير نصيبا بالدنيا والآخرة

جزاك الله خيرا أخي الكريم (  [b]Rabeea Qbaha  ) [/b]

[b]فقد أتيت بالمطلوب وما أريده بالظبط[/b]
[b]أسأل الله العظيم أن يجعل من الخير نصيبا بالدنيا والآخرة[/b]

(08-09-17, 11:56 PM)Rabeea Qbaha كتب : ابسط طريقة بحسب ما ارى ان تقم بعمل عمود الرقم (id) غير تلقائي 
بعد ذالك في الكود البرمجي عند كل اضافه معلوماتجديده للجدول تقوم بقرائه اخر رقم (id) من الجدول و تضيف اليه 1

وهذه هي الطريقه :

فنكشن لقرائه اخر رقم من الجدول :

 
كود :
Private Function GetRowsCount() As Integer
        Dim da As New SqlDataAdapter("select * from table", SQL.conn)
        Dim ds As New DataSet
        da.Fill(ds)
        Return ds.Tables(0).Rows.Count
    End Function

بعد ذلك عند الاضافه تقوم بوضع هذا الكود ليضاف لل id :
GetRowsCount() + 1
هكذا تحل مشكلتك صديقي
[b]Rabeea Qbaha
[/b]أخي الكريم فكرتك صحيحة مليون المية لكن أود ألفت نظرك لحاجة مهمة جدا
انا جربت طريقتك هذه من قبل وبها مشكلة وهي
هب انك عندك بالجدول 10 عناصر  وتم حذف الصف رقم 7
سيكون ترتيب الجدول كالتالي 1 - 2 - 3 - 4 - 5 - 6 - 8 - 9 - 10 بدون الترتيب 7 صح ؟
سيكون اخر رقم 10 وعدد الصفوف الفعلية 9 وبطريقتك التي تعتمد علي احضار عدد الصفوف + 1 سيحدث تكرار بالجدول وهذا غير منطقي ولا مطلوب

لكن أن اريد
أكبر قيمة بحقل الـ ID ومن ثم اضافة عليها 1 وبذلك لا يحدث خطا عند اضافة عنصر جديد

فالمطلوب أكبر قيمة بحقل الـ Id
الرد }}}
تم الشكر بواسطة: سعود
#5
لقد جربت فكرة طرات في بالي وهي اضافة عمود ليس ترقيم تلقائي وهذه الفكرة
كود :
Public Class Form1
   Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=|DataDirectory|\db.accdb"
   Dim con As New OleDb.OleDbConnection(str)
   Dim dt As DataTable
   Dim da As OleDb.OleDbDataAdapter
   Dim cmd As OleDb.OleDbCommandBuilder

   Private Function gid() As Integer
       Try
           Dim cm As New OleDb.OleDbCommand("select Last(tid) from tb", con)
           If con.State = ConnectionState.Closed Then con.Open()
           Return cm.ExecuteScalar
       Catch ex As Exception
           Return Nothing
       End Try
   End Function

   Private Sub gd()
       ListBox1.DataSource = Nothing
       dt = New DataTable
       da = New OleDb.OleDbDataAdapter("select * from tb", con)
       cmd = New OleDb.OleDbCommandBuilder(da)
       da.Fill(dt)
       ListBox1.DataSource = dt
       ListBox1.DisplayMember = "tid"
   End Sub
   Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
       gd()
   End Sub

   Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
       Dim row As DataRow = dt.NewRow
       row(0) = gid() + 1
       dt.Rows.Add(row)
       da.Update(dt)
       gd()
       ListBox1.SelectedIndex = ListBox1.Items.Count - 1
   End Sub

   Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
       If ListBox1.SelectedIndex < 0 Then MsgBox("اختر الرقم المراد حذفه من القائمة", MsgBoxStyle.Critical, "") : Return

       dt.Rows(ListBox1.SelectedIndex).Delete()
       da.Update(dt)
       gd()
   End Sub

   Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
       ListBox1.DataSource = Nothing

       For r As Integer = 0 To dt.Rows.Count - 1
           Dim row As DataRow = dt.Rows(r)
           row.BeginEdit()
           row(0) = r
           row.EndEdit()
           da.Update(dt)
       Next
       gd()
   End Sub
End Class


الفكرة تدور حول تحديث الرقم الخاص بعمود الترقيم ...لقد استخدمت عمود واحد فقط لانه مدار الفكرة .

الدالة بالكود لم استخدمها مع اني كتبتها 
كود :
Private Function gid() As Integer
       Try
           Dim cm As New OleDb.OleDbCommand("select Last(tid) from tb", con)
           If con.State = ConnectionState.Closed Then con.Open()
           Return cm.ExecuteScalar
       Catch ex As Exception
           Return Nothing
       End Try
   End Function


الملفات المرفقة
.zip   Testing.zip (الحجم : 39.57 ك ب / التحميلات : 267)
الرد }}}
تم الشكر بواسطة:
#6
(09-09-17, 04:26 AM)سعود كتب : لقد جربت فكرة طرات في بالي وهي اضافة عمود ليس ترقيم تلقائي وهذه الفكرة
كود :
Public Class Form1
   Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=|DataDirectory|\db.accdb"
   Dim con As New OleDb.OleDbConnection(str)
   Dim dt As DataTable
   Dim da As OleDb.OleDbDataAdapter
   Dim cmd As OleDb.OleDbCommandBuilder

   Private Function gid() As Integer
       Try
           Dim cm As New OleDb.OleDbCommand("select Last(tid) from tb", con)
           If con.State = ConnectionState.Closed Then con.Open()
           Return cm.ExecuteScalar
       Catch ex As Exception
           Return Nothing
       End Try
   End Function

   Private Sub gd()
       ListBox1.DataSource = Nothing
       dt = New DataTable
       da = New OleDb.OleDbDataAdapter("select * from tb", con)
       cmd = New OleDb.OleDbCommandBuilder(da)
       da.Fill(dt)
       ListBox1.DataSource = dt
       ListBox1.DisplayMember = "tid"
   End Sub
   Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
       gd()
   End Sub

   Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
       Dim row As DataRow = dt.NewRow
       row(0) = gid() + 1
       dt.Rows.Add(row)
       da.Update(dt)
       gd()
       ListBox1.SelectedIndex = ListBox1.Items.Count - 1
   End Sub

   Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
       If ListBox1.SelectedIndex < 0 Then MsgBox("اختر الرقم المراد حذفه من القائمة", MsgBoxStyle.Critical, "") : Return

       dt.Rows(ListBox1.SelectedIndex).Delete()
       da.Update(dt)
       gd()
   End Sub

   Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
       ListBox1.DataSource = Nothing

       For r As Integer = 0 To dt.Rows.Count - 1
           Dim row As DataRow = dt.Rows(r)
           row.BeginEdit()
           row(0) = r
           row.EndEdit()
           da.Update(dt)
       Next
       gd()
   End Sub
End Class


الفكرة تدور حول تحديث الرقم الخاص بعمود الترقيم ...لقد استخدمت عمود واحد فقط لانه مدار الفكرة .

الدالة بالكود لم استخدمها مع اني كتبتها 
كود :
Private Function gid() As Integer
       Try
           Dim cm As New OleDb.OleDbCommand("select Last(tid) from tb", con)
           If con.State = ConnectionState.Closed Then con.Open()
           Return cm.ExecuteScalar
       Catch ex As Exception
           Return Nothing
       End Try
   End Function

هذا ما كنت أفكر فيه بالفعل ( اضافة عمود ليس ترقيم تلقائي ) 
جزاك الله خيرا أخي الكريم / سعود
أسأل الله العظيم أن يجزيك خيرا في الدنيا والآخرة
الرد }}}
تم الشكر بواسطة: سعود
#7
(09-09-17, 04:26 AM)سعود كتب : لقد جربت فكرة طرات في بالي وهي اضافة عمود ليس ترقيم تلقائي وهذه الفكرة
كود :
Public Class Form1
   Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=|DataDirectory|\db.accdb"
   Dim con As New OleDb.OleDbConnection(str)
   Dim dt As DataTable
   Dim da As OleDb.OleDbDataAdapter
   Dim cmd As OleDb.OleDbCommandBuilder

   Private Function gid() As Integer
       Try
           Dim cm As New OleDb.OleDbCommand("select Last(tid) from tb", con)
           If con.State = ConnectionState.Closed Then con.Open()
           Return cm.ExecuteScalar
       Catch ex As Exception
           Return Nothing
       End Try
   End Function

   Private Sub gd()
       ListBox1.DataSource = Nothing
       dt = New DataTable
       da = New OleDb.OleDbDataAdapter("select * from tb", con)
       cmd = New OleDb.OleDbCommandBuilder(da)
       da.Fill(dt)
       ListBox1.DataSource = dt
       ListBox1.DisplayMember = "tid"
   End Sub
   Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
       gd()
   End Sub

   Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
       Dim row As DataRow = dt.NewRow
       row(0) = gid() + 1
       dt.Rows.Add(row)
       da.Update(dt)
       gd()
       ListBox1.SelectedIndex = ListBox1.Items.Count - 1
   End Sub

   Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
       If ListBox1.SelectedIndex < 0 Then MsgBox("اختر الرقم المراد حذفه من القائمة", MsgBoxStyle.Critical, "") : Return

       dt.Rows(ListBox1.SelectedIndex).Delete()
       da.Update(dt)
       gd()
   End Sub

   Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
       ListBox1.DataSource = Nothing

       For r As Integer = 0 To dt.Rows.Count - 1
           Dim row As DataRow = dt.Rows(r)
           row.BeginEdit()
           row(0) = r
           row.EndEdit()
           da.Update(dt)
       Next
       gd()
   End Sub
End Class


الفكرة تدور حول تحديث الرقم الخاص بعمود الترقيم ...لقد استخدمت عمود واحد فقط لانه مدار الفكرة .

الدالة بالكود لم استخدمها مع اني كتبتها 
كود :
Private Function gid() As Integer
       Try
           Dim cm As New OleDb.OleDbCommand("select Last(tid) from tb", con)
           If con.State = ConnectionState.Closed Then con.Open()
           Return cm.ExecuteScalar
       Catch ex As Exception
           Return Nothing
       End Try
   End Function
أخي الكريم / سعود
مع الاسف الكود لم يعمل معي الفارق الوحيد بيني وبينك ان قاعدة البيانات دي Sql server 2008

كود :
       Try
           Dt = New DataTable
           SQL = "select * from Tab_Users"
           Da = New SqlDataAdapter(SQL, Con)
           Da.Fill(Dt)

           Lst_Users.DataSource = Nothing

           For n As Integer = 0 To Dt.Rows.Count - 1

               Dim rr As DataRow = Dt.Rows(n)

               rr.BeginEdit()
               rr(1) = n + 1
               rr.EndEdit()
           Next
           Da.Update(Dt)

           fill_lstbox()

       Catch ex As Exception
           MsgBox(ex.Message)
       End Try
مع اني انشأت حقل اخر للتسلسل بدون مفتاح أساسي .

فهل ممكن نحل المشكلة بعمل دالة ترجع اكبر قيمة في حقل المسلسل ولما نضيف عنصر جديد نضيف القيمة دي + 1
انا عملت لهذه الطريقة كل الاحتمالات وكلها صحيحة بدون مشاكل ؟

بس مش عارف طريقة احضار اكبر قيمة في الحقل بالكود كيف ؟
الرد }}}
تم الشكر بواسطة:
#8
كود :
  Sub CL()
       Dim GetCode As String = "0"
       CMD = New SqlCommand()
       CMD.Connection = con
       CMD.CommandText = "SELECT TOP(1) * FROM أسم الجدول ORDER BY أسم العمود DESC"
       Try
           con.Open()
           Dim reader As SqlDataReader = CMD.ExecuteReader(CommandBehavior.SingleRow)
           If (reader.HasRows = True) Then
               While reader.Read()
                   GetCode = (reader.GetString(reader.GetOrdinal("أسم العمود")))
               End While
           End If
           reader.Close()
       Catch ex As System.Exception
           MsgBox(ex.Message)
       Finally
           con.Close()
       End Try

       If (GetCode = "0") Then
           ' إذا حاب تظيف لرقم تصنيف
           txt_Num_Recorde.Text = "C00001"

       ElseIf (GetCode <> "0") Then
           Dim TotalCodeWithoutLable As String = GetCode.Count - 1
           Dim OldNum As String = GetCode.Substring(GetCode.Length - TotalCodeWithoutLable)
           txt_Num_Recorde.Text = "C" + Format(OldNum + 1, "00000").ToString

       End If
   End Sub
الرد }}}
تم الشكر بواسطة: سعود , اسامه الهرماوي
#9
إقتباس :بس مش عارف طريقة احضار اكبر قيمة في الحقل بالكود كيف ؟
هل هذه فقط هي النقطة التي لم تعمل؟

استبدل Last بـ Max بالاستعلام ويمشي ان شالله

كود :
Private Function gid() As Integer
       ' Try
       Dim cm As New SqlClient.SqlCommand("select Max(tid) from tb", con)
       If con.State = ConnectionState.Closed Then con.Open()
       Return cm.ExecuteScalar
       '  Catch ex As Exception
       'Return Nothing
       ' End Try
   End Function

بالنسبة للدالة الحصول على اعلى رقم اذا كان فارغ يظهر خطا لكن لو نجعل الدالة فيها Try وعند الكاتش نعيد Nothng فان الرقم المعاد يكون 0 وهنا اختصار عن كتابة كود كشف عدد السجلات.

الكلاس بعد التعديل
كود :
Public Class Form1
   Dim str As String = "server=(Local)\sqlexpress;Initial Catalog=ForTesting;Integrated Security=True"
   Dim con As New SqlClient.SqlConnection(str)
   Dim dt As DataTable
   Dim da As SqlClient.SqlDataAdapter
   Dim cmd As SqlClient.SqlCommandBuilder

   Private Function gid() As Integer
       Try
           Dim cm As New SqlClient.SqlCommand("select Max(tid) from tb", con)
           If con.State = ConnectionState.Closed Then con.Open()
           Return cm.ExecuteScalar
       Catch ex As Exception
           Return Nothing
       End Try
   End Function

   Private Sub gd()
       ListBox1.DataSource = Nothing
       dt = New DataTable
       da = New SqlClient.SqlDataAdapter("select * from tb", con)
       cmd = New SqlClient.SqlCommandBuilder(da)
       da.Fill(dt)
       ListBox1.DataSource = dt
       ListBox1.DisplayMember = "tid"
   End Sub
   Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
       gd()
   End Sub

   Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
       Dim row As DataRow = dt.NewRow
       row(0) = gid() + 1
       dt.Rows.Add(row)
       da.Update(dt)
       gd()
       ListBox1.SelectedIndex = ListBox1.Items.Count - 1
   End Sub

   Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
       If ListBox1.SelectedIndex < 0 Then MsgBox("اختر الرقم المراد حذفه من القائمة", MsgBoxStyle.Critical, "") : Return

       dt.Rows(ListBox1.SelectedIndex).Delete()
       da.Update(dt)
       gd()
   End Sub

   Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
       ListBox1.DataSource = Nothing

       For r As Integer = 0 To dt.Rows.Count - 1
           Dim row As DataRow = dt.Rows(r)
           row.BeginEdit()
           row(0) = r
           row.EndEdit()
           da.Update(dt)
       Next
       gd()
   End Sub

 
End Class


الملفات المرفقة
.zip   Testing_Edited.zip (الحجم : 51.28 ك ب / التحميلات : 168)
الرد }}}
تم الشكر بواسطة: مبرمج مبتدا , مبرمج مبتدا
#10
جزاك الله خيرا أخي الكريم / طلال

= = = = = = = = = = = = =
جزاك الله خيرا أخي الكريم / سعود
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] اعادة توجيه للرابط ميدو الفنان 0 67 13-03-24, 04:48 PM
آخر رد: ميدو الفنان
  احتاج كود اعادة الترقيم في السنة الجديدة ranosh 3 456 27-11-23, 01:25 AM
آخر رد: justforit
  ممكن كود ترقيم تلقائي في الداتا غريد فيو المبرمج البسيط 16 10,577 08-11-23, 01:44 AM
آخر رد: الحزين اليماني
  [VB.NET] كيف يمكنني إعداد ترقيم تلقائي ويتجدد الترقيم في كل يوم Osama_NY 8 2,755 04-11-23, 01:42 PM
آخر رد: الحزين اليماني
  اريد ترقيم الداتا جريد فيو سمير جمال 10 5,075 29-04-23, 02:01 AM
آخر رد: lar
  فحص الاسماء الموجودة في الجدول من خلال الداتا جريد فيو yosif 5 747 22-04-23, 07:57 PM
آخر رد: yosif
  ترقيم تلقائي في الداتا جريد فيو مرتبط بجدول في قاعدة البيانات yosif 1 559 17-04-23, 07:03 AM
آخر رد: Taha Okla
  [VB.NET] اعادة الترقيم بعد الحذف aminesori 7 1,073 25-02-23, 01:31 PM
آخر رد: kebboud
  كيفية تمرير اسم الجدول في جملة الاستعلام atefkhalf2004 4 715 13-02-23, 10:13 AM
آخر رد: atefkhalf2004
  [VB.NET] طلب كود ترقيم معين AMAZ1972AMAZ 2 383 28-12-22, 01:08 AM
آخر رد: AMAZ1972AMAZ

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


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