منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

@@أبورائد@@ كتب :
السلام عليكم ورحمة الله وبركاته






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

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





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

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

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


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

***
**
*

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 ؟

لا يمسح الأعمدة ... فقط يمسح البيانات