تقييم الموضوع :
  • 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 ك ب / التحميلات : 466)
الرد }}}}


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Sad [Acces2007] عاجل ارجو المساعدة لدي مشكلة مع برمجة زر البحث في الاكسس saimon 4 120 24-10-16, 07:54 PM
آخر رد: saimon
  مشكلة الترقيم التلقائي للعمود الاول في الداتا جريد فيو kofa 31 730 18-06-16, 03:53 AM
آخر رد: khodor1985
  ازاى اظهر مسج بوكس بدل رسالة ال duplicate فى الاكسس araxis 2 206 09-06-16, 04:07 PM
آخر رد: hassan
  الترقيم التلقائي .. أكسس abdulla2 1 364 27-12-15, 12:59 AM
آخر رد: zinom
  ترتيب الصفوف حسب التسلسل بـ DataGridVeiw hglogtd 1 232 15-09-15, 04:29 PM
آخر رد: أبو عمر
  [سؤال] الترقيم التلقائي مع رمز معين في vb.net مراد بورجي 10 3,550 03-06-14, 03:51 PM
آخر رد: vbnet
Sad [سؤال] ربط قاعدة بينات الاكسس بالفجوال عن طريق الكود عمار العيثاوي 2 655 07-05-14, 10:51 PM
آخر رد: عمار العيثاوي
  [سؤال] مشكلة في حفظ النماذج في الاكسس lela 2 759 16-02-14, 12:51 AM
آخر رد: lela
  كيفية تنفيذ استعلام موجود في الاكسس atefkhalf2004 0 661 30-12-13, 01:14 AM
آخر رد: atefkhalf2004
  [سؤال] الإكمال التلقائي فى التيكست بوكس Mido9 8 2,684 28-09-13, 04:35 PM
آخر رد: Mido9

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


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