[dubai.eig]

السلام عليكم

استفساري بخصوص ككود اعادة الترقيم التلقائي

بعد البحث حصلت هذا الموضوع
http://vb4arb.com/vb/showthread.php?tid=7605

بس الكود ما عمل معاي 

يطلع لي الغلط
   

القاعدة عندي 

كود :

CREATE TABLE [DBSetting] (
[id] INTEGER  PRIMARY KEY AUTOINCREMENT NOT NULL,
[score] VARCHAR(30)  NULL,
[contestn] VARCHAR(200)  NULL,
[station_callsign] VARCHAR(50)  NULL,
[Exchange_S] VARCHAR(20)  NULL,
[Exchange_R] VARCHAR(20)  NULL,
[mode] VARCHAR(50)  NULL,
[band] VARCHAR(50)  NULL,
[contestnyear] VARCHAR(200)  NULL,
[Continent] VARCHAR(50)  NULL,
[PFX] VARCHAR(50)  NULL,
[sn] VARCHAR(20)  NULL,
[cqz] VARCHAR(50)  NULL,
[itz] VARCHAR(50)  NULL
)

وهذا الكود

كود :

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


       If DS.Tables("DBSetting").Rows.Count = 0 Then Beep() : Exit Sub

       Try

           Application.DoEvents()
           Dim cmd As New SQLiteCommand("", Cn)

           Cn.Open()

           'ID كود حذف المفتاح من حقل الترقيم التلقائي الي اسمه  

           cmd.CommandText = "ALTER TABLE DBSetting DROP CONSTRAINT PrimaryKey"
           cmd.ExecuteNonQuery()



           ' ID كود حذف حقل الترقيم التلقائي الي اسمه  

           cmd.CommandText = "ALTER TABLE DBSetting DROP COLUMN ID "
           cmd.ExecuteNonQuery()



           'مع وضع مفتاح له ID كود انشاء حقل الترقيم التلقائي الي اسمه  

           cmd.CommandText = "ALTER TABLE DBSetting ADD COLUMN ID COUNTER CONSTRAINT [PrimaryKey] Primary key "
           cmd.ExecuteNonQuery()



           'تغيير نوعية الحقل من ترقيم تلقائي الى رقم
           cmd.CommandText = "ALTER TABLE DBSetting ALTER COLUMN ID Long"

           cmd.ExecuteNonQuery()

           Cn.Close()

           'تحديث قاعدة البيانات
           DS.Clear()
           DP.Fill(DS, "DBSetting")
           Grid()
           DataGridView1.AllowUserToAddRows = False
           MsgBox("تم بنجاح استعادة تسلسل السجلات", 64 + 524288, "نجاح")

       Catch ex As Exception

           Cn.Close()

           MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)

       End Try
   End Sub

الغلط يقولي هنا

كود :

           'ID كود حذف المفتاح من حقل الترقيم التلقائي الي اسمه  

           cmd.CommandText = "ALTER TABLE DBSetting DROP CONSTRAINT PrimaryKey"
           cmd.ExecuteNonQuery()

لا ادري السبب حاولت بس بدون فائده

ان شاءالله احصل الحل وشكرا