Visual Basic

1 - Instrucción Select
La instrucción SELECT permite obtener un conjunto de registros de una o varias tablas especificadas en la cláusula o sentencia SQL. SELECT no modifica datos en una base de datos, solo extrae información
Por ejemplo para seleccionar todos los campos de una tabla llamada Tabla1:
-------------------------------------------------
Dim consulta As String

consulta = "Select* From Tabla1"
Para seleccionar uno o varios campos específicos:
-------------------------------------------------
Dim consulta As String

consulta = "Select Campo1,Campo2 From Tabla1"
El siguiente ejemplo selecciona de una tabla llamada Clientes, todos los registros de los campos Localidad y Telefono. Luego muestra los datos en un control Datagrid. El ejemplo utiliza ADO y se conecta a unabase de datos llamada BD1.mdb ubicada en la carpeta del programa.
-------------------------------------------------
Dim base As Connection, rst As Recordset, ruta As String

Set base = New Connection
Set rst = New Recordset

ruta = App.Path & "\bd1.mdb"

'Abrimos la base de datos
base.CursorLocation = adUseClient
base.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & ruta' Seleccionamos todos los valores de los campos Telefono y Localidad _
de la tabla Clientes

rst.Open "SELECT Telefono, Localidad FROM Clientes", base, adOpenStatic, adLockOptimistic

'Asignamos el recordset devuelto en un control Datagrid
Set DataGrid1.DataSource = rst
SELECT FROM en varias tablas
Para consultar a mas de una tabla se antepone el nombre de la tabla, y luego sereferencia el campo mediante un punto, por ejemplo:
-------------------------------------------------
"SELECT Clientes.nombre, Productos.Nombre FROM clientes, Productos WHERE Clientes.nombre = Productos.nombre"
Cláusula WHERE
Esta cláusula, lo que permite es especificar cuales registros de las tablas indicadas en la cláusula FROM se verán afectados por la instrucción SELECT, UPDATE o DELETE.
Porejemplo: La siguiente sentencia selecciona todos registros de la tabla Clientes donde el campo Deuda sea menor o igual a 100
-------------------------------------------------
sq = "SELECT * FROM clientes WHERE Deuda <= 100;"
Dentro de la cláusula Where podemos utilizar operadores , And, Or, >, <, <> , el Like etc..., para formar los criterios en la consulta sql
Lo siguienteselecciona los campos Nombre y Telefono de la tabla clientes donde el campo Nombre ( Nombres de los clientes ) comienzan con la letra M hasta la R
-------------------------------------------------
sq = "SELECT Nombre, Telefono FROM Clientes WHERE Nombre Like '[M-R]*';"
En este enlace hay un simple ejemplo que usa el operador Like para filtrar un recordset Ado al seleccionar un item de un controltabstrip
Ordenar el conjunto de registros - Order By
Este ejemplo ordena los registros por el campo Localidad en forma Ascendente usando la instrucción ORDER BY
-------------------------------------------------
Sq = "SELECT Telefono, Localidad FROM Clientes ORDER BY Localidad ASC"
Para hacerlo en forma Descendente se utliza DESC. Por Ejemplo:
-------------------------------------------------
sq ="SELECT Telefono, Localidad FROM Clientes ORDER BY Localidad DESC"

Función Count - Contar registros
Con esta función podemos contar registros , dependiendo como especifiquemos la consulta, es decir los criterios, por ejemplo el siguiente código devuelve el total de registros de la tabla Clientes, donde el campo Nombre sea igual a "Mariano"
-------------------------------------------------rst.Open "SELECT Count(Nombre) as NRegistros FROM Clientes WHERE Nombre = 'Mariano'"

'Mostramos la cantidad
MsgBox rst.Fields("NRegistros")
Función Max y Min
Max y Min devuelven un valor máximo o mínimo de una consulta de selección. El siguiente ejemplo, selecciona el Cliente (campo Nombre ) que mas ha gastado (consulta el campo Gastos). y muestra ese registro en un Datagrid llamado...