تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طلب كود نقل جلب البيانات من sql باستخدام ListBox
#1
السلام عليكم ورحمة الله


كما هو واضح من السؤال
انا قمت بربط ListBox بقاعدة البيانات بحيث يضهر حقل الاسم في ListBox اريد عند الضفط على الاسم يضهر البيانات المرتبطه بالاسم في textbox المخصص لكل خانه
[ATTACH=CONFIG]1882[/ATTACH]


الملفات المرفقة صورة/صور
   
الرد }}}}
تم الشكر بواسطة:
#2
[COLOR="#A52A2A"]السلام عليكم

اكتب هذا الاستعلام في حدث الClick للListBox


كمثال
PHP كود :
select "select * from DBName where Column ='" listBox1.Text "'" 

ومن ثم اظهر البيانات في الادوات مثل ما تظره اثناء البحث

بالتوفيق ان شاءالله[/COLOR]
الرد }}}}
تم الشكر بواسطة:
#3
الف شكر لك اخي sajad

سوف احاول مع انها لم تتضح الصورة
الرد }}}}
تم الشكر بواسطة:
#4
السلام عليكم ورحمة الله وبركاته



هذا يعتمد على طريقة ربط ListBox ، ممكن تخبرنا عن طريقة الربط، وهل استخدمت ValueMember و DisplayMember في الربط.
والأفضل تكتب كود الربط هذا.


السلام عليكم ورحمة الله وبركاته
الرد }}}}
تم الشكر بواسطة:
#5
اهلا بك اخي ابورائد

هذا الكود وضعته في حدث اللود للفورم
كود :
winclass.fillListBox(ListBox1, "Information", "[figure for]", "name", "")


وهذا وضعته في class
كود :
Public Sub fillListBox(ByVal cbo As ListBox, ByVal tabl1 As String, ByVal col_name As String, ByVal col_value As String, ByVal whr As String)
        Try
            Dim comb As String
            comb = ""
            comb = "Select " + col_name + " , " + col_value + " From " + tabl1 + " " + whr
            Dim sda As New SqlDataAdapter(comb, sqlcon)
            Dim ds As New DataSet()
            sda.Fill(ds)
            cbo.DataSource = ds.Tables(0)
            cbo.DisplayMember = col_name
            cbo.ValueMember = col_value

        Catch ex As Exception

        End Try
    End Sub
End Class
الرد }}}}
تم الشكر بواسطة:
#6
اخي العزيز جرب هذا الكود لتعبئة ال listbox
cmd = New SqlCommand("SELECT * FROM Table", con)

If con.State = ConnectionState.Closed Then con.Open()

drd = cmd.ExecuteReader


Do While drd.Read

listbox1.Items.Add(drd.Item(1).ToString)

Loop

If con.State = ConnectionState.Open Then con.Close()
الرد }}}}
تم الشكر بواسطة:
#7
السلام عليكم ورحمة الله وبركاته

aboaziab كتب :اهلا بك اخي ابورائد

هذا الكود وضعته في حدث اللود للفورم
كود :
winclass.fillListBox(ListBox1, "Information", "[figure for]", "name", "")


وهذا وضعته في class
كود :
Public Sub fillListBox(ByVal cbo As ListBox, ByVal tabl1 As String, ByVal col_name As String, ByVal col_value As String, ByVal whr As String)
        Try
            Dim comb As String
            comb = ""
            comb = "Select " + col_name + " , " + col_value + " From " + tabl1 + " " + whr
            Dim sda As New SqlDataAdapter(comb, sqlcon)
            Dim ds As New DataSet()
            sda.Fill(ds)
            cbo.DataSource = ds.Tables(0)
            cbo.DisplayMember = col_name
            cbo.ValueMember = col_value

        Catch ex As Exception

        End Try
    End Sub
End Class

المعذرة على التأخير................

بناءً على طريقتك في تعبئة الـListView1 (وهي الطريقة الصحيحة) يتم جلب البيانات بناءً على العنصر المحدد في الـ ListView1 كالتالي
طبعاً لا علم لي بتركيبة قاعدة البيانات لديك، لهذا تأكد من اسم table1 الجدول واسم الحقل col_value
تفضل
كود :
Private Sub ListBox1_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedValueChanged

        Dim sql As String = " SELECT * FROM [color=#ff0000]table[/color] WHERE [color=#ff0000]col_value[/color]=@col_value "

        Dim command As New SqlCommand(sql, conn)
        command.Parameters.AddWithValue("@col_value", Me.ListBox1.SelectedValue)

        Dim dataAdapter As New SqlDataAdapter(command)
        Dim dataTable As New DataTable

        If dataAdapter.Fill(dataTable) > 0 Then

            [color=#ff0000]'' dataTable.Rows(0) هنا قم بتعئبة الأدوات من[/color]

        End If

    End Sub



السلام عليكم ورحمة الله وبركاته
الرد }}}}
تم الشكر بواسطة:
#8
الف شكر لكم جميعا على مروركم
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] التجميع و الفرز قواعد البيانات tifagreet 4 61 19-01-17, 04:21 AM
آخر رد: tifagreet
  استفسار عن الجداول المتعددة في قاعدة البيانات اكسس أبووسم 4 126 14-01-17, 12:36 PM
آخر رد: أبووسم
  ياشباب ارجو منكم المساعده لدي مشاكل في اضافه الصورة الى قاعده البيانات وعمل بحث ammar ali 3 171 13-01-17, 11:15 PM
آخر رد: ammaraliali
  هل يوجد طريقة لارسال رسائل واتساب من البرنامج باستخدام vb.net 2010 ? Dr.Sherif Alazizi 15 502 12-01-17, 11:54 PM
آخر رد: Basil Abdallah
  [VB.NET] استقبال البيانات عن طريق serail port engmedomed@gmail.com 1 65 11-01-17, 02:13 AM
آخر رد: مساعدة
  تصدير البيانات الى PDF باستخدام ITextSharp لايدعم اللغة العربية فاطمة غ 8 343 04-01-17, 12:00 AM
آخر رد: مساعدة
  تغيير قاعدة البيانات الى .bak صبري زينوبي 5 134 01-01-17, 02:33 PM
آخر رد: صبري زينوبي
  [سؤال] كود ListBox naden 2 105 28-12-16, 02:09 AM
آخر رد: naden
Rainbow طباعة بيانات في DGV باستخدام VB EXPRESS وليس V STUDIO فاطمة غ 5 136 26-12-16, 04:24 PM
آخر رد: محمد كريّم
  ماهو كود اضافة صفوف الداتا قرد الي قاعدة البيانات SQL SERVER معتز الجازوي 0 70 26-12-16, 05:13 AM
آخر رد: معتز الجازوي

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


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