+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : ترتيب ارقام السجلات بالتسلسل (/showthread.php?tid=5683)
الصفحات:
1
2
ترتيب ارقام السجلات بالتسلسل - smash - 15-10-12
السلام عليكم
عملت برنامج بقاعدة بيانات اكسس وتم تعريف id بأن مفتاح رئيسي
لكن عند عمل البرنامج وجدت عدم تسلسل ارقام السجلات
السجلات المدخلة 100 وارقام التسلسل وصلت الى 150
ما الحل ؟؟
ترتيب ارقام السجلات بالتسلسل - amgadtamer - 15-10-12
يرجي التوضيح حتي يمكن المساعده
ترتيب ارقام السجلات بالتسلسل - Abu Ehab - 16-10-12
نــــــــعم . ... يحدث هذا لأنك تقوم بحذف بعض السجلات وبما أن الحقل ترقيم تلقائي لا يتراجع في الترقيم .
الحل :
حـذف الحقل وأعادة أنشــــــــاءه من جديد واعادة الترقيم المتسلسل .
أليـــــــــــك الكود :
PHP كود :
Try
'''''' Abu Ehab
Application.DoEvents()
If Cn.State = ConnectionState.Open Then Cn.Close()
Dim ReNomCmd As New OleDb.OleDbCommand
Cn.Open()
'--------------------------------------------------------------
With ReNomCmd
.Connection = Cn
.CommandText = "ALTER TABLE TB DROP COLUMN ID "
.ExecuteNonQuery()
.CommandText = "ALTER TABLE TB ADD COLUMN ID COUNTER "
.ExecuteNonQuery()
.CommandText = "ALTER TABLE TB ALTER COLUMN ID Long"
.ExecuteNonQuery()
End With
'------------------------------------------------------------------
Cn.Close()
MsgBox("Okey>>>Done")
Form1_Load(Nothing, Nothing)
Catch ex As Exception
MsgBox(Err.Description, Err.Number)
End Try
ترتيب ارقام السجلات بالتسلسل - smash - 31-10-12
اهلا بكم
انا معطل خاصية حذف السجلات لكن عند الاضافه احيانا اتفاجئ بعدم تسلسل رقم السجل الجديد عند الاضافة
هل فيه كود لاعادة ترقيم السجلات مثلا
ترتيب ارقام السجلات بالتسلسل - kslawy - 01-11-12
أخي أبو إيهاب
الكود اللي وضعته عندما يحذف الـ ID من بداية الجداول ، وعند إضافته من جديد هل سيضيفه أعلى الجدول في مكانه السابق أم سيضعه أسفل الجدول :confused:
ترتيب ارقام السجلات بالتسلسل - amgadtamer - 01-11-12
هذه الطريقة يأخى الفاضل
Not Recommended
فقد تتسبب فى تخريب العلاقات بين الجداول
ترتيب ارقام السجلات بالتسلسل - تركي قرمزلي - 01-11-12
السلام عليكم و رحمة الله
أرى أنك تعمل ضغط و اصلاح لفاعدة البيانات بعد كل عملية حذف للسجلات
ترتيب ارقام السجلات بالتسلسل - smash - 02-11-12
انا عملت ضغط واصلاح تلقائي عند الخروج من البرنامج
ترتيب ارقام السجلات بالتسلسل - m.sami.ak - 03-11-12
استخدم الاجراء التالي واستغني عن حقل الترقيم التقائي في قاعدة البيانات واجعلة حقل رقم فقط
لان الاجراء التالي يقوم بحساب اكبر قيمة داخل الجدول ويقوم بزيادتها +1
PHP كود :
private Function FindMaxDataTableValue(ByRef dt As DataTable) As Integer
Dim currentValue As Integer, maxValue As Integer
Dim dv As DataView = dt.DefaultView
For c As Integer = 0 To dt.Columns.Count - 1
dv.Sort = dt.Columns(c).ColumnName + " DESC"
currentValue = CInt(dv(0).Item(c))
If currentValue > maxValue Then maxValue = currentValue
Next
Return maxValue
End Function
ترتيب ارقام السجلات بالتسلسل - m.sami.ak - 03-11-12
وهذا كود LNQ
PHP كود :
Dim query = From p In db.Products _
Group p By p.CategoryID Into g = Group _
Select CategoryID, MaxPrice = g.Max(Function(p) p.UnitPrice)