تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اعادة التسلسل التلقائي للــ ID في الاكسس .. جنيت
#1
Rainbow 
السلام 
لو سمحتو بغيت طريقة لحل مشكلة عدم التسلسل في الترقيم التلقائي في الاكسس لما نقوم بحذف بعض السجلات ..

اتمنى فهمتو قصدي 

و شكرا
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم و رحمة الله و بركاته




يجب عدم الاعتماد جقل ترقيم تلقائي لعرض أرقام تسلسلية لأنه لن يفيد حتى لو لم تقم بحذف أي أسطر


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


يجب على الكل إاعدة النظر في هذه الفكرة الخاطئة.


الرقم التسلسلي إجعله باستخدام الكود فهي الطريقة الصحيحة بالنسبة لـ MSAccess
أما في SQLServer فتوجد خدمة لارفاق حقل مؤقت يحتوي على الرقم التسلسلي يتم به الاستغناء عن برمجته بالكود.




السلام عليكم و رحمة الله و بركاته
الرد }}}
تم الشكر بواسطة: Sajad
#3
سلام
شكرا لردك السريع اخي بو رائد ..

اذا ممكن تعلمني شلون اعملها بالكود ؟ 

ما عليك امر .. 

و تسسسسلم
الرد }}}
تم الشكر بواسطة:
#4
السلام عليكم و رحمة الله و بركاته


إليك مثال من مكتبتي
كود :
Dim myDataTable As myDataTable

'
'
' myDataTable بعد تعبئة
'
'
myDataTable.Columns.Add("RowNumber")
For i = 0 To myDataTable.Rows.Count - 1
      myDataTable.Rows(i).Item("RowNumber") = i + 1
Next
'
' يحتوي على ترقيم تسلسلي سليم RowNumber الآن يوجد حقل باسم
'

السلام عليكم و رحمة الله و بركاته
الرد }}}
تم الشكر بواسطة:
#5
سلام ..
بثقل عليكم شوية .. بسؤال ثاني ..

عندي هذا الكود .. يعرض بيانات من الداتابيس اكسس ..

Dim CmdSelectPro As New OleDbCommand("Select * From TblEmp Where EmpID =" & EmpID, ConnPro)
        Dim RdrSelectPro As OleDbDataReader
        Dim ProPicData() As Byte
        Dim ProByteData As MemoryStream
        Try
            RdrSelectPro = CmdSelectPro.ExecuteReader
            RdrSelectPro.Read()
            w1.Text = RdrSelectPro("EmpName")
            ProPicData = RdrSelectPro("EmpPic")
            ProByteData = New MemoryStream(ProPicData)
            q1.Image = Image.FromStream(ProByteData)
            ConnPro.Close()
        Catch ex As Exception
            MessageBox.Show("Kindly, enter a valid employee id", "Incorrect Employee ID")
        End Try

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


ساعدوني بليييز
الرد }}}
تم الشكر بواسطة:
#6
السلام عليكم و رحمة الله و بركاته




طالما أن السؤال مختلف عن العنوان من الأفضل وضعه في موضوع مستقل لتكون مواضيع المنتدى أكثر تنظيما ويسهل على المتصفح معرفة المواضيع التي تو طرحها






السلام عليكم و رحمة الله و بركاته
الرد }}}
تم الشكر بواسطة:
#7
مشكورة بو رائد لجهدك معاي .. 

بس ما عرفت وين لازم اضيف الكود بالضبط !

هذا كود الاضافة : 

        Dim CmdAddEmp As New OleDbCommand("Insert Into TblEmp(EmpName, EmpMob, EmpPic) Values(@EmpName, @EmpMob, @EmpPic)", ConnPro)
        Dim FS As New System.IO.FileStream(DlgEmpPic.FileName, IO.FileMode.Open, IO.FileAccess.Read)

        Try
            Dim EmpPicArrayByte(CType(FS.Length() - 1, Integer)) As Byte
            FS.Read(EmpPicArrayByte, 0, EmpPicArrayByte.Length)
            FS.Close()

            Dim NameParam As New OleDbParameter("@EmpName", OleDbType.VarChar, 80, "EmpName")
            Dim EmpMob As New OleDbParameter("@EmpMob", OleDbType.VarChar, 10, "EmpMob")
            Dim PicParam As New OleDb.OleDbParameter("@EmpPic", OleDbType.LongVarBinary, _
            EmpPicArrayByte.Length, "EmpPic")
            CmdAddEmp.Parameters.Add(NameParam)
            CmdAddEmp.Parameters("@EmpName").Value = TxtEmpName.Text
            CmdAddEmp.Parameters.Add(EmpMob)
            CmdAddEmp.Parameters("@EmpMob").Value = TxtEmpMob.Text
            CmdAddEmp.Parameters.Add(PicParam)
            CmdAddEmp.Parameters("@EmpPic").Value = EmpPicArrayByte

            CmdAddEmp.ExecuteNonQuery()

            MsgBox("The Employee has been added successfully", MsgBoxStyle.OkOnly, "Saved Successfully")

            Dim CmdSeletEmpID As New OleDbCommand("Select @@Identity From TblEmp", ConnPro)

            TxtEmpID.Text = CmdSeletEmpID.ExecuteScalar

        Catch ex As Exception
            MessageBox.Show(ex.Message, "Error Occured")

        End Try

        ConnPro.Close()


و هذا كود الحذف : 

Dim y As Byte
        Try
            y = MessageBox.Show(" هل ترغب بالغاء هذا الملف", PID.Text, MessageBoxButtons.YesNo)
            If y = 6 Then
                Dim sql As String = "DELETE FROM TblEmp WHERE EmpID=" & PID.Text & ""
                ConnPro.Open()
                Dim cmd As OleDbCommand = New OleDbCommand(sql, ConnPro)
                cmd.ExecuteNonQuery() 'تنفيذ امر الالغاء
                ConnPro.Close()
            End If
        Catch ex As Exception
            MessageBox.Show(Err.Description, "حدث خطأ في الغاء الملف")
        Finally
            If y = 6 Then


            End If
            TblEmpDataGridView.Refresh()
        End Try

سوري ..

بس هلفترة اشتغل على مشروع التخرج .. و كل هالاسئلة بالنسبة لي موضوع واحد .. Blush
الرد }}}
تم الشكر بواسطة:
#8
السلام عليكم و رحمة الله و بركاته




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




السلام عليكم و رحمة الله و بركاته


السلام عليكم و رحمة الله و بركاته


لتطبيق الرقم التسلسلي في المثال الذي أرفقت إليك الطريقة باستخدام الوضع المنفصل (DataAdapter)
كود :
Dim sql As String = " Select *                  " & _
                   " From [TblEmp]             " & _
                    " Where [EmpID] = @EmpID    "
Dim myCommand As New OleDbCommand(sql, ConnPro)
myCommand.Parameters.AddWithValue("@EmpID", EmpID)

Dim myDataTable As New DataTable
Dim myDataAdapter As New OleDbDataAdapter(myCommand)

       myDataAdapter.Fill(myDataTable)
       myDataTable.Columns.Add("RowNumber")
       For i = 0 To myDataTable.Rows.Count - 1
           myDataTable.Rows(i).Item("RowNumber") = i + 1
       Next

       For Each r As DataRow In myDataTable.Rows
           Me.TextBox1.text = r.Item("RowNumber") ' عرض الرقم التسلسي
           w1.Text = r.Item("EmpName")

           Dim ProPicData() As Byte
           ProPicData = r.Item("EmpPic")
           q1.Image = Image.FromStream(New MemoryStream(ProPicData))
       Next



السلام عليكم و رحمة الله و بركاته
الرد }}}
تم الشكر بواسطة: Omar Mekkawy
#9
(21-09-13, 05:47 PM)@@أبورائد@@ كتب : السلام عليكم و رحمة الله و بركاته




طالما أن السؤال مختلف عن العنوان من الأفضل وضعه في موضوع مستقل لتكون مواضيع المنتدى أكثر تنظيما ويسهل على المتصفح معرفة المواضيع التي تو طرحها






السلام عليكم و رحمة الله و بركاته

مو مهم أخوي راح اغير عنوان الموضوع لاحقاً عندما يتم حل المشكلة
لأن الكثير هنا لايعلم خبايا هذا المنتدى فمن الممكن ان يقول ان الموضوع اتحذف وهو موجود أصلاً لكن بعنوان آخر Big Grin


سلام عليكم
وجدت بالمنتدى القديم مشاركة للأخ ramilove بعنوان ( مثال للتعامل مع داتا جريد فيو من اضافة وحذف وبحث وايضا انشاء قاعدة بيانات اكسس وغيرها )

المثال يحتوي على خاصية إعادة الترقيم التلقائي للسجلات + مميزات كثيرة Big Grin

إقتباس :4- خاصية استعادة الترقيم التلقائي في حال حذفت احد السجلات


المثال بالمرفقات Shy



الملفات المرفقة
.zip   Create Access Database 2003 & datagrideview.zip (الحجم : 231.29 ك ب / التحميلات : 904)
الرد }}}
#10
http://vb4arb.com/vb/showthread.php?tid=21815


عملت موضوع بعنوان حل مشكلة الترقيم النلقائي
خش مقالات vb و حتلقى الموضوع
انا كنت بعاني من نفس المشكلة بس الحمد لله ربنا الهمني طريقة كويسة
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اعادة ترتيب الارقام في قاعدة بيانات اكسس aftfm 0 1,245 07-11-20, 03:24 PM
آخر رد: aftfm
  احتاج مساعدة بشأن الاكسس اسامه الهرماوي 2 1,679 17-04-19, 02:02 AM
آخر رد: new_programer
  مشكلة في الترقيم التلقائي للطلبة حسب السنة الدراسية ahmed_elwerfalli 1 1,634 29-12-18, 03:34 AM
آخر رد: ahmed_elwerfalli
  [سؤال] الترقيم التلقائي مع رمز معين في vb.net مراد بورجي 11 11,248 26-07-18, 11:31 PM
آخر رد: bajo
  [VB.NET] استعادة الترقيم التلقائي محمد اسماعيل 10 4,864 04-01-18, 11:15 PM
آخر رد: عبد العزيز البسكري
  [كود] المساعدة في كود بحث برقم التسلسل اذا كان الرقم غير موجود داخل قاعدة بيانات تخرج رسالة وادي العوضي 3 2,700 14-07-17, 09:43 AM
آخر رد: وادي العوضي
  ظهور ملف بجوار الاكسس عند الاتصال atefkhalf2004 2 2,016 25-06-17, 04:50 PM
آخر رد: atefkhalf2004
Sad [Acces2007] عاجل ارجو المساعدة لدي مشكلة مع برمجة زر البحث في الاكسس saimon 4 3,587 24-10-16, 07:54 PM
آخر رد: saimon
  مشكلة الترقيم التلقائي للعمود الاول في الداتا جريد فيو kofa 31 12,086 18-06-16, 03:53 AM
آخر رد: khodor1985
  ازاى اظهر مسج بوكس بدل رسالة ال duplicate فى الاكسس araxis 2 2,445 09-06-16, 04:07 PM
آخر رد: hassan

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


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