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

غير مجرب