تقييم الموضوع :
  • 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
شكرا لكم ,,, جار التجربة ,, .
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  عن الحذف من قاعدة البيانات ؟ yahya3215 0 7 منذ 1 ساعه مضت
آخر رد: yahya3215
  [VB.NET] مشكلة في حفظ بيانات من الجدولين dark1459 8 128 25-02-17, 10:35 PM
آخر رد: dark1459
  مشكلة في اجبار المستخدم ان يحفظ صورة في قاعدة بيانات shado1796 96 6,303 25-02-17, 04:03 AM
آخر رد: khodor1985
  ازاى اصمم جدول فى قاعدة بيانات 2D noway 5 117 20-02-17, 04:27 AM
آخر رد: khodor1985
  استفسار عن تعبئة combobox من قاعدة البيانات المتألق9 2 82 16-02-17, 11:57 AM
آخر رد: المتألق9
  ما الفرق بين اضافة قاعدة البيانات عن طريق الكود و اضافى قاعدة البيانات عن طريق add ne noway 1 63 12-02-17, 08:06 PM
آخر رد: مساعدة
  [VB.NET] قاعدة بيانات SQL 2008R2 محمد بوقزاحة 5 108 09-02-17, 03:31 PM
آخر رد: مساعدة
  [سؤال] مشكلة في قاعدة البيانات عبدالرحمن المكاوي 2 67 08-02-17, 05:43 PM
آخر رد: عبدالرحمن المكاوي
  قاعدة بيانات صيدلية amrdipo 7 4,586 07-02-17, 05:49 PM
آخر رد: Amir_alzubidy
  حذف صف ومايتعلق به بجميع الجداول abdulla2 9 185 04-02-17, 02:05 AM
آخر رد: abdulla2

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


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