[justforit]

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

لربط 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 


انا لا اقصد انك ستجد الحل من هذه الاسطر لكن قد يساعدك .
اي اصدار من فيجوال استوديو تستخدم؟