[أمجد وضاح]

مثلاً معاكم هذا الجدول
الاسم  | العمل        |
أمجد    | مبرمج       |
حسام  | ميكانيكي   |
________________
طيب لما أختر من الكومبو أمجد يظهر في التكست بوكس مبرمج
ولما اختر  حسام يظهر ميكانيكي

[عبد العزيز البسكري]

السّلام عليكم و رحمة الله و بركاته

جرّب بهذا الشّكل أخي الكريم

كود :

   Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
       If Me.ComboBox1.Text = String.Empty Then
           Me.TextBox1.Text = String.Empty
       End If
       Try
           Dim Cmd As SqlCommand = New SqlCommand()
           Dim Rreader As SqlDataReader = Nothing
           If Conne_2019.State = ConnectionState.Open Then Conne_2019.Close()
           Conne_2019.Open()
           Dim Qquery As String = " SELECT * From Table1 Where Field_Name = '" & ComboBox1.Text.Trim & "'"
           Cmd = New SqlCommand(Qquery, Conne_2019)
           Rreader = Cmd.ExecuteReader()
           While Rreader.Read
               If Rreader IsNot Nothing Then
                   Me.TextBox1.Text = Rreader.Item("Field_Job")
               End If
           End While
           If Conne_2019.State = ConnectionState.Open Then Conne_2019.Close()
       Catch ex As Exception
           MessageBox.Show("خطأ غير معيّن أثناء عملية الإستعلام" & ex.ToString & vbCrLf)
       End Try
   End Sub

تحياتي

[أمجد وضاح]

هناك خطأ في هذه الكلمات
SqlCommand
SqlDataReader

[عبد العزيز البسكري]

Sql

=

Oledb

[أمجد وضاح]

أخي لم تنفع هذه الطريقة

[asemshahen5]

بسم الله الرحمن الرحيم .
أولا استدع فضاء الاسماء :

PHP كود :

Imports System.Data.OleDb 


ليصبح الكود كاملا كالتالي :

PHP كود :

Imports System.Data.OleDb
Public Class Form1
    Dim Conne_2019 As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=قاعدة البيانات.accdb;Jet OLEDB:Database Password=;")
    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
        If Me.ComboBox1.Text = String.Empty Then
            Me.TextBox1.Text = String.Empty
        End If
        Try
            Dim Cmd As OleDbCommand = New OleDbCommand()
            Dim Rreader As OleDbDataReader = Nothing
            If Conne_2019.State = ConnectionState.Open Then Conne_2019.Close()
            Conne_2019.Open()
            Dim Qquery As String = " SELECT * From الجدول Where الاسم = '" & ComboBox1.Text.Trim & "'"
            Cmd = New OleDbCommand(Qquery, Conne_2019)
            Rreader = Cmd.ExecuteReader()
            While Rreader.Read
                If Rreader IsNot Nothing Then
                    Me.TextBox1.Text = Rreader.Item("العمل")
                End If
            End While
            If Conne_2019.State = ConnectionState.Open Then Conne_2019.Close()
        Catch ex As OleDbException
            MessageBox.Show("خطأ غير معيّن أثناء عملية الإستعلام" & ex.ToString & vbCrLf)
        End Try
    End Sub
End Class 


مع مراعاة تغيير اسم الجدول و اسم العامود بما يتناسب مع عملك .

[أمجد وضاح]

سأجرب الطريقة