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 SubImports System.Data.OleDb
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