منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
اعادة التسلسل التلقائي للــ ID في الاكسس .. جنيت - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : اعادة التسلسل التلقائي للــ ID في الاكسس .. جنيت (/showthread.php?tid=211)

اعادة التسلسل التلقائي للــ ID في الاكسس .. جنيت - ناريمان - 21-09-13

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

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

و شكرا

RE: اعادة التسلسل التلقائي للــ ID في الاكسس .. جنيت - @@أبورائد@@ - 21-09-13

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




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


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


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


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




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

RE: اعادة التسلسل التلقائي للــ ID في الاكسس .. جنيت - ناريمان - 21-09-13

سلام
شكرا لردك السريع اخي بو رائد ..

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

ما عليك امر .. 

و تسسسسلم

RE: اعادة التسلسل التلقائي للــ ID في الاكسس .. جنيت - @@أبورائد@@ - 21-09-13

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


إليك مثال من مكتبتي
كود :
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 الآن يوجد حقل باسم
'

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

RE: اعادة التسلسل التلقائي للــ ID في الاكسس .. جنيت - ناريمان - 21-09-13

سلام ..
بثقل عليكم شوية .. بسؤال ثاني ..

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

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

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


ساعدوني بليييز

RE: اعادة التسلسل التلقائي للــ ID في الاكسس .. جنيت - @@أبورائد@@ - 21-09-13

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




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






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

RE: اعادة التسلسل التلقائي للــ ID في الاكسس .. جنيت - ناريمان - 21-09-13

مشكورة بو رائد لجهدك معاي .. 

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

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

        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

RE: اعادة التسلسل التلقائي للــ ID في الاكسس .. جنيت - @@أبورائد@@ - 21-09-13

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




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




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

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


لتطبيق الرقم التسلسلي في المثال الذي أرفقت إليك الطريقة باستخدام الوضع المنفصل (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



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

RE: اعادة التسلسل التلقائي للــ ID في الاكسس .. جنيت - Omar Mekkawy - 21-09-13

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




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






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

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

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

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

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


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



RE: اعادة التسلسل التلقائي للــ ID في الاكسس .. جنيت - mohammed alnour - 21-09-17

http://vb4arb.com/vb/showthread.php?tid=21815


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