تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كومبوبوكس وليست بوكس وداتاقريد وربطهن بزر عرض
#1
السلام عليكم ورحمة الله وبركاته
عندي كومبوبوكس 1 = يتم تعبئته باسماء مؤلفين الكتب
عندي ليست بوكس1 = يتم تعبتئه باسم الكتب عند اختيار اسم المؤلف من الكومبوبكس 1
عندي داتاقريد فيو1 = يتم عرض البيانات الصحيحة فيها عند ضغط زر عرض ولابد تحديد اسم المؤلف واسم الكتاب
culom 1 = اسم المؤلف
culom2 = اسم الكتب

اللي توصلت له كود تعبئة الكومبوبوكس 1

كود :
Dim cmd As New OleDbCommand
   Dim reader As OleDbDataReader
      cmd = New OleDbCommand("select * from table1", cn)
      cn.Open()
      reader = cmd.ExecuteReader
      While reader.Read
         If ComboBox1.Items.Contains(reader.Item(1)) = False Then
               ComboBox1.Items.Add(reader.Item(1))
           End If
      End While

      cn.Close()
  End Sub

عندي التباس بكيفية ربط الادوات مع بعضها البعض
الرد }}}
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله وبركاته
ارفق مثال ستجد الحل بشكل اسرع ،،،
الرد }}}
تم الشكر بواسطة:
#3
المثال بالمرفقات

عند اختيار مثلا حريف برمجه يظهر لي في الليست بوكس الكتب بالعمود الثاني
عند اختيار مثلا حريف برمجه من الكومبوبوكس1 والفيجوال بيسك من الليست بوكس تظهر الصفوف في الداتا قريد
المشروع مرفق


الملفات المرفقة
.rar   WindowsApplication4.rar (الحجم : 86.29 ك ب / التحميلات : 38)
الرد }}}
تم الشكر بواسطة:
#4
التعديل كما طلبت في المرفقات.


الملفات المرفقة
.rar   WindowsApplication4New.rar (الحجم : 99.58 ك ب / التحميلات : 46)
الرد }}}
تم الشكر بواسطة: هاوي1995 , هاوي1995
#5
جزاكم الله خير

وقد قمت بالتعديل على المشروع المعطى من اخونا حريف برمجه جزاه الله خير وفي ميزان حسناته ان شاء الله

بس يطلع لي خطا بالكود ويا ليت تصحيح بالكود
المثال في المرفقات


الملفات المرفقة
.rar   WindowsApplication4New.rar (الحجم : 91.79 ك ب / التحميلات : 33)
الرد }}}
تم الشكر بواسطة:
#6
مرحبا ،، امسح كل الموجود من الاكواد وقم بلصق هذه الاكواد كاملة .

كود :
Imports System.Data
Imports System.Data.OleDb
Public Class Form1
   Public cn As New OleDbConnection("provider=microsoft.ACE.OLEDB.12.0;" & " data source= D:\book.accdb")

   Private Sub ComboBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
       ListBox1.Items.Clear()

       Dim cmd As New OleDbCommand
       Dim reader As OleDbDataReader
       cmd = New OleDbCommand("select * from table1 where author ='" & ComboBox1.Text & "'", cn)

       cn.Open()

       reader = cmd.ExecuteReader
       While reader.Read
           If ListBox1.Items.Contains(reader.Item(2)) = False Then
               ListBox1.Items.Add(reader.Item(2))
           End If
       End While
       cn.Close()
   End Sub

   Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
       Dim cmd As New OleDbCommand
       Dim reader As OleDbDataReader
       cmd = New OleDbCommand("select * from table1", cn)
       cn.Open()
       reader = cmd.ExecuteReader
       While reader.Read
           If ComboBox1.Items.Contains(reader.Item(1)) = False Then
               ComboBox1.Items.Add(reader.Item(1))
           End If
       End While
       cn.Close()
   End Sub

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim dp As New OleDbDataAdapter("select * from table1 where author ='" & ComboBox1.Text & "' and book = '" & ListBox1.Text & "'", cn)
       Dim ds As New DataSet

       dp.Fill(ds)

       DataGridView1.DataSource = ds.Tables(0)
   End Sub

End Class
الرد }}}
تم الشكر بواسطة: هاوي1995
#7
تسلم وجزاك الله خير....
بس لابد من استخدام
Dp.fill
هل من الممكن حذف الكود الاخير وقبل الاخير واستخدام كود اخر
Cmd
الرد }}}
تم الشكر بواسطة:
#8
(15-10-16, 11:04 PM)هاوي1995 كتب : تسلم وجزاك الله خير....
بس لابد من استخدام
Dp.fill
هل من الممكن حذف الكود الاخير وقبل الاخير واستخدام كود اخر
Cmd

هذا افضل كود لتعبئة الداتا قريد فيو .

ما المقصود بالكود الاخير وقبل الاخير ؟
الرد }}}
تم الشكر بواسطة:
#9
PHP كود :
Private Sub ComboBox1_SelectedIndexChanged(sender As System.ObjectAs System.EventArgsHandles ComboBox1.SelectedIndexChanged
        
'Dim cmd As New OleDbCommand
        '
Dim reader As OleDbDataReader
        
'cmd = New OleDbCommand("select * from table1 where author ='" & ComboBox1.Text & "'", cn)

        Dim cmd As New OleDbCommand("select distinct * from table1 where author ='" & ComboBox1.Text & "'", cn)

        Dim t As New DataTable

        cn.Open()
        t.Load(cmd.ExecuteReader)
        cn.Close()

        ListBox1.DataSource = t '
cmd.ExecuteReader(0)
        
ListBox1.DisplayMember "book"

        'reader = cmd.ExecuteReader
        '
While reader.Read
        
'If ListBox1.Items.Contains(reader.Item(2)) = False Then
        '
ListBox1.Items.Add(reader.Item(2))
        
'End If
        '
End While
    
End Sub 
الرد }}}
تم الشكر بواسطة: هاوي1995
#10
(16-10-16, 12:20 AM)حريف برمجة كتب :
(15-10-16, 11:04 PM)هاوي1995 كتب : تسلم وجزاك الله خير....
بس لابد من استخدام
Dp.fill
هل من الممكن حذف الكود الاخير وقبل الاخير واستخدام كود اخر
Cmd

هذا افضل كود لتعبئة الداتا قريد فيو .

ما المقصود بالكود الاخير وقبل الاخير ؟

جزاكم الله خير
وتسلم على الكود وبصراحه ابدعتنا وقمت بدمج المشاركه الاخير في زر بوتن ليصبح الكود عرض البانيات بالشكل التالي
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim cmd As New OleDbCommand("select * from table1 where author ='" & ComboBox1.Text & "' and book = '" & ListBox1.Text & "'", cn)
       Dim t As New DataTable

       cn.Open()
       t.Load(cmd.ExecuteReader)
       cn.Close()


       DataGridView1.DataSource = t
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تظليل التكست بوكس عند وضع المؤشر مصمم هاوي 2 142 02-03-24, 08:48 AM
آخر رد: مصمم هاوي
  بحث بالكومبو بوكس لا ى جزء من النص Lathe1 3 440 28-02-24, 02:59 AM
آخر رد: معاند الحظ
  تحميل جميع الماسحات الضوئية المتصلة بالجهاز في كومبوبوكس جيولوجي مبتدئ 2 202 22-02-24, 07:10 PM
آخر رد: جيولوجي مبتدئ
  كيف ارسل مجموع 3 تكست بوكس إلى واحد بالترتيب ؟ أبووسم 3 330 18-12-23, 05:17 PM
آخر رد: أبووسم
  [سؤال] توزيع الارقام على أكثر من تكست بوكس أبووسم 11 692 17-11-23, 12:04 AM
آخر رد: أبووسم
  كود تغيير قيمة تكست بوكس فى تاريخ معين Ahmed.vb 2 906 11-10-23, 10:35 PM
آخر رد: aljzazy
  [VB.NET] اريد كود البحث او الفلترة عن طريق تيكست بوكس و عرض النتيجة في داتا جريد فيو الحسين احمد 6 10,620 10-06-23, 01:01 PM
آخر رد: mahmoud mostafa 2023
  [VB.NET] إرسال البيانات من التكست بوكس إلى الداتا قريد أبووسم 5 720 28-04-23, 04:15 PM
آخر رد: أبووسم
  [VB.NET] محتاج كود اضهار مسج بوكس كل يوم سبت او احد mac9 8 842 27-03-23, 10:44 PM
آخر رد: sanyor77
  مشكلة في كومبو بوكس فراس محي 3 570 14-03-23, 06:40 PM
آخر رد: عضو جديد

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


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