منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] اظهار حقلين في كومبو بوكس - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] اظهار حقلين في كومبو بوكس (/showthread.php?tid=19091)



اظهار حقلين في كومبو بوكس - ابو يوسف النواوي 2 - 02-02-17

السلام عليكم دة كود ملئ كومبو بوكس باسماء الاصناف
انا عاوز اعرف ازاي اظهر حقل اخر مع اسم الصنف

  Public Sub fillItemName(sql As String, ItemName As ComboBox)
        ItemName.Items.Clear()
        Dim adp As New SqlClient.SqlDataAdapter(sql, cn)
        Dim ds As New DataSet
        adp.Fill(ds)
        Dim dt = ds.Tables(0)
        For i = 0 To dt.Rows.Count - 1
            ItemName.Items.Add(dt.Rows(i).Item("ItemName"))
        Next
    End Sub
==========================================================
fillItemName("select * from Items  order by  ItemName", CmbITems)


RE: اظهار حقلين في كومبو بوكس - ابو ليلى - 02-02-17

يا ابو يوسف استخدم جملة التحديد في دمج عمودين في عمود جديد

PHP كود :
       Dim _Select1 As String "SELECT CONCAT(FirstColumn, ' ', LastColumn) AS Column FROM Table1"
        Dim _Select2 As String "SELECT column1 + ' ' + column2 As column3 FROM Table1" 
و اذا كان هناك احتمال في ان احد العمودين يمكن ان يكون فارغاً فاستخدم 
PHP كود :
       Dim _Select3 As String "SELECT COALESCE(column1,'') + COALESCE(column2,'') FROM table1" 



RE: اظهار حقلين في كومبو بوكس - ابو يوسف النواوي 2 - 02-02-17

(02-02-17, 06:41 PM)ابو ليلى كتب : يا ابو يوسف استخدم جملة التحديد في دمج عمودين في عمود جديد

PHP كود :
       Dim _Select1 As String "SELECT CONCAT(FirstColumn, ' ', LastColumn) AS Column FROM Table1"
        Dim _Select2 As String "SELECT column1 + ' ' + column2 As column3 FROM Table1" 
و اذا كان هناك احتمال في ان احد العمودين يمكن ان يكون فارغاً فاستخدم 
PHP كود :
       Dim _Select3 As String "SELECT COALESCE(column1,'') + COALESCE(column2,'') FROM table1" 
طيب جملة الاستعلام اشتغلت معايا تمام جربتها في السيكوال سيرفر

المفروض اعدل ايه هنا في الكود دة 
 Public Sub fillItemName(sql As String, ItemName As ComboBox)

        ItemName.Items.Clear()
        Dim adp As New SqlClient.SqlDataAdapter(sql, cn)
        Dim ds As New DataSet
        adp.Fill(ds)
        Dim dt = ds.Tables(0)
        For i = 0 To dt.Rows.Count - 1
            ItemName.Items.Add(dt.Rows(i).Item("ItemName"))
        Next
    End Sub
معلش استحملني


RE: اظهار حقلين في كومبو بوكس - ابو ليلى - 02-02-17

غير اسماء الاعمدة في الاستعلام بما لديك
PHP كود :
   Public Sub fillItemName(sql As StringItemName As ComboBox)

 
       ItemName.Items.Clear()

 
       Dim adp As New SqlClient.SqlDataAdapter(sqlcn)
 
       Dim ds As New DataSet
        adp
.Fill(ds)
 
       Dim dt ds.Tables(0)
 
       For i 0 To dt.Rows.Count 1
            ItemName
.Items.Add(dt.Rows(i).Item("column3"))
 
       Next
    End Sub

    Dim _Select2 
As String "SELECT column1 + ' ' + column2 As column3 FROM Table1"

 
   fillItemName(_Select2,ComboBox1



RE: اظهار حقلين في كومبو بوكس - ابو يوسف النواوي 2 - 02-02-17

(02-02-17, 07:44 PM)ابو ليلى كتب : غير اسماء الاعمدة في الاستعلام بما لديك
PHP كود :
   Public Sub fillItemName(sql As StringItemName As ComboBox)

 
       ItemName.Items.Clear()

 
       Dim adp As New SqlClient.SqlDataAdapter(sqlcn)
 
       Dim ds As New DataSet
        adp
.Fill(ds)
 
       Dim dt ds.Tables(0)
 
       For i 0 To dt.Rows.Count 1
            ItemName
.Items.Add(dt.Rows(i).Item("column3"))
 
       Next
    End Sub

    Dim _Select2 
As String "SELECT column1 + ' ' + column2 As column3 FROM Table1"

 
   fillItemName(_Select2,ComboBox1
تم بارك الله فيك اخي الكريم وزادك علما