منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] احتاج مساعدة في تنفيذ هذا الامر - نسخة قابلة للطباعة

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

احتاج مساعدة في تنفيذ هذا الامر - mohamed11223 - 06-08-19

لدي حقل في الداتا جريد فيو باسم Name
ولدي كومبو بوكس
كيف يمكنني ان اجعل الاسماء الموجودة في هذا الحقل تظهر في الكومبو بوكس

RE: احتاج مساعدة في تنفيذ هذا الامر - عبد العزيز البسكري - 06-08-19

السّلام عليكم و رحمة الله و بركاته
ضع هذا الكود بأي مكان بالفورم ..
كود :
 Private Sub Fill_Name_Combobox()
       Dim Sql_Str As String
       Dim InfoAdapter As OleDbDataAdapter
       Dim InfoTable As DataSet
       ComboBox1.Items.Clear()
       Sql_Str = "Select DISTINCT Name From Table1"
       InfoAdapter = New OleDbDataAdapter(Sql_Str, Conne_2019)
       InfoTable = New DataSet
       InfoTable.Clear()
       InfoAdapter.Fill(InfoTable, "Table1")
       For Each rw As DataRow In InfoTable.Tables("Table1").Rows
           ComboBox1.Items.Add(rw(0).ToString())
       Next
   End Sub

ثمّ بالفورم لودْ .. أكتب ما يلي ..
كود :
()ِCall Fill_Name_Combobox

و إذا أردت إظهار الأسماء بتكرارها إذا كانت مكرّرة .. فقط قم بحذف كلمة
DISTINCT
تحياتي


RE: احتاج مساعدة في تنفيذ هذا الامر - mohamed11223 - 06-08-19

شكرا لك اخي الكريم ولكن هل يمكنك توضيحة الامور اكتر
لانه عند وضع الاكواد ظهر لدي خطاء
انا استعمل قاعدة بيانات الاكسيس
لدي بها table1 وداخله حقل name به الاسماء اريد ان اعرض بيانات حقل name داخل الكومبو بوكس

RE: احتاج مساعدة في تنفيذ هذا الامر - عبد العزيز البسكري - 06-08-19

بسيطة أخي الكريم .. فقط لاحظ الاسم " علي " بالكومبوبكس الأول ثم بالكومبوبكس الثاني
تحياتي


RE: احتاج مساعدة في تنفيذ هذا الامر - ابراهيم ايبو - 06-08-19

السلام عليكم اخي الكريم
مع موفور الشكر لاخي عبد العزيز البسكري على اجابته لك
وزيادة في الايضاح قم بانشاء هذا الصب وغير اسم الجدول لما هو عندك وكذلك اسم الحقل الذي تريد اظهاره في الكومبوبزكس 
كود :
 ' انشئ هذا الصب
   Public Sub fillCombo(ByVal cmb As ComboBox)
       'املاء الكومبوبوكس
       Dim dt As New DataTable
       Dim da As New OleDbDataAdapter
       dt.Clear()
       da = New OleDbDataAdapter("Select*from اسم الجدول ", con)
       da.Fill(dt)
       If dt.Rows.Count > 0 Then
           cmb.DataSource = dt
           cmb.DisplayMember = "اسم الحقل الذي تريد ظهوره"
           cmb.ValueMember = "ID"
       Else
           cmb.DataSource = Nothing
       End If
   End Sub

ثم قم باستدعاء هذا الصب في حدث فورم لود
كود :
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       fillCombo(ComboBox1)
       ComboBox1.SelectedIndex = 0
   End Sub

لاحظ اننا كتبنا اسم الكومبوبوكس الذي نريد تعبئته بين قوسي الدالة وهو الباراميتر الذي تطلبه الدالة