تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] هل هناك كود افضل من هذا لمشكلة الترقيم التلقائي ؟
#1
السلام عليكم

شباب اواجه مشكلة الترقيم التلقائي والكثير منا يواجهونها
مثال :
 رقم 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)

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  هل هناك طريقة لتشغيل فيديوهات اليوتيوب ابو روضة 9 160 10-07-18, 06:09 PM
آخر رد: elgokr
  هل هناك طريقة لتسريع هذا الكود ابو روضة 2 125 29-06-18, 03:00 AM
آخر رد: YousefOkasha
  سؤال عن الاكمال التلقائي لصندوق النص hatem555 5 118 18-06-18, 08:25 AM
آخر رد: elgokr
  مشكلة في الترقيم التلقائي DataGridView wweecw 5 201 13-06-18, 04:10 PM
آخر رد: larbihamri
  [VB.NET] سلام شباب محتاج مساعدة إذا أمكن أنا اتابع دورة الأخ ملهم و هناك مشكلة بالنسبة للداتا aloush 0 70 05-06-18, 05:25 AM
آخر رد: aloush
  ما هي افضل طريقة لعمل جدول مجموعات متفرعة قاسم 6 131 02-06-18, 02:13 AM
آخر رد: sendbad100
  كيف يمكنني إعداد ترقيم تلقائي ويتجدد الترقيم في كل سنة mram3242 10 238 21-05-18, 06:47 PM
آخر رد: mram3242
  [سؤال] مشكلة الترقيم بجدول إكسس مرتبط بالفيجوال بيسك سمير الجبالي 7 157 11-05-18, 10:46 PM
آخر رد: elgokr
  [VB.NET] افضل ما توصلت له لنظام الباركود nabil.1710 23 2,254 10-05-18, 01:39 PM
آخر رد: nabil.1710
  ما هي افضل طرق تحزيم البرامج (فيجوال دوت نت 2012) alaa.altunsi 9 231 09-05-18, 12:07 AM
آخر رد: alaa.altunsi

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم