[سعود]

وانا بدوري ايضا اعتذر لعدم المامي بكل المعلومات حول التطبيق.


لكن مداخلتي مقصورة على قيمة معينة (نعم/لا)
وهذا مثال بسيط:

كود :

Public Class Form1
   Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=db.accdb"
   Dim con As New OleDb.OleDbConnection(str)
   Dim da As OleDb.OleDbDataAdapter
   Dim dt As DataTable
 
   Private Sub btnget_Click(sender As Object, e As EventArgs) Handles btnget.Click
       da = New OleDb.OleDbDataAdapter("select * from [tb] where [male]=" & ismale.Checked & "", con)
       dt = New DataTable
       da.Fill(dt)
       Me.DataGridView1.DataSource = dt
   End Sub
End Class