تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيف افرغ بيانات قاعدة بيانات SQL Server بحيث يرجع رقم ID من جديد الى 1 في كل الجداول
#1
السلام عليكم ورحمة الله وبركاته

كيف افرغ بيانات قاعدة بيانات SQL Server بحيث يرجع رقم ID من جديد الى 1 في كل الجداول ..
يعني اريد تجديد القاعدة البيانات من جديد لكن بدون حذف الجدوال والكلومز لاني اريد ارجاع التعديد التلقائي لل ID ...
وشكرا ,,
الرد }}}}
تم الشكر بواسطة:
#2

السلام عليكم ورحمة الله وبركاته






وما ستستفيد من إعادة ترقيم id إلى الرقم 1

إن المفتاح الأساسي في قاعدة البيانات ما هو إلا للإستدلال على الصف أو الصفوف في التعديل والحذف وبرمجيا في البحث ولا يستخدم للعرض كما يفعله البعض بشكل خاطئ.
وبالتالي لن يضيرك التعداد الذي وصل إليه، فلا تشغل بالك به.





السلام عليكم ورحمة الله وبركاته
الرد }}}}
تم الشكر بواسطة:
#3
@@أبورائد@@ كتب :
السلام عليكم ورحمة الله وبركاته






وما ستستفيد من إعادة ترقيم id إلى الرقم 1

إن المفتاح الأساسي في قاعدة البيانات ما هو إلا للإستدلال على الصف أو الصفوف في التعديل والحذف وبرمجيا في البحث ولا يستخدم للعرض كما يفعله البعض بشكل خاطئ.
وبالتالي لن يضيرك التعداد الذي وصل إليه، فلا تشغل بالك به.





السلام عليكم ورحمة الله وبركاته

فاهم ما تقصده اخي ,, لكن انا حاولت استفيد من رقم id كرقم صفحة لكل نموذج ,,
الرد }}}}
تم الشكر بواسطة:
#4
السلام عليكم ورحمة الله وبركاته

الكود أدناه يفرغ الجدول المحدد من كل البيانات ويعيد الترقيم من البداية للرقم واحد .

كود :
Private Sub ClearTableAndRestAutonumber(ByVal tableName As String)


        Dim YourDatabaseName As String = "اكتب هنا اسم قاعدة بياناتك في السيكوال سيرفر"


        Dim conStr As String = ("Server=.\sqlexpress; DataBase=" & YourDatabaseName & "; Integrated Security=SSPI")


        Dim DataBaseConnection As New System.Data.SqlClient.SqlConnection(conStr)


        Try
            Dim sql As String = ""


            sql = String.Format("TRUNCATE TABLE {0}", tableName.Trim)


            Dim CMD = New System.Data.SqlClient.SqlCommand(sql, DataBaseConnection)


            If DataBaseConnection.State = ConnectionState.Open Then


                DataBaseConnection.Close()


            End If


            DataBaseConnection.Open()


            CMD.ExecuteNonQuery()


            CMD.Dispose()


            DataBaseConnection.Close()


        Catch ex As System.Data.SqlClient.SqlException


            MsgBox(ex.Message, MsgBoxStyle.Exclamation, "تفريغ البيانات وإعادة الترقيم التلقائي")


        End Try


    End Sub

كما قلت سابقاً يرجى الحذر فهذا الكود يقوم بمسح جميع بيانات الجدول .

***
**
*
(وَقُل رَّبِّ زِدْنِي عِلْمًا)

الرد }}}}
تم الشكر بواسطة:
#5
kslawy كتب :السلام عليكم ورحمة الله وبركاته

الكود أدناه يفرغ الجدول المحدد من كل البيانات ويعيد الترقيم من البداية للرقم واحد .

كود :
Private Sub ClearTableAndRestAutonumber(ByVal tableName As String)


        Dim YourDatabaseName As String = "اكتب هنا اسم قاعدة بياناتك في السيكوال سيرفر"


        Dim conStr As String = ("Server=.\sqlexpress; DataBase=" & YourDatabaseName & "; Integrated Security=SSPI")


        Dim DataBaseConnection As New System.Data.SqlClient.SqlConnection(conStr)


        Try
            Dim sql As String = ""


            sql = String.Format("TRUNCATE TABLE {0}", tableName.Trim)


            Dim CMD = New System.Data.SqlClient.SqlCommand(sql, DataBaseConnection)


            If DataBaseConnection.State = ConnectionState.Open Then


                DataBaseConnection.Close()


            End If


            DataBaseConnection.Open()


            CMD.ExecuteNonQuery()


            CMD.Dispose()


            DataBaseConnection.Close()


        Catch ex As System.Data.SqlClient.SqlException


            MsgBox(ex.Message, MsgBoxStyle.Exclamation, "تفريغ البيانات وإعادة الترقيم التلقائي")


        End Try


    End Sub

كما قلت سابقاً يرجى الحذر فهذا الكود يقوم بمسح جميع بيانات الجدول .

***
**
*

شكرا اخي ,, قبل ان اغامر في تجربته هل يمسح ال Cloums ؟
الرد }}}}
تم الشكر بواسطة:
#6
لا يمسح الأعمدة ... فقط يمسح البيانات
(وَقُل رَّبِّ زِدْنِي عِلْمًا)

الرد }}}}
تم الشكر بواسطة:
#7
شكرا لكم ,,, جار التجربة ,, .
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  عدم ظهور بيانات في الكومبوبوكس العيدروس 7 65 منذ 2 ساعة مضت
آخر رد: سعود الشامان
  ممكن سؤال لأهل الخبره خاص بالتخزين sql server lemozza 5 69 20-10-17, 09:56 PM
آخر رد: lemozza
  عمل شريط متحرك من قاعدة البيانات hglogtd 24 302 15-10-17, 11:54 PM
آخر رد: hglogtd
  [VB.NET] قاعدة بيانات اكسس hglogtd 8 139 14-10-17, 03:38 PM
آخر رد: hglogtd
  توقف قاعدة البيانات عن الاستجابة وعدم قبول اي تعديلات nassery99 2 61 09-10-17, 06:34 PM
آخر رد: nassery99
  مساعده بفكره بناء جدول بيانات ( اداره رواتب الموظفين) Rabeea Qbaha 4 127 09-10-17, 12:22 AM
آخر رد: Amir_alzubidy
  كيف الاتصال بقاعدة بيانات SQLite أحمد إبراهيم سعد 4 141 04-10-17, 12:22 PM
آخر رد: أحمد إبراهيم سعد
  [VB.NET] سؤال :- طريقة جميع الوقت من قاعدة البيانات dubai.eig 4 131 03-10-17, 04:02 PM
آخر رد: dubai.eig
  [VB.NET] مشكلة ظهور جدولين من قاعدة بيانات أكسس في أداة DataGridView Waleed Al-Khamesy 7 149 30-09-17, 11:50 PM
آخر رد: Abu Ehab
  مشكلة فالكوكاييز تشفير بيانات الكوكاييز الماجيك مسعد 1 69 28-09-17, 11:16 AM
آخر رد: الماجيك مسعد

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


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