[محمد مسافر]

على نفس المثال فكرت في امكانيه استخدام RadioButton  للاختيار في البحث من خلال :

1- RadioButton   لتحديد البحث فقط بـ VILLAGE
2- RadioButton   لتحديد البحث فقط بـ OZLAHH

وحاولت وعملت الاكواد الاتيه ولم تظهر نتائج البحث بالتحديد علماً اني عملت خيار البوتون 1 هو التلقائي فماهو تصحيح الكود والمكان الصحيح شاكراً تفهمكم  :

PHP كود :

Imports System.Data.OleDb

Public Class Form1

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
        Dim da As New OleDbDataAdapter("SELECT * FROM [Coverage Claims] WHERE [VILLAGE] LIKE @c ", con)
    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
        Dim da As New OleDbDataAdapter("SELECT * FROM [Coverage Claims] WHERE [OZLAHH] LIKE @c ", con)
    End Sub

    Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Coverage Claims.accdb;Password=")
    Dim da As New OleDbDataAdapter("SELECT * FROM [Coverage Claims] WHERE [VILLAGE]&[OZLAHH] LIKE @c ", con)
    Dim dt As New DataTable


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        DataGridView1.AllowDrop = True
        For Each l In InputLanguage.InstalledInputLanguages
            If l.culture.ToString.StartsWith("ar") Then InputLanguage.CurrentInputLanguage = l

            RadioButton1.Checked = True
        Next
    End Sub

    Private Sub textSerch_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles textSerch.TextChanged

        dt.Clear()
        Label1.Hide()
        If textSerch.Text.Trim = "" Then Label1.Visible = False : Exit Sub
        If textSerch.Text.Trim.Length < 3 Then
            Label1.Visible = True
            Exit Sub
        End If

        dt.Clear()
        Label1.Hide()
        If textSerch.Text.Trim.Length >= 3 Then
            da.SelectCommand.Parameters.Clear()
            da.SelectCommand.Parameters.AddWithValue("@c", "%" & textSerch.Text.Trim & "%")
            da.Fill(dt)
            DataGridView1.DataSource = dt
            DataGridView1.ClearSelection()
            If dt.Rows.Count = 0 Then Label1.Show()
        End If
        If textSerch.Text = "" Then
            Label2.Show()
        Else
            Label2.Hide()
        End If


        'التحكم في عرض العمود
        DataGridView1.Columns(0).Width = 40
        DataGridView1.Columns(1).Width = 110
        DataGridView1.Columns(2).Width = 110
        DataGridView1.Columns(3).Width = 130
        DataGridView1.Columns(4).Width = 130


    End Sub