[atefkhalf2004]

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

شكرا

[SaedAmer]

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

شكرا

اكتب محاولتك

[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"

[SaedAmer]

(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()

غير مجرب

[حريف برمجة]

ممكن تدمج حقلين أو أكثر في جملة 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"

[atefkhalf2004]

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