Llenar DataGridView (Conexion SQL)

Imports System.Data
Imports System.Data.SqlClient

Public Class Form1

Private Sub btnllenarGrid_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnllenarGrid.Click

Try

    Dim cnn As New SqlConnection("Data Source=SERVIDOR;Initial Catalog=BD;User ID=USER; Password=PASS; Integrated Security=SSPI;")
    Dim da As New SqlDataAdapter("SELECT * FROM tabla, cnn)
    da.Fill(ds)
    DataGridView1.DataSource = ds.Tables(0)

Catch ex As Exception

End Try

End Sub
End Class

Algunas Funciones: Button

Mostrar mensaje descriptivo con toolTip

Private Sub btnquery_MouseHover(ByVal se...)Handles btnquery.MouseHover
        Me.ToolTip1.SetToolTip(Me.btnquery, "Pulsa para mostrar")
End Sub

Filtros con un DataGridView

Dentro de la clase creare una funcion para llenar mi DataGridView con todos los datos que encuentre segun mi consulta.

Funcion:

Public Sub llenarGrid(ByVal consultar As String, ByVal dgv As DataGridView)
       connectingMYSQL()
       Dim da As New MySqlDataAdapter(consultar, cnnMYSQL)
       Dim ds As New DataSet
       da.Fill(ds)
       dgv.DataSource = ds.Tables(0)
End Sub

Manera en la que llamo a mi funcion llenarGrid desde el formulario

sql = "Select * from alumnos where nombre like  '%" & txtFiltro.Text & "%'"
metodo.llenarGrid(sql, DataGridViewAl)

Como usar el filtro según la necesidad:

Que empiece con

..WHERE NOMBRE LIKE '" & txtFiltro.Text & "%'

Que termine con

..WHERE NOMBRE LIKE '%" & txtFiltro.Text & "'

Que contenga

..WHERE NOMBRE LIKE '%" & txtFiltro.Text & "%'

Algunas funciones TextBox

Cambiar a mayúsculas y minúsculas con UPPER y LOWER

' Mayúsculas
    Private Sub TextBox1_TextChanged(ByVal s...
        TextBox1.CharacterCasing = CharacterCasing.Upper
    End Sub
'Minusculas :

    Private Sub TextBox1_TextChanged(ByVal s...
        TextBox1.CharacterCasing = CharacterCasing.Lower
    End Sub  

★·.·´¯`·.·★★·.·´¯`·.·★


Validar TextBox

Solo Caracteres

Private Sub txtMaterno_KeyPress(ByVal s...
If (Not Char.IsLetter(e.KeyChar) And e.KeyChar <> Microsoft.VisualBasic.ChrW(8))Then
    e.Handled = True
End If
End Sub

Solo numeros

Private Sub txtMaterno_KeyPress(ByVal s...
If (Not Char.IsNumber(e.KeyChar) And e.KeyChar <> Microsoft.VisualBasic.ChrW(8)) Then
    e.Handled = True
End If
End Sub