15-10-17, 03:16 PM
السلام عليكم
استفساري بخصوص ككود اعادة الترقيم التلقائي
بعد البحث حصلت هذا الموضوع
http://vb4arb.com/vb/showthread.php?tid=7605
بس الكود ما عمل معاي
يطلع لي الغلط
القاعدة عندي
وهذا الكود
الغلط يقولي هنا
لا ادري السبب حاولت بس بدون فائده
ان شاءالله احصل الحل وشكرا
استفساري بخصوص ككود اعادة الترقيم التلقائي
بعد البحث حصلت هذا الموضوع
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()
لا ادري السبب حاولت بس بدون فائده
ان شاءالله احصل الحل وشكرا