تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
التنقل بين السجلات
#1
كيف أجعل قاعدة البيانات تفتح عند السجل الأول
وكيف أنتقل بين السجلات
السجل التالى
السجل السابق
وهكذا
لأنى بحثت كثيراً فى المنتدى ولم أجد اجابة
فى vb6 كان الموضوع بسيط move next وهكذا أما الدوت نت فبصراحة أصعب بكثير من برغم مميزاته
علماً أنى البرنامج يعمل بالوضع المنفصل
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم

اخي العزيز ليست صعبة أبدا تابع المثال التالي في هذا الموضوع :

http://vb4arb.com/vb4/showthread.php?4386

فيه أكواد السجل التالي والسابق والاول والاخير

الفكرة هي بعمل متغير اسمه pos وتمرير هذا المتغير الى mytable.Rows لعرض السجل حسب الـpos

تحياتي
الرد }}}}
تم الشكر بواسطة:
#3
جزاك الله خيراً
لكن أنا مبتدئ فى البرمجة وما فهمت من المثال
الرد }}}}
تم الشكر بواسطة:
#4
السلام عليكم
تم حل المشكلة بإعطاء متغير عام للمشروع كله وعمل عداد
وجزاكم الله خيراًُ
الرد }}}}
تم الشكر بواسطة:
#5
يبدو انك لازلت متأثراً بفجول بيسك 6 وفلسفتها.
وفي معظم الحالات لا يلزمنا التنقل بين السجلات بالطريقة القديمة، التالي فالتالي وهكذا، فقد اوجدوا الـDataGridView وغيرها من الأدوات التي نرى فيها كافة السجلات أو بعضها. وإن أردت تعديل أو حذف أحد هذه السجلات فقط انقر عليه وخذ قيمة حقل الفهرس وقم بالتعديل! أقصد برمجياً.

الأمر في فجول بيسك دوت نت أسهل بسنوات ضوئية عنه في فجول بيسك 6. فقط تابع بعض الدروس ودع عنك الأفكار من شاكلة: "وضْع المؤشر على السجل".
اللهم ارحم فقيدنا ابا ليث

الرد }}}}
تم الشكر بواسطة:
#6
كلامك صحيح
100%
الرد }}}}
تم الشكر بواسطة: أبوبكر سويدان
#7
طيب ممكن طريقة الحل اخي الجندي
الرد }}}}
تم الشكر بواسطة:
#8
ما قمت أنا به هو إنشاء متغير سميته qrec على مستوى المشروع ككل يعنى وضعته فى موديول
وهذا هو كود الموديول
كود :
Public qrec As Integer
ثم كود الاتصال هو
  Public Con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Application.StartupPath & "\saveDate.mdb")
....................................................................................................................................................
وفى حدث الفورم لود
كتبت هذا الكود
كود :
qrec =0
..............................................................................................................................
وفى حدث زر التالى كتبت هذا الكود
كود :
qrec = qrec + 1


Dim LSQL As String = "select * from qustions"
Dim LAdapter As New OleDbDataAdapter(LSQL, Con)

        Dim LDataSet As New DataSet
        Dim RowsCount As Integer
        If Con.State = ConnectionState.Closed = False Then Con.Close()

        Con.Open()
      
LAdapter.Fill(LDataSet, "LoadingData")
  TextBox1.Text = LDataSet.Tables("LoadingData").Rows(qrec).Item("qus")
            Button1.Text = LDataSet.Tables("LoadingData").Rows(qrec).Item("ats")
            Button2.Text = LDataSet.Tables("LoadingData").Rows(qrec).Item("a1")

حيث qts و ,a1 اسماء الحقول فى الجدول loadingdata
الرد }}}}
تم الشكر بواسطة:
#9
ملحوظة ....
لم يكن فى مشروعى زر التالى لأنه كان عبارة عن أسئلة وفى كل مرة تفتح الفورم كنت اريدها ان تفتح على السؤال التالى للذى قبله
فوضعت كود زر التالى فى حدث form load
ملحوظة اخرى فى الكود عبارة
Dim RowsCount As Integer
دعك منها( احذفها ) Big Grin فليست خاصة بالجواب على السؤال
الرد }}}}
تم الشكر بواسطة:
#10
اخي الجندي اذا كنت تقصد توليد موضع عشوائي للسجل فانظر للمثال التالي:
http://vb4arb.com/vb/thread-41.html
فهو يقوم بحذف ماتم استعماله
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
رحمك الله أبا الليث
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مثال +سؤال اضافة حذف عرض السجلات ahmedalans 6 162 10-05-17, 06:06 PM
آخر رد: ahmedalans
  [VB.NET] عرض السجلات خلال فترة زمنية محددة ahmed99 2 127 23-04-17, 06:13 PM
آخر رد: ahmed99
  عدد السجلات داخل ملف اكسس atefkhalf2004 7 256 18-02-17, 06:29 PM
آخر رد: atefkhalf2004
  تعديل بيانات حقل في جميع السجلات aftfm 2 440 31-05-16, 06:32 PM
آخر رد: Sajad
  [Acces2010] نقل عدد من السجلات من نموذج لاخر gamarat 2 481 28-04-16, 10:43 PM
آخر رد: amgad525
  حساب عدد السجلات و الرقم المتكرر يحسب كأنه سجل واحد ahmed_elwerfalli 0 364 28-12-15, 06:55 PM
آخر رد: ahmed_elwerfalli
  عدد السجلات فى الوضع المتصل صالح الشنطى 5 602 08-12-15, 01:55 AM
آخر رد: khodor1985
Smile [VB.NET] [طلب] كود حذف السجل الحالي+جميع السجلات مبرمج بلا حدود 31 3,371 17-08-15, 02:30 AM
آخر رد: مبرمج بلا حدود
  [VB.NET] مشكلة حفظ السجلات بقاعدة بيانات kalotibi 2 603 13-08-15, 04:34 PM
آخر رد: مبرمج بلا حدود
  [نقاش] عن أفضل قاعدة بيانات فيها قابلية التنقل عبد الله 16 2,960 04-04-15, 05:43 PM
آخر رد: Abu Ehab

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


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