تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
التعامل مع صفوف الأكسس
#1
مثلاً معاكم هذا الجدول
الاسم  | العمل        |
أمجد    | مبرمج       |
حسام  | ميكانيكي   |
________________
طيب لما أختر من الكومبو أمجد يظهر في التكست بوكس مبرمج
ولما اختر  حسام يظهر ميكانيكي
كلنا لبسنا كمامات باقي هذا السبب الرئيسي الذي عدا كوكبنا خلاص لبس كمامة
[صورة مرفقة: coronavirus-2019-ncov-concept-protect-wo...0-5574.jpg]
الرد
تم الشكر بواسطة: asemshahen5
#2
السّلام عليكم و رحمة الله و بركاته
جرّب بهذا الشّكل أخي الكريم
كود :
   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

تحياتي
الرد
تم الشكر بواسطة: asemshahen5 , asemshahen5
#3
هناك خطأ في هذه الكلمات
SqlCommand
SqlDataReader
كلنا لبسنا كمامات باقي هذا السبب الرئيسي الذي عدا كوكبنا خلاص لبس كمامة
[صورة مرفقة: coronavirus-2019-ncov-concept-protect-wo...0-5574.jpg]
الرد
تم الشكر بواسطة: asemshahen5
#4
Sql
=
Oledb
الرد
تم الشكر بواسطة: asemshahen5
#5
أخي لم تنفع هذه الطريقة
كلنا لبسنا كمامات باقي هذا السبب الرئيسي الذي عدا كوكبنا خلاص لبس كمامة
[صورة مرفقة: coronavirus-2019-ncov-concept-protect-wo...0-5574.jpg]
الرد
تم الشكر بواسطة: asemshahen5
#6
بسم الله الرحمن الرحيم .
أولا استدع فضاء الاسماء :

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 ObjectAs EventArgsHandles 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(QqueryConne_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 

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




الرد
تم الشكر بواسطة: ابراهيم ايبو
#7
سأجرب الطريقة
كلنا لبسنا كمامات باقي هذا السبب الرئيسي الذي عدا كوكبنا خلاص لبس كمامة
[صورة مرفقة: coronavirus-2019-ncov-concept-protect-wo...0-5574.jpg]
الرد
تم الشكر بواسطة: asemshahen5 , ابراهيم ايبو



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم