06-08-19, 03:09 PM
06-08-19, 03:54 PM
السّلام عليكم و رحمة الله و بركاته
ضع هذا الكود بأي مكان بالفورم ..
كود :
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
تحياتي
06-08-19, 05:57 PM
شكرا لك اخي الكريم ولكن هل يمكنك توضيحة الامور اكتر
لانه عند وضع الاكواد ظهر لدي خطاء
انا استعمل قاعدة بيانات الاكسيس
لدي بها table1 وداخله حقل name به الاسماء اريد ان اعرض بيانات حقل name داخل الكومبو بوكس
لانه عند وضع الاكواد ظهر لدي خطاء
انا استعمل قاعدة بيانات الاكسيس
لدي بها table1 وداخله حقل name به الاسماء اريد ان اعرض بيانات حقل name داخل الكومبو بوكس
06-08-19, 08:17 PM
بسيطة أخي الكريم .. فقط لاحظ الاسم " علي " بالكومبوبكس الأول ثم بالكومبوبكس الثاني
تحياتي
06-08-19, 09:30 PM
السلام عليكم اخي الكريم
مع موفور الشكر لاخي عبد العزيز البسكري على اجابته لك
وزيادة في الايضاح قم بانشاء هذا الصب وغير اسم الجدول لما هو عندك وكذلك اسم الحقل الذي تريد اظهاره في الكومبوبزكس
ثم قم باستدعاء هذا الصب في حدث فورم لود
لاحظ اننا كتبنا اسم الكومبوبوكس الذي نريد تعبئته بين قوسي الدالة وهو الباراميتر الذي تطلبه الدالة
مع موفور الشكر لاخي عبد العزيز البسكري على اجابته لك
وزيادة في الايضاح قم بانشاء هذا الصب وغير اسم الجدول لما هو عندك وكذلك اسم الحقل الذي تريد اظهاره في الكومبوبزكس
كود :
' انشئ هذا الصب
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لاحظ اننا كتبنا اسم الكومبوبوكس الذي نريد تعبئته بين قوسي الدالة وهو الباراميتر الذي تطلبه الدالة