Ricerca Parziale

sql = "SELECT * FROM Amministratori where (" & Mycampo & " LIKE " & MyChar & TxtRicerca.Text & MyChar & " + '%') order by " & Mycampo
        DataSetGrid = New DataSet("Amministratori")
        DataGridDaPt = New OleDb.OleDbDataAdapter(sql, Dbazienda)
        DataGridDaPt.Fill(DataSetGrid, "Amministratori")
        DataGridBindig = New BindingSource()
        DataGridBindig.DataSource = DataSetGrid
        DataGridBindig.DataMember = "Amministratori"
        DataGridView1.DataSource = DataGridBindig
        DataGridSettaColori()
        If DataGridBindig.Count = 0 Then
            MsgBox(ComboRicerca.Text & " NON TROVATO", MsgBoxStyle.Information, "kO")
        End If
        If DataGridBindig.Count > 0 Then
            LblStatus.Text = DataGridBindig.Position & "/" & DataGridBindig.Count
        Else
            LblStatus.Text = "Recordset Vuoto"
            MsgBox("Recordset vuoto!", MsgBoxStyle.Information, "Non ci sono Record")
            DataGridView1.DataSource = AmministratoriBindingSource
        End If
        System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default
    End Sub

Private Sub RicercaParziale_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RicercaParziale.Click
'*****************************

' ricerca su stringa parziale CREANDO APPOSITO rECORDSET

'*****************************

If Len(TxtRicerca.Text) = 0 Then
MsgBox("Stringa di ricerca vuota", MsgBoxStyle.Exclamation, "KO")
TxtRicerca.Focus()
Exit Sub
End If
Dim DataGridBindig As New BindingSource()
Dim DataSetGrid As New DataSet
Dim DataGridDaPt As OleDb.OleDbDataAdapter
System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.WaitCursor
Dim MyChar As String = RitornaTipo(ComboRicerca.Text)
Dim Mycampo As String = Trim(ComboRicerca.Text)

sql = "SELECT * FROM Amministratori where (" & Mycampo & " LIKE " & MyChar & TxtRicerca.Text & MyChar & " + '%') order by " & Mycampo
DataSetGrid = New DataSet("Amministratori")
DataGridDaPt = New OleDb.OleDbDataAdapter(sql, Dbazienda)
DataGridDaPt.Fill(DataSetGrid, "Amministratori")
DataGridBindig = New BindingSource()
DataGridBindig.DataSource = DataSetGrid
DataGridBindig.DataMember = "Amministratori"
DataGridView1.DataSource = DataGridBindig
DataGridSettaColori()
If DataGridBindig.Count = 0 Then
MsgBox(ComboRicerca.Text & " NON TROVATO", MsgBoxStyle.Information, "kO")
End If
If DataGridBindig.Count > 0 Then
LblStatus.Text = DataGridBindig.Position & "/" & DataGridBindig.Count
Else
LblStatus.Text = "Recordset Vuoto"
MsgBox("Recordset vuoto!", MsgBoxStyle.Information, "Non ci sono Record")
DataGridView1.DataSource = AmministratoriBindingSource
End If
System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default
End Sub