منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] كيف يمكنني ان اسند نتيجة البحث الى التكست بوكس - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] كيف يمكنني ان اسند نتيجة البحث الى التكست بوكس (/showthread.php?tid=25830)



كيف يمكنني ان اسند نتيجة البحث الى التكست بوكس - larbihamri - 22-07-18

السلام عليكم كيف حال الجميع
اخواني ، كيف يمكنني بعد عملية البحث ان اسند حقول السجل الموجود الى التكست بوكس مثلا
انا اعمل بهذا الكود :
كود :
me.bonBidingsource.filter="nom LIKE '%" & me.combobox1.text.trim & "'"a
فعندما تكون النتيجة ايجابية يتم اسناد كل حقول الى التكست البوكس الغير مربوطة بقاعدة البيانات
اما السؤال الثاني فيتمثل في ما يلي
مثلا قمت بتنفيذ هذا الكود :
كود :
me.bonBidingsource.addNew
كيف يمكنني اسناد قيمت التكست بوكس الى Bidingsource من اجل حفظها في قاعدة البيانات



RE: كيف يمكنني ان اسند نتيجة البحث الى التكست بوكس - larbihamri - 23-07-18

لا اريد ربط الأدوات بالحقول


RE: كيف يمكنني ان اسند نتيجة البحث الى التكست بوكس - elgokr - 25-07-18

بخصوص كود عرض نتائج البحث
كل ما عليك استخدام مثل الكود التالى
كود :
           TextBox2.Text = T1BindingSource(0)("name")
           TextBox3.Text = T1BindingSource(0)("adreese")

مرفق السورس بعد اضافة الكود وبعض اللمسات لتوضيح الفكرة كاملاً

تحياتى لك
وتمنياتى لك التوفيق



RE: كيف يمكنني ان اسند نتيجة البحث الى التكست بوكس - larbihamri - 26-07-18

اخي elgokr و منك نتعلم تدخلاتك كالدواء 
مع احترامتي استاذ كيف يمكنني فعل نفس الشيء عندما اريد اضافة سجل جديد
اسند قيمة التكست بوكس الى bidingsource


RE: كيف يمكنني ان اسند نتيجة البحث الى التكست بوكس - larbihamri - 29-07-18

ألا توجد طريقة ؟؟؟


RE: كيف يمكنني ان اسند نتيجة البحث الى التكست بوكس - GameOver - 29-07-18

جرب هذا التعديل
كود :
Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
   Me.T1BindingSource.EndEdit()
   T1BindingSource.Current("name") = TextBox5.Text
   T1BindingSource.Current("adreese") = TextBox4.Text
   Me.T1TableAdapter.Update(Me.DbDataSet.t1)
End Sub



RE: كيف يمكنني ان اسند نتيجة البحث الى التكست بوكس - larbihamri - 29-07-18

اخي GameOver شكرا بارك الله وزادك من العلم ما تريد و ترضى


RE: كيف يمكنني ان اسند نتيجة البحث الى التكست بوكس - GameOver - 29-07-18

الحمد لله.


RE: كيف يمكنني ان اسند نتيجة البحث الى التكست بوكس - elgokr - 29-07-18

الاخ GameOver
ما قصر فى تقديم الكود

فخالص التحية له ولك
وتمنياتى لكم التوفيق



RE: كيف يمكنني ان اسند نتيجة البحث الى التكست بوكس - larbihamri - 29-07-18

شكرا لك اخي elgokr و اخي Gameover 
الله يفتح لكما و للجميع كل ابواب الخير