منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - ملئ DataGridView بجدول قاعدة بيانات اكسس بواسطة combobox

السلام يا اعضاء المنتدى الكرااام
عندي فورم يحتوي 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 ..

انتظر مساعدتكم

ثانكس

السلام عليكم و رحمة الله و بركاته
فبل الإجابة على تساؤلك أود أن أعرف هل الكومبو بوكس مرتبط مع قاعدة بيانات أم هما معبئان يدويا
السلام عليكم و لاحمة الله و بركاته

السلام عليكم

بالنسبة للسؤال الاول:

كود :

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 & "'"

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

ناريمان

تركي قرمزلي

Sajad