تقييم الموضوع :
  • 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 , ابراهيم ايبو


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] التنقل بين صفوف datagrid عبدالكريم برشدان 1 71 20-01-21, 10:30 PM
آخر رد: moosa_alabri
  إثنين كومبو بوكس..أرجو المساعدة في طريقة التعامل معهم Alziny 4 243 05-01-21, 03:10 AM
آخر رد: Alziny
  [VB.NET] التعامل مع TreeViwe Necro PC 4 166 25-12-20, 12:00 PM
آخر رد: BaLaDy
Sad [VB.NET] كيفية تحديد صفوف معينة لي الطباعة Aziz170020 2 287 07-12-20, 09:53 PM
آخر رد: muaamar
  محتاج مساعدة بكود فتح الأكسس من الفجول بيسك أبو عبدالله الحلواني 5 291 07-12-20, 12:55 AM
آخر رد: أبو عبدالله الحلواني
  مشكلة فى التعامل مع ال panel محمد ابوخليل 1 200 05-12-20, 08:20 PM
آخر رد: Anas Mahmoud
  مساعدة من اخوتي برنامج مبيعات سوبرماركت التعامل مع اكثر من زبون في نفس الوقت Mokhtar-mako 3 381 03-12-20, 12:04 PM
آخر رد: Anas Mahmoud
  كيف يمكن تلوين عدد من صفوف ListBox ؟ عبد الله 15 4,054 08-10-20, 01:24 PM
آخر رد: MetoDas
  التعامل مع التواريخ khaled Mohammed 5 365 29-09-20, 05:48 PM
آخر رد: khaled Mohammed
  التعامل مع التواريخ | مثال للتعديل khaled Mohammed 1 207 29-09-20, 03:26 PM
آخر رد: ابو محمد محمد محمد

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


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