سؤال: عن Combo و Datagridview و Dataset

السلام عليكم ورحمة الله وبركاته

عندى جدولين فى اكسس واحد " اسماء النتجات " و التانى "اسماء اصناف المنتجات " مرتبطين ببعض عن طريق id

وعندى كومبوا بيعرض اسماء المنتجات

السؤال:

عاوز اعرض اسماء اصناف المنتجات فى datagrid عند اختيار اسمها من combobox

الحل الذى اتبعته :

عملت متغير وخزنت فيه قيمة id بناء على الاختيار من combo

x="select id from pro_name where (prod_name='"&combobox.text&"'

بس وبعدين

نفذته على قاعدة البيانات

واخذته الناتج فى متغير y

فى datagrid كتبتله الامر ده

select * from cta_name where sub_id =y

لا تريد ان تعمل

Imports System.Data.OleDb

Public Class Form1
    Dim new_prod As New new_prod
    Dim new_cat As New new_cat
    Dim daman As New daman
    Public con As New OleDbConnection()
    Public ds As New DataSet()
    Dim x As Int32




    Private Sub إضافةمنتججديدToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles إضافةمنتججديدToolStripMenuItem.Click
        new_prod.ShowDialog()
    End Sub

    Private Sub إضافةصنفجديدToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles إضافةصنفجديدToolStripMenuItem.Click
        new_cat.ShowDialog()
    End Sub

    Private Sub الضماناتToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles الضماناتToolStripMenuItem.Click
        daman.ShowDialog()
    End Sub

    Private Sub خروجToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles خروجToolStripMenuItem.Click
        End
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim con_s, sql_d As String
        con_s = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=store.mdb"
        con.ConnectionString = con_s
        sql_d = "SELECT id, prod_name FROM pro_name"
        Dim da1 As New OleDbDataAdapter(sql_d, con)
        da1.Fill(ds, "pro_name")
        ComboBox1.DataSource = ds.Tables("pro_name")
        ComboBox1.DisplayMember = "prod_name"
        'str = ComboBox1.Text

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim sql_s As String
        Dim dv As New DataSet()
        MsgBox(x, MsgBoxStyle.OkOnly)
        sql_s = "SELECT cat_name, count, price_one, count *price_one as price_all FROM cat_details where sub_id_cat = x"
        Dim da As New OleDbDataAdapter(sql_s, con)
        dv.Clear()
        da.Fill(dv, "cat_details")
        DataGridView1.DataSource = dv.Tables("cat_details")
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Dim sw As String
        Dim com As New OleDbCommand
        sw = "SELECT id FROM pro_name where prod_name=?"
        com.CommandText = sw
        com.Connection = con
        Dim pa As New OleDbParameter
        pa.Value = ComboBox1.Text
        com.Parameters.Add(pa)
        con.Open()
        x = com.ExecuteScalar()
        con.Close()
    End Sub
End Class

وهذا هو الكود بالتفصيل