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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Video [VB.NET] كيف يمكنني عند حدث اضافة تاب جديد نسخ جميع ما فى التاب بالاوامر elhon.tec 0 32 منذ 8 ساعة مضت
آخر رد: elhon.tec
  [سؤال] مطلوب كود ربط combo box بقاعدة بيانات (اكسيس) BLACKBROWN5 1 26 منذ 9 ساعة مضت
آخر رد: tryold
Sad [VB.NET] كيفية تصميم قاعدة بيانات SQL Server وربطها مع الVS 2010 Ayman97 0 25 06-12-16, 04:34 PM
آخر رد: Ayman97
  ما هو كود حفظ البيانات من الداتا جريد فيو إلى قاعدة البيانات kofa 0 31 05-12-16, 07:53 PM
آخر رد: kofa
  انشاء قاعدة بيانات بإمتداد خاص بك thevirus 5 124 05-12-16, 03:09 PM
آخر رد: thevirus
  [سؤال] كيف اجعل البرنامج يحفظ بيانات؟ The Light Fire 9 133 05-12-16, 12:58 AM
آخر رد: ali.alfoly
  تغيير قاعدة البيانات الى .bak زيد زينوبي 3 54 03-12-16, 07:07 PM
آخر رد: ابراهيم النعيمي
  قاعدة البيانات لا تدعم اللغة العربية ؟؟؟؟؟؟ صبري زينوبي 13 210 03-12-16, 04:47 PM
آخر رد: صبري زينوبي
  [VB.NET] استدعاء بيانات من الاكسس لل vb.net مهند الموسوي 1 71 02-12-16, 03:14 PM
آخر رد: مهند الموسوي
  مطلوب تعديلات في هذه الاكواد بحيث تكون فعاله اكثر معتز الجازوي 2 75 28-11-16, 05:36 PM
آخر رد: معتز الجازوي

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


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