[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
اخي واستاذي المحترم عبد الله الدوسري جزاك الله كل خير على ماتقدمه من علم وخبرة لكل اعضاء المنتدى 
كلامك حول اعادة الترقيم صحيح من حيث عدم حذف الحقل ويجب اعادة تصفيره من داخل  sqlserver وفق الدالة المذكورة
والمهم هو الا يمكننا تنفيذ هذه الدالة من خلال فيجوال ستوديو؟
هنا اخذت نفسا عميقا وقلت في نفسي لم لا اجرب!!! فالتجربة خير برهان وهي الفيصل في صحة ماهو مطلوب 
وفعلا قمت بكتابة الكود ووضعته في بوتون في برنامجي في فيجوال ستوديو والذي فيه انشئ قاعدة البيانات  من نوع sqlserver والجداول و premarykey وغيرها 
قمت اولا بحذف 4 من الصفوف الاخيرة من الجدول في Sqlserver حيث كان الترقيم يقف عند 10فاصبح لدي 6 صفوف ويجب بعد تنفيذ الدالة ان يبدأ الترقيم من رقم 7
ونفذت الدالة وكانت ناجحة حيث اعاد الترقيم وبدأ الترقيم من رقم 7 وصاعدا
لذلك قمت بهذا الرد ليستفيد منه كل من يريد الاستيضاح والمعرفة واليكم الكود حسب المسميات التي عندي
السيرفر - قاعدة البيانات - اسم الجدول وهو موجود في مربع نص Txt_TblName حقل الترقيم 

كود :

.\SQLSERVER2014 - Ciwan - Cv_Personal - ID

وهذا هو الكود الذي استخدمته لذلك

كود :

 Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
       If Cmb_ServerName.Text = String.Empty Then
           MsgBox("الرجاء تحديد اسم السيرفير  ", MsgBoxStyle.Exclamation + MsgBoxStyle.MsgBoxRight + MsgBoxStyle.MsgBoxRtlReading, "")
           Exit Sub
       ElseIf CmDBname.Text = String.Empty Then
           MsgBox("الرجاء كتابة اسم قاعدة البيانات ", MsgBoxStyle.Exclamation + MsgBoxStyle.MsgBoxRight + MsgBoxStyle.MsgBoxRtlReading, "")
           Exit Sub
       End If
       If Txt_TblName.Text = String.Empty Then
           MsgBox("اختر اسم الجدول المراد اعادة ترقيمه", MsgBoxStyle.Exclamation + MsgBoxStyle.MsgBoxRight + MsgBoxStyle.MsgBoxRtlReading, "")
           Exit Sub
       End If
       Try
           If Prd.FindDatabases(Cmb_ServerName, Cmb_Database, CmDBname) > 0 Then ' التحقق من اسم السيرفر واسم قاعدة البيانات
               If MessageBox.Show("هل انت متأكد من اعادة ترقيم الجدول", "تأكيد ", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then

                   Dim StrSQL As String = "DBCC CHECKIDENT ('" & Txt_TblName.Text & "', RESEED, 0);"
                   Dim cn As New SqlClient.SqlConnection("Server =" & Cmb_ServerName.Text & ";database=" & Cmb_Database.Text & ";integrated security=True")
                   Dim StrTableName As String = "Txt_TblName"
                   Dim da As New SqlClient.SqlDataAdapter(StrSQL, cn)
                   Dim dt As New DataSet
                   da.Fill(dt, StrTableName)
                   MsgBox(" تم اعادة ترقيم الجدول   {" & Txt_TblName.Text & "}بنجاح ", MsgBoxStyle.Information + MsgBoxStyle.MsgBoxRight + MsgBoxStyle.MsgBoxRtlReading)
               End If
           End If
       Catch ex As Exception

       End Try

   End Sub

اخي مصطفى كلنا نتعلم من بعض نتميز عن بعضنا بتجربة كل واحد منا عن الاخر اضافة للمعلومات والخبرة التي اكتسبها  
سعداء ان شاء الله بأي معلومة جديدة
دمتم بألف خير