(22-12-14, 10:47 PM)momiana1 كتب : أيوا بالضبط هذا اللى أريده ، بس بالطريقة هذه لا تصلح
لأنه عندي أكثر من 250 صنف وبالكود هذا ح أكتب شرط If أكثر من 250 مرة
وفي حالة إضافة صنف جديد ، سأضطر لتعديل الكود
أريد كود يقوم بالإتصال بقاعدة البيانات ويقوم بإستعلام القيمة بشرط ( بند Combobox )
هذا الكود يقوم بتحميل بيانات عمود الصنف من قاعدة البيانات وإظهاره في Combobox وهو شغال تمام
كود :
Dim i As Integer
For i = 0 To DataSet1.Tables("Table_name").Rows.Count - 1
ComboBox1.Items.Insert(i, DataSet1.Tables("Table_name").Rows(i).Item("item_name"))
Next
اجل استخدم طريقة SELECT
كود :
Home.Open()
Try
Dim MODZ As OleDbDataReader
Dim MAD As New OleDbCommand
MAD.Connection = Home
MAD.CommandText = "select * From ostaz where [اسماء] ='" + ComboBox1.Text + "'"
MODZ = MAD.ExecuteReader
If MODZ.Read Then
TextBox1.Text = MODZ(1)
End If
Catch ex As Exception
MsgBox(ex.Message.ToString)
End Try
Home.Close()نلاحظ وجود رقم 1 وهذا يقصد رقم العامود الذي يوجد به عمر خالد
وعلما بأن الاسم العامود [0] والعمر عامود [1] وهكذا اتمنى فهمت
لقد اكتشفت مع الأيام أنه ما من فعلٍ مغايرٍ للأخلاق, وما من جريمة بحق المجتمع إلا ولليهود والنصارى يداً فيها 
