تقييم الموضوع :
  • 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 137 22-05-17, 04:43 PM
آخر رد: Amir_alzubidy
  البحث في قاعدة بيانات اكسس hatem555 6 135 22-05-17, 02:53 AM
آخر رد: hatem555
  باستخراج من قاعدة البيانات بشرط listbox items rabeh.ram 0 72 19-05-17, 01:56 PM
آخر رد: rabeh.ram
  [سؤال] ممكن مسساعدة في تصدير مشروع بقاعدة بيانات MySql & vb.net2013 فراس الغزي 1 59 19-05-17, 12:45 PM
آخر رد: Adrees
  قاعدة البيانات تاكل التحديثات rabeh.ram 7 131 14-05-17, 11:01 AM
آخر رد: rabeh.ram
  [VB.NET] عايز اعرف ازاى اعمل برنامج بقاعدة بيانات xaml MOSTAFA.KAMEL 3 119 13-05-17, 11:01 PM
آخر رد: العواد الصغير
  نسخ بيانات جدول الى جدول كرم ابوهشام 1 47 13-05-17, 07:32 PM
آخر رد: Amir_alzubidy
  [سؤال] كيفية حفظ صورة بصيغة pdf الى قاعدة البيانات مصطفى_ظيمة 17 296 13-05-17, 01:06 PM
آخر رد: مصطفى_ظيمة
  مساعده في قاعدة بيانات بالفيجوال a_abdullah 9 286 11-05-17, 11:54 AM
آخر رد: khaled12345
  كود ربط الصورة مع بيانات الموظف a.baomar 3 88 09-05-17, 02:25 PM
آخر رد: أبووسم

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


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