23-03-17, 07:32 PM
السلام عليكم
شباب اواجه مشكلة الترقيم التلقائي والكثير منا يواجهونها
مثال :
رقم 1 -------- عمار
رقم 3 --------- احمد
في حالة الاضافة شخص جديد
رقم 4 --------- عيسى
المفروض يكون رقم 2-------- عيسى حتى يكونون بالترتيب من 1 - 10 وهكذا
بعد البحث الطويل صار لي 8 ساعات ابحث تقريبا حصلت على هذا الكود ويقوم بترتيبهم
ملاحظة : لاتنسى وضع كود الاتصال
واذا كان هناك كود اقوى واسهل وافضل الرجاء اخبارنا به
صراحة بالشرح بدون ما اشوف الكود مافهم ويش تقصدون او تتكلمون عن ويش افضل تحطون الكود وتشرحونه لنا
اشخاص مثلي استوعابهم ضعيف
شباب اواجه مشكلة الترقيم التلقائي والكثير منا يواجهونها
مثال :
رقم 1 -------- عمار
رقم 3 --------- احمد
في حالة الاضافة شخص جديد
رقم 4 --------- عيسى
المفروض يكون رقم 2-------- عيسى حتى يكونون بالترتيب من 1 - 10 وهكذا
بعد البحث الطويل صار لي 8 ساعات ابحث تقريبا حصلت على هذا الكود ويقوم بترتيبهم
كود :
If DS.Tables("Tab1").Rows.Count = 0 Then Beep() : Exit Sub
Try
Application.DoEvents()
Dim cmd As New OleDb.OleDbCommand("", Cn)
Cn.Open()
'ID كود حذف المفتاح من حقل الترقيم التلقائي الي اسمه
cmd.CommandText = "ALTER TABLE Tab1 DROP CONSTRAINT PrimaryKey"
cmd.ExecuteNonQuery()
' ID كود حذف حقل الترقيم التلقائي الي اسمه
cmd.CommandText = "ALTER TABLE Tab1 DROP COLUMN ID "
cmd.ExecuteNonQuery()
'مع وضع مفتاح له ID كود انشاء حقل الترقيم التلقائي الي اسمه
cmd.CommandText = "ALTER TABLE Tab1 ADD COLUMN ID COUNTER CONSTRAINT [PrimaryKey] Primary key "
cmd.ExecuteNonQuery()
'تغيير نوعية الحقل من ترقيم تلقائي الى رقم
cmd.CommandText = "ALTER TABLE Tab1 ALTER COLUMN ID Long"
cmd.ExecuteNonQuery()
Cn.Close()
'تحديث قاعدة البيانات
DS.Clear()
DP.Fill(DS, "Tab1")
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
ملاحظة : لاتنسى وضع كود الاتصال
كود :
Dim Cn As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & Application.StartupPath & "\db1.mdb;")
Dim DS As New DataSet
Dim DP As New OleDb.OleDbDataAdapter("Select * from Tab1", Cn)
واذا كان هناك كود اقوى واسهل وافضل الرجاء اخبارنا به
صراحة بالشرح بدون ما اشوف الكود مافهم ويش تقصدون او تتكلمون عن ويش افضل تحطون الكود وتشرحونه لنا
اشخاص مثلي استوعابهم ضعيف