منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كيفية عرض حقلين من جدول واحد في كمبوبوكس - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=34055)

كيفية عرض حقلين من جدول واحد في كمبوبوكس - atefkhalf2004 - 30-03-20

وضعت هذا الموضوع سابقا
ومعرفش ليه تم الحذف
ولم اصل الي حل

شكرا

RE: كيفية عرض حقلين من جدول واحد في كمبوبوكس - SaedAmer - 30-03-20

(30-03-20, 05:59 PM)atefkhalf2004 كتب : وضعت هذا الموضوع سابقا
ومعرفش ليه تم الحذف
ولم اصل الي حل

شكرا

اكتب محاولتك

RE: كيفية عرض حقلين من جدول واحد في كمبوبوكس - atefkhalf2004 - 30-03-20

'تعبئة المخازن
If conn.State = ConnectionState.Open Then conn.Close()
conn.Open()
Dim sql As String
Dim dsmakhzan As New DataSet
dsmakhzan = New DataSet
Dim dpmakhzan As New SqlDataAdapter
dpmakhzan = New SqlDataAdapter(sql, conn)
dpmakhzan.Fill(dsmakhzan, "makhazen")
conn.Close()


'ComboBox9.Items.Clear()
ComboBox9.DataSource = dsmakhzan.Tables("makhazen")
ComboBox9.DisplayMember = ("makhzanname" & " " & "maddress ")
ComboBox9.ValueMember = "makhzanid"
ComboBox9.ValueMember = "makhzanid"

RE: كيفية عرض حقلين من جدول واحد في كمبوبوكس - SaedAmer - 30-03-20

(30-03-20, 10:19 PM)atefkhalf2004 كتب : 'تعبئة  المخازن
       If conn.State = ConnectionState.Open Then conn.Close()
       conn.Open()
       Dim sql As String
       Dim dsmakhzan As New DataSet
       dsmakhzan = New DataSet
       Dim dpmakhzan As New SqlDataAdapter
       dpmakhzan = New SqlDataAdapter(sql, conn)
       dpmakhzan.Fill(dsmakhzan, "makhazen")
       conn.Close()


       'ComboBox9.Items.Clear()
       ComboBox9.DataSource = dsmakhzan.Tables("makhazen")
       ComboBox9.DisplayMember = ("makhzanname" & "  " & "maddress ")
       ComboBox9.ValueMember = "makhzanid"
   ComboBox9.ValueMember = "makhzanid"



كود :
If conn.State = ConnectionState.Closed Then

conn.Open()

end if

Dim conn As New OleDbConnection("جملة الاتصال")
Dim cmd As New OleDbCommand
Dim cmd2 As New OleDbCommand


ComboBox9.Items.Clear()
   
   
    cmd.Connection=conn
    cmd.CommandText="select empname from employee"
   
    cmd2.Connection=conn
    cmd2.CommandText="select empname from employee2"

    Dim dr As OleDbDataReader=cmd.ExecuteReader
    Dim dr2 As OleDbDataReader=cmd2.ExecuteReader
   
    While dr.Read
        ComboBox9.items.add(dr.item(0) & dr2.item(0))
    End While
    dr.close()
    dr2.close()


غير مجرب

RE: كيفية عرض حقلين من جدول واحد في كمبوبوكس - حريف برمجة - 31-03-20

ممكن تدمج حقلين أو أكثر في جملة sql وتسند لها اسم جديد وتعبئ الكومبو به كالتالي :
كود :
Dim dp As New OleDbDataAdapter("select id,firstname + ' | ' + lastname as fullname from Table1", Conn)
       Dim dt As New DataTable
       dp.Fill(dt)

       ComboBox1.DataSource = dt
       ComboBox1.ValueMember = "id"
       ComboBox1.DisplayMember = "fullname"


RE: كيفية عرض حقلين من جدول واحد في كمبوبوكس - atefkhalf2004 - 31-03-20

شكرا لكم وسوف اجرب عند العودة الي المنزل