+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : ملئ DataGridView بجدول قاعدة بيانات اكسس بواسطة combobox (/showthread.php?tid=230)
ملئ DataGridView بجدول قاعدة بيانات اكسس بواسطة combobox - ناريمان - 22-09-13
السلام يا اعضاء المنتدى الكرااام
عندي فورم يحتوي DataGridView1 و اثنين combobox ..
المطلوب انو لما اختار "Grop1" من combobox1 يتم تحديد الجدول رقم واحد "Ta1" الموجود في قاعدة بيانات اسمها Pro و يتم عرض جميع بيانات Ta1 في DataGridView1 ..
حاولت :::
كود :
Public ConnPro As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source =" & Application.StartupPath & "\Pro.mdb")
"
Dim sql As String = " select* from هنا شلون اخليه يختار جدول "
Dim db1 As New OleDb.OleDbDataAdapter(sql, ConnPro)
Dim dbs As New DataSetبس للاسف ما عرفت اسويها !؟؟
و المطلوب الثاني انو لما اختار من combobox1 احد الاقسام "Grop1,Grop2,Grop3" و اختار من الـ combobox2 احد الخيارات .. تتنفذ هاذي الجملة :
كود :
Dim sql As String = "DELETE FROM WHERE =" & ComboBox1.SelectedItem & " WHERE PName=" & ComboBox2.SelectedItem & ""يعني ينحذف السجل الموجود في قاعدة البيانات بناء على الي نختاره من ComboBox1 الي يحدد الجدول .. و ComboBox2 يحدد العنصر الي في عمود PName ..
انتظر مساعدتكم
ثانكس
RE: ملئ DataGridView بجدول قاعدة بيانات اكسس بواسطة combobox - تركي قرمزلي - 22-09-13
السلام عليكم و رحمة الله و بركاته
فبل الإجابة على تساؤلك أود أن أعرف هل الكومبو بوكس مرتبط مع قاعدة بيانات أم هما معبئان يدويا
السلام عليكم و لاحمة الله و بركاته
RE: ملئ DataGridView بجدول قاعدة بيانات اكسس بواسطة combobox - Sajad - 23-09-13
السلام عليكم
بالنسبة للسؤال الاول:
كود :
Dim connPro As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source =" & Application.StartupPath & "\Pro.mdb")
Dim sql As String = " select * from " & combobox1.Text
Dim db1 As New OleDb.OleDbDataAdapter(sql, connPro)
Dim dbs As New DataSet
connPro.Open()
db1.Fill(dbs)
connPro.Close()
Dim t As New DataTable()
t = dbs.Tables(0)
DataGridView1.DataSource = tأما السؤال الثاني:
كود :
Dim del As String = "DELETE FROM " & ComboBox1.Text & "WHERE PName='" & ComboBox2.Text & "'"