[mr_mgm]

السلام عليكم

عملت برنامج بقاعدة بيانات اكسس وتم تعريف id بأن مفتاح رئيسي

لكن عند عمل البرنامج وجدت عدم تسلسل ارقام السجلات
السجلات المدخلة 100 وارقام التسلسل وصلت الى 150

ما الحل ؟؟

[COLOR="#000080"]
اجعل الحقل ترقيم تلقائي ... وهو سيقوم بالترتيب
ولكن عند حذف سجل وليكن رقم 2 ستجد الترقيم اصبح 1 -3-4-5 وهذا منطقي جدا

انا بستغرب بصراحه من طلب اعاده الترقيم ... الترقيم في الاصل هدفه عدم التكرار
المفترض ان يكون حقل الترقيم مفتاح اساسي لتستخدمه في الربط بين الجداول ..
فأعاده الترقيم ستتسبب في تداخل البيانات في حاله الربط بجدول اخر ...

علي كلا كود الاخ ابو ايهاب يمكنك من اعاده ترقيم الحقل

وفقك الله
[/COLOR]

[smash]

الف شكر لكم

[smash]

نــــــــعم . ... يحدث هذا لأنك تقوم بحذف بعض السجلات وبما أن الحقل ترقيم تلقائي لا يتراجع في الترقيم .

الحل :
حـذف الحقل وأعادة أنشــــــــاءه من جديد واعادة الترقيم المتسلسل .

أليـــــــــــك الكود :

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 


وفــــــــــقك الله .

تم اضافة الكود وطلعت هذه الرسالة
[ATTACH=CONFIG]1230[/ATTACH]

[atefkhalf2004]

السيد الفاضل
كيف اعمل حقل ترقيم وعرضه في الجريد علما بان الحقل غير موجود اي حقل وهمي
في فيجوال 6 كنت اعملها كالتالي select '' as num , name , salary from employee

[Sonk]

http://www.facebook.com/TheProgramming4Arabs
http://www.youtube.com/user/TheProgramming4Arabs
دة قرص مجانى جديد شكلة جامد أوى والله يا جماعة انا نشرة لكى تعم الفائدة أنصح الجميع انة يسمع المحاضرات دى
كل يوم بينزل محاضرات جديدة بس يا رب صاحب الصفحة دى يستمر فى القرص لان شكلة جامد والله
أنشرها لوجة الله