[حريف برمجة]

وعليكم السلام ،،

لديك قاعدة بيانات فيها جدول ،، الجدول يحتوي على عدد 7 أعمدة .

وتريد تعبئة الكومبو بوكس بأحد الأعمدة ،،

وبعد أختيار صنف من الكومبو تريد عرض البيانات بدلالة الصنف في الداتاقريدفيو ..

هذا الكود :

كود :

Dim dp As New OleDbDataAdapter("select * from Table1 where car_kind = '" combobox1.text "'",conn)

Dim dt As New DataTable()
dp.Fill(dt)
DataGridView1.DataSource = dt

بإفتراض اسم الجدول : Table1
وأسم الحقل المعروض في الكومبو : car_kind
والداتاقريدفيو اسمها : DataGridView1

ومتغير الإتصال بقاعدة البيانات : conn


اعمل دبل كلك على الكومبو والصق الكود مع التعديل بما يتناسب مع جدول قاعدة البيانات .