+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : التنقل بين السجلات (/showthread.php?tid=2345)
الصفحات:
1
2
التنقل بين السجلات - الجندى - 23-03-14
كيف أجعل قاعدة البيانات تفتح عند السجل الأول
وكيف أنتقل بين السجلات
السجل التالى
السجل السابق
وهكذا
لأنى بحثت كثيراً فى المنتدى ولم أجد اجابة
فى vb6 كان الموضوع بسيط move next وهكذا أما الدوت نت فبصراحة أصعب بكثير من برغم مميزاته
علماً أنى البرنامج يعمل بالوضع المنفصل
RE: التنقل بين السجلات - Sajad - 23-03-14
السلام عليكم
اخي العزيز ليست صعبة أبدا تابع المثال التالي في هذا الموضوع :
http://vb4arb.com/vb4/showthread.php?4386
فيه أكواد السجل التالي والسابق والاول والاخير
الفكرة هي بعمل متغير اسمه pos وتمرير هذا المتغير الى mytable.Rows لعرض السجل حسب الـpos
تحياتي
RE: التنقل بين السجلات - الجندى - 23-03-14
جزاك الله خيراً
لكن أنا مبتدئ فى البرمجة وما فهمت من المثال
RE: التنقل بين السجلات - الجندى - 24-03-14
السلام عليكم
تم حل المشكلة بإعطاء متغير عام للمشروع كله وعمل عداد
وجزاكم الله خيراًُ
RE: التنقل بين السجلات - أبوبكر سويدان - 24-03-14
يبدو انك لازلت متأثراً بفجول بيسك 6 وفلسفتها.
وفي معظم الحالات لا يلزمنا التنقل بين السجلات بالطريقة القديمة، التالي فالتالي وهكذا، فقد اوجدوا الـDataGridView وغيرها من الأدوات التي نرى فيها كافة السجلات أو بعضها. وإن أردت تعديل أو حذف أحد هذه السجلات فقط انقر عليه وخذ قيمة حقل الفهرس وقم بالتعديل! أقصد برمجياً.
الأمر في فجول بيسك دوت نت أسهل بسنوات ضوئية عنه في فجول بيسك 6. فقط تابع بعض الدروس ودع عنك الأفكار من شاكلة: "وضْع المؤشر على السجل".
RE: التنقل بين السجلات - الجندى - 25-03-14
كلامك صحيح
100%
RE: التنقل بين السجلات - hages - 31-03-14
طيب ممكن طريقة الحل اخي الجندي
RE: التنقل بين السجلات - الجندى - 01-04-14
ما قمت أنا به هو إنشاء متغير سميته 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
RE: التنقل بين السجلات - الجندى - 01-04-14
ملحوظة ....
لم يكن فى مشروعى زر التالى لأنه كان عبارة عن أسئلة وفى كل مرة تفتح الفورم كنت اريدها ان تفتح على السؤال التالى للذى قبله
فوضعت كود زر التالى فى حدث form load
ملحوظة اخرى فى الكود عبارة
Dim RowsCount As Integer
دعك منها( احذفها )
فليست خاصة بالجواب على السؤال
RE: التنقل بين السجلات - سعود - 01-04-14
اخي الجندي اذا كنت تقصد توليد موضع عشوائي للسجل فانظر للمثال التالي:
http://vb4arb.com/vb/thread-41.html
فهو يقوم بحذف ماتم استعماله