[Sajad]

السلام عليكم


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

كود :

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