+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=27404)
استدعاء الصنف الى الكومبو بوكس - salah mansour - 11-11-18
السلام عليكم ورحمة الله...اريد عند استدعاء صنف معين الى كومبو بوكس مثلا او داتا جريد ان تكون الوحدة ملازمة لاسم الصنف
بمعنى...كيس سكر - كيلو او كيس ارز - 5كيلو..... وهكذا
ماهو الكود اللازم لهذه العملية مع خالص تحياتى و شكرى
RE: استدعاء الصنف الى الكومبو بوكس - Rabeea Qbaha - 11-11-18
كود :
Sub fill_comb()
Dim query As String
Dim command As OleDbCommand
Dim reader As OleDbDataReader
'فحص الاتصال بقاعدة البيانات
If Conn.State = ConnectionState.Closed Then
Conn.Open()
End If
query = "SELECT material_name, unit FROM [Materials]"
command = New OleDbCommand(query, Conn)
reader = command.ExecuteReader()
If reader.HasRows Then
While reader.Read()
Combs.Items.Add(reader(0) & "-" & reader(1))
End While
End If
reader.Close()
Conn.Close()
Combs.SelectedItem = Nothing
End Subمع مراعاة تغير material_name, unit