30-03-20, 05:59 PM
30-03-20, 09:40 PM
(30-03-20, 05:59 PM)atefkhalf2004 كتب : [ -> ]وضعت هذا الموضوع سابقا
ومعرفش ليه تم الحذف
ولم اصل الي حل
شكرا
اكتب محاولتك
30-03-20, 10:19 PM
'تعبئة المخازن
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.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"
30-03-20, 11:01 PM
(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()غير مجرب
31-03-20, 02:24 AM
ممكن تدمج حقلين أو أكثر في جملة 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"31-03-20, 02:59 PM
شكرا لكم وسوف اجرب عند العودة الي المنزل