منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : التنقل بين السجلات
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2
كيف أجعل قاعدة البيانات تفتح عند السجل الأول
وكيف أنتقل بين السجلات
السجل التالى
السجل السابق
وهكذا
لأنى بحثت كثيراً فى المنتدى ولم أجد اجابة
فى vb6 كان الموضوع بسيط move next وهكذا أما الدوت نت فبصراحة أصعب بكثير من برغم مميزاته
علماً أنى البرنامج يعمل بالوضع المنفصل
السلام عليكم

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

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

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

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

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

الأمر في فجول بيسك دوت نت أسهل بسنوات ضوئية عنه في فجول بيسك 6. فقط تابع بعض الدروس ودع عنك الأفكار من شاكلة: "وضْع المؤشر على السجل".
كلامك صحيح
100%
طيب ممكن طريقة الحل اخي الجندي
ما قمت أنا به هو إنشاء متغير سميته 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
ملحوظة ....
لم يكن فى مشروعى زر التالى لأنه كان عبارة عن أسئلة وفى كل مرة تفتح الفورم كنت اريدها ان تفتح على السؤال التالى للذى قبله
فوضعت كود زر التالى فى حدث form load
ملحوظة اخرى فى الكود عبارة
Dim RowsCount As Integer
دعك منها( احذفها ) Big Grin فليست خاصة بالجواب على السؤال
اخي الجندي اذا كنت تقصد توليد موضع عشوائي للسجل فانظر للمثال التالي:
http://vb4arb.com/vb/thread-41.html
فهو يقوم بحذف ماتم استعماله
الصفحات : 1 2