+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : [VB.NET] التوجه الى سجل مُحدد من الـ DataSource (/showthread.php?tid=13494)
الصفحات:
1
2
التوجه الى سجل مُحدد من الـ DataSource - Youssef1313 - 11-10-15
السلام عليكم ورحمة الله وبركاته
قمت بعمل برنامج باستخدام قاعدة بيانات اكسس، ووقف فى طريقى شىء اعتقد انه بسيط.
- قمت بربط الفورم بقاعدة البيانات عن طريق اضافة قاعدة البيانات لـ DataSource المشروع وليس ADO..
يعنى اضفت Data Source من قائمة Project ثم Add New DataSource
وسحبت الجدول من الـ Data Source للفورم على صورة Details ( تظهر البيانات بداخل TextBox )
- وضعت زر للبحث في ذلك الفورم ( زر البحث يفتح شاشة جديدة )
الشاشة الجديدة تجد فيها DataGridView بها بعض بيانات الجدول ( ومنها "كود العضو" وهو أول عمود )
المطلوب:
كود بداخل الحدث DataGridView1_CellDoubleClick ينقلنى للصف الذى تم الضغط عليه فى الفورم الأولى
* يُفضل وجود مشروع بسيط لأفهم الفكرة منه
RE: التوجه الى سجل مُحدد من الـ DataSource - أبو عمر - 12-10-15
1_
http://vb4arb.com/vb/thread-13461.html
2_
http://vb4arb.com/vb/thread-13198.html
تجد أمثلة تلبي طلبك واكثر !!!
RE: التوجه الى سجل مُحدد من الـ DataSource - مهموم - 12-10-15
السلام عليكم ورحمة الله
أخي يوسف
هذه الكود على أساس اسم الجدول Details
PHP كود :
Dim index As Integer = DetailsBindingSource.Find("code", val(TextBox1.Text))
DetailsBindingSource.Position = index
RE: التوجه الى سجل مُحدد من الـ DataSource - Youssef1313 - 12-10-15
(12-10-15, 01:28 AM)مهموم كتب : السلام عليكم ورحمة الله
أخي يوسف
هذه الكود على أساس اسم الجدول Details
PHP كود :
Dim index As Integer = DetailsBindingSource.Find("code", val(TextBox1.Text))
DetailsBindingSource.Position = index
تمام
هذا ما كنت اريده بالضبط
سؤال آخر متعلق بنفس الامر
لو اردت عرض اكثر من سجل حسب الكود
بمعنى مثلًا الجدول فيه 100 سجل..
اريد فقط بعد الضغط على زر يظهر الكود 1 والكود 2 والكود 3
ويتم التنقل بين هذه السجلات فقط عن طريق زر السابق والتالى ، بشرط انه عند الضغط على زر الحفظ يتم حفظ التعديلات التى اجريت على الثلاث سجلات مع عدم حذف باقى السجلات..
RE: التوجه الى سجل مُحدد من الـ DataSource - مهموم - 12-10-15
السلام عليكم ورحمة الله
أخي يوسف
يمكنك في هذه الحالة استخدام الأمر Filter وهذا هو الكود
PHP كود :
DetailsBindingSource.Filter = "code in (1,2,3)"
RE: التوجه الى سجل مُحدد من الـ DataSource - Youssef1313 - 14-10-15
شكرًا جدًا لك..
لدى سؤال آخر
عندى BindingNavigator وفيه علامة للحذف وتقوم بالحذف تلقائيًا
اريد وضع شرط للحذف
If MessageBox.Show("هل أنت متأكد انك تريد حذف السجل؟", "تأكيد الحذف", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
'يتم الحذف
End If
RE: التوجه الى سجل مُحدد من الـ DataSource - مهموم - 14-10-15
السلام عليكم ورحمة الله
أخي يوسف
أهم شيء أولا يجب إلغاء محتوى الخاصية DeleteItem لل BindingNavigator باختيار None عن طريق خصائصها
أو وضع هذا الأمر في حدث Form1_Load
PHP كود :
BindingNavigator1.DeleteItem = Nothing
ثانياً هذا كود حدث الضغط على علامة الحذف في BindingNavigator
PHP كود :
Private Sub BindingNavigatorDeleteItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorDeleteItem.Click
If MessageBox.Show("هل أنت متأكد انك تريد حذف السجل؟", "تأكيد الحذف", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
DetailsBindingSource.RemoveCurrent()
End If
End Sub
RE: التوجه الى سجل مُحدد من الـ DataSource - Youssef1313 - 16-10-15
جميل جدًا جدًا.. اردت شىء آخر وهو التعديل برمجيًا على أمر INSERT INTO الخاص بالـ TableAdapter حيث يرسل آخر عمود قيمة ثابتة
RE: التوجه الى سجل مُحدد من الـ DataSource - مهموم - 16-10-15
السلام عليكم ورحمة الله
أخي يوسف
عدل قيمة CommandText لل InsertCommand
وهذا مثال ل(حيث يرسل آخر عمود قيمة ثابتة)
PHP كود :
DetailsTableAdapter.Adapter.InsertCommand.CommandText = "Insert Into `Details` (`col1`, `col2`, `col3`) Values (?, ?, 123)"
RE: التوجه الى سجل مُحدد من الـ DataSource - Youssef1313 - 17-10-15
جميل جدًا