منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[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=55169)

طلب كود - ZEEN4ZEEN - 03-10-25

السلام عليكم
لديا فورم به ComboBox1 و 2 نكست بكس
اريد ان اربط ComboBox1 بجدول بقاعدة بيانات اكسس
به حفلين الاسم ورقم الهاتف
بحيت عند تحميل البيانات من الجدول يتم تعبئت ال ComboBox1
بالاسماء من الجدول وأريد عند الضغط على اى اسم يتم عرض الاسم فى التكست بكس1 ورقم الهاتف فى التكست بكس2

RE: طلب كود - مصمم هاوي - 03-10-25

(03-10-25, 01:31 AM)ZEEN4ZEEN كتب : السلام عليكم
لديا فورم به ComboBox1 و 2 نكست بكس
اريد ان اربط ComboBox1 بجدول بقاعدة بيانات اكسس
به حفلين الاسم ورقم الهاتف
بحيت عند تحميل البيانات من الجدول يتم تعبئت ال ComboBox1
بالاسماء من الجدول وأريد عند الضغط على اى اسم يتم عرض الاسم فى التكست بكس1 ورقم الهاتف فى التكست بكس2

الأمر سهل جدا؛ لكنني لا أستطيع أن أرفق لك مثالا أو كودا لأنني أكتب من الجوال.
وغدا إن شاء الله أتابع الموضوع إن لم يسبقني أحد الأساتذة الكرام

RE: طلب كود - justforit - 03-10-25

نحن في زمن الذكاء الاصطناعي
ابحث في قوقل ستجد انه يجلب لك الحل بشكل كامل مع الاكواد مثال:

لربط ComboBox1 بجدول في قاعدة بيانات Access لعرض الأسماء، ثم عرض الاسم والهاتف في TextBoxes عند اختيار اسم، اتبع الخطوات التالية: أولاً، استخدم عناصر تحكم DataGridView أو DataSet لربط البيانات بالـ ComboBox. ثانياً، قم بتحميل الأسماء في خاصية DataSource لعنصر ComboBox. ثالثاً، استخدم حدث SelectedIndexChanged لعنصر ComboBox لتحديث TextBoxes بالاسم ورقم الهاتف المطابقين للاختيار من الجدول. 
الخطوات التفصيلية لربط البيانات وعرضها:
إعداد قاعدة البيانات والوصول إليها:
تأكد من أن لديك جدول في قاعدة بيانات Access يحتوي على عمودين: "الاسم" و "رقم الهاتف". 
في VB.NET، قم بإضافة اتصال بقاعدة بيانات Access باستخدام مكون OleDbConnection و OleDbDataAdapter أو أدوات ربط البيانات من نافذة DataSource. 
تعبئة ComboBox ببيانات الأسماء:
استخدم TableAdapter أو OleDbDataAdapter لملء جدول بيانات (DataSet) من جدول الأسماء في قاعدة بيانات Access. 
قم بربط عنصر التحكم ComboBox1 بجدول البيانات هذا. 
في خصائص عنصر التحكم ComboBox1، حدد ما يلي:
DataSource: حدد جدول البيانات الذي يحتوي على البيانات. 
DisplayMember: حدد اسم عمود "الاسم" ليتم عرضه في القائمة المنسدلة. 
ValueMember: حدد عمود "الاسم" كـ ValueMember لربط البيانات بشكل صحيح.
عرض الاسم ورقم الهاتف عند اختيار اسم:
في نموذجك، انقر نقرًا مزدوجًا على عنصر التحكم ComboBox1 لإنشاء معالج حدث SelectedIndexChanged. 
داخل هذا الحدث، قم بما يلي:
استخدم ComboBox1.SelectedItem للحصول على الصف المحدد. 
استخرج الاسم ورقم الهاتف من الصف المحدد.
قم بتعيين اسم العنصر المحدد إلى TextBox1.Text. 
قم بتعيين رقم الهاتف المطابق للاسم المحدد إلى TextBox2.Text. 
مثال كود لحدث SelectedIndexChanged:


PHP كود :
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
    If ComboBox1.SelectedItem IsNot Nothing Then
        ' افترض أن ComboBox1 مرتبط بـ DataTable يسمى YourDataTable
        ' وأن الصفوف تحتوي على أعمدة تسمى "الاسم" و "رقم الهاتف"
        Dim selectedRow As DataRowView = TryCast(ComboBox1.SelectedItem, DataRowView)

        If selectedRow IsNot Nothing Then
            TextBox1.Text = selectedRow("الاسم").ToString()
            TextBox2.Text = selectedRow("رقم الهاتف").ToString()
        End If
    End If
End Sub 
انا لا اقصد انك ستجد الحل من هذه الاسطر لكن قد يساعدك .
اي اصدار من فيجوال استوديو تستخدم؟

RE: طلب كود - justforit - 04-10-25


المرفق مثال بسيط للحل اللذي اعطاه لنا الذكاء الاصطناعي من قوقل