اريد عمل تسلسل ارقام لقاعدة البيانات اكسس فيvb.net

أخي الكريم، للمسألة حلول كثيرة جداً ويعتمد كل واحد على الصورة التي تريد بها التعامل مع ذلك الرقم. أولاً ابعد عن عمود ال AutoNumber ولا تعتبره موجوداً في جدولك فذلك العمود عادة نستخدمه ك Primary key.

ما هي حاجتك لذلك الرقم؟ إن كنت أن تريد فقط أن تظهره مثلاً في Label على برنامجك عندما تنشيء ال DataSet فأنت لا تحتاج لتخزينه في قاعدة البيانات، فقط قم بأخذ رقم ال row في الداتاسيت (وأضف عليه رقم واحد لأن الداتاسيت تبدأ من الصفر كما تعلم)، فمثلاً لو كان إسم "وليد" هو الرقم 2 في الداتاسيت التي قمت بإنشائها فإنك تضع في ال Label رقم ال Row الذي فيه إسم "وليد" وأضف إليه واحد.

أما إذا أردت أن تحفظ ذلك الرقم في قاعدة البيانات فيجب عليك أن تقوم بتغيير ذلك الرقم في كامل الصفوف، وهذا سهل، قم بإنشاء عمود من نوع integer لتخزين ذلك الرقم، وعندما تقوم مثلاً بحذف عمود من الداتاسيت يجب ان تقوم بتغيير رقم ذلك العمود بشكل متسلسل (رقم ال row + 1) وبعد ذلك تقوم بعمل حفظ التغييرات إلى قاعدة البيانات.

أرجو بأن تكون الفكرة قد وصلتك، وللأسف لا يوجد الفيجوال بيسك على جهازي الآن (موجود على D وأنا أعمل على C الآن) وإلا قمت بعمل مثال بسيط يبين لحضرتك كيفية القيام بذلك.

اخي انا اريد كيفية عملها باوامر ال sql وارسالها الى اكسس

انا احتاج ذللك الرقم لعملية البحث فقط

اخي الكريم افترض انك مسحت الحقل بالأمر

delete from tblName where id = 1

طبعا يجب ان يكون الحق الذي به الارقام معرف على انه رقم او نص على أقل تقدير ولو انها خطأ منطقيا

الان قم بعد الأمر هذا بإعادة ترقيم الجدول مرة اخرى

 Dim conn = New OleDb.OleDbConnection ' your connection
        Dim sql As String = "select id from tblName"
        Dim cmd As New OleDb.OleDbCommand(sql, conn)
        Dim dr As OleDb.OleDbDataReader
        Dim i As Integer = 1
        While dr.Read
            Dim cmd2 As New OleDb.OleDbCommand("update tblName set id = " & i & "", conn)
            i += 1
        End While
        conn.close()

لم أجرب الكود ولكن اتمنى ان تكون الفكرة واضحة

Romantic_touch ..... هل سيعمل هذا الكود بما ان الـ id معرف كـ AutoNumber ؟؟؟ :unsure:

و بجانب حل هارون و هو حل مباشر جداً الا ان هناك طريقة أخرى غير مباشرة...

عندما تقوم بعملية الـ Compact and Repair لقاعدة البيانات عن طريق الأكسس تقوم هذه العملية بتعديل تسلسل أرقام الـ AutoNumber فيصبح تسلسلها صحيح... يمكنك فعل ذلك بطريقة برمجية.... اليك هذا المثال:

موضوع # 74338

اخي هل من الممكن تعطيني الكود على فكرة الاخ هارون؟؟؟ لاني بصراحة مبتدء ado.net

NO BODY CAN BEAT ME كتب:

اخي هل من الممكن تعطيني الكود

←

يا أخي الفاضل حاول بنفسك ... و نصيحة لا تطلب كوداً جاهزاً... فوالله لن تتعلم هكذا أبداً..

اقتباس

لاني بصراحة مبتدء ado.net

اخي ولله انا ما بعرف كيف اجيب رقم الصف يعني مساعدة بسيطة وانا اكمل ان شاء الله

اخي انا حاولت و شوف الكود اذا

       Dim n As New OleDbCommand
        Dim r As OleDbDataReader
        n.Connection = OleDbConnection1
        n.CommandText = "select  id from waleed"
        OleDbConnection1.Open()
        OleDbConnection2.Open()
        r = n.ExecuteReader()


        Do While r.Read()
            Dim i As Integer = 0
            i = i + 1
            Dim w As New OleDbCommand
            w.Connection = OleDbConnection2
            w.CommandText = "update waleed set id = " & i
            w.ExecuteNonQuery()
        Loop

        OleDbConnection2.Close()
        r.Close()
        OleDbConnection1.Close()

بس صارت كل الارقام 1 شو الخطء؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

اقتباس

عندما تقوم بعملية الـ Compact and Repair لقاعدة البيانات عن طريق الأكسس تقوم هذه العملية بتعديل تسلسل أرقام الـ AutoNumber فيصبح تسلسلها صحيح

أعتقد أخي محمد بأن ال AutoNumber لن يتأثر بعملية الإصلاح تلك للأسف، العملية تحذف الصفوف المحذوفة غيرها من التغييرات ولكن ال AutoNumber تصبح قيمتة مرتبطة بال row، هناك طريقة للقيام بذلك وتتم عن طريق عمل جدول مطابق في هيكله للجدول الذي نريد إصلاحه ومن ثم نسخ المعلومات كاملة إلى الجدول الجديد، بهذه الطريقة تصبح ال AutoNumber متسلسلة، هذه الطريقة التي إكتشفتها ولا أعلم إن كان هناك طرق أسهل).

أخي Nobody :( ، نحن نحملك أكثر من طاقتك عندما نطلب منك أن تحاول أن تقوم بذلك بنفسك، ها هو البرنامج كما تريده، قم أولاً بتحديد (إختيار) صف من الداتاغريد الموجودة على الفورم وأضغط على الزر وستكون الامور كما تشتهي بإذن الله.

beat_him.zip

شكرا لك اخي لكن بصراحة :( لم افهم شيء هل من الممكن ان تشرح؟؟؟؟

وهل هناك طريقة لعملها عن طريق الSQL لاني افهمها اكثر

اخي Nobody ، نحن نحملك أكثر من طاقتك عندما نطلب منك أن تحاول أن تقوم بذلك بنفسك،

اخي ولله اني مبتدء في هذا المجال

لا لن أشرح، أتعلم لماذا؟ لأنك تريد كوداً وأعطيناك إياه (أتذكر عندما أردت إنشاء مكتبة أكواد ونصحتك بأن هذه الأمور لا تجدي نفعاً؟، أتذكر ردّك؟)، وكما قال أستاذنا محمد عبدالعليم، الأكواد لن تفيدك وإن بقيت على حالك هذه فتأكد بأنك لن تتعلم البرمجة طوال عمرك.

you’ve got to be cruel to be kind

اخي نعم اذكر ردك وانك قلت ان الكود لا ينفع من دون (شرح) كيف بدك اياني افهم من دون شرح؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

اذا كنت لا تريد الشرح فشكرا لك وسامحك الله

وبعدين يا اخي انا قلت لك في مكتبة الاكواد معظم الاكواد مشروحة وانا مستعد انو نعمل موضوع و نشوف كم واحد استفاد و كم واحد لم يستفد واذا كان عدد الغير مستفيدين اكثر سوف اقدم لك اعتذار في موضوع مثبت لو يسمح المشرفين

ساعدون لقد قمت بكتابة الكود الذي اعطاني اياه Romantic_touch ولكنه يقوم بجعل جميع الحقول بنفس الرقم وحاولت التغير عليه لكن من دون فائده

اسف على التأخير حبيبي بس معليش بالفعل فيه مشكلة في الكود تبعي وهي في السطر التالي

Dim cmd2 As New OleDb.OleDbCommand("update tblName set id = " & i & "", conn)

والتعديل هوا

Dim cmd2 As New OleDb.OleDbCommand("update tblName set id = " & i & " where id = "& dr("id") &"", conn)

حاول اخي الكريم لاني بصراحة لم أجرب الكود ولكن هذا هو الحل إن شاء الله

اما بالنسبة لسؤالط في احد الردود لماذا الكود يعطي رقم واحد لكل الحقول هو انك قمت بتعريف

dim i as integer = 0

في داخل جملة while وبالتالي في كل مرة سوف يعيد تصفير قيمة المتغير i

بالتوفيق اخي

الآخوان الكريم صحيح ان المحاولات واخذ الكود الجاهز شي سيء ولكن الأفضل هو ان تشرح عمل الكود وعلى المتعلم ان يحاول فهم الكود وليس نسخ ولصق

بارك الله في الجميع

يا اخي نفس المشكلة جميع الحقول تاخذ نفس الرقم حتى بعد ازالة i=0 من الجملة while :(

برضه انت وقعت في نفس الخطأ الي انا وقعت فيه وهو جملة where في جمةل update والتعديل هو

Dim n As New OleDbCommand       Dim r As OleDbDataReader
       n.Connection = OleDbConnection1
       n.CommandText = "select  id from waleed"
       OleDbConnection1.Open()
       OleDbConnection2.Open()
       r = n.ExecuteReader()
Dim i As Integer = 0   ' this is your first error
       Do While r.Read()
           i = i + 1
           Dim w As New OleDbCommand
           w.Connection = OleDbConnection2
           w.CommandText = "update waleed set id = " & i &" where id = "& dr.item(0) &"  ' there is your second error 
           w.ExecuteNonQuery()
       Loop
       OleDbConnection2.Close()
       r.Close()
       OleDbConnection1.Close()
[code]

اخي مشكلة تقوم باعطاء ارقام عشوائية للحقول:(

اخوي اجعل نوع الحقل حق الأرقام اللي تبغى تعدل فيها هو integer وليس autonumber واذا مازبطت ارسل الملف وانا ازبطه لك :)

اخي هذا هو الملف كله تحت تصرفك لكن بعد الاصلاح اشرح لي خليني افهم :)

ليه كدا بس يا استاذ NO BODY CAN BEAT ME

يعني الاردنيين حبايبي انا درست بالاردن 5 سنين واهلها مررررررررة طيبين بس ليه بترسل ملف فيه فايروس

حبيبي نزلت الملف طلع فيه فايروس

فما نزل عندي :(

له له له له

ولله زعلتني اخي Romantic_touch ولله انتو الطيبين انا اسف على هذا الخطء لكن والله انو شغال 100% عندي ومافي اي فايروس يمكن لاني مش منزل الانتي فيروس على العموم انت في اي جامعة درست؟؟؟؟؟؟ ولله اخي لو بتعملي المثال وترسلو الي بتكون عملت خير :)

اكرر الاسف (اسف*100000000000000000000000000000000000000000000000000000000000000000000000) :)

الك يازلمة تكرم عينك

هيووه الكود

انا كنت بجامعة عمان الاهلية وما تسألني اشي تاني لاني لما بتذكر ايام الاردن زي الي فقد ولده وتذكره

بالتوفيق يامعلم

datatable.zip