Structured Query Language (SQL) es el lenguaje de programación utilizado para la gestión de bases de datos relacionales. Visual Basic para Aplicaciones (VBA) es el lenguaje de programación desarrollado por Microsoft para su uso con las aplicaciones de Microsoft Office para crear contenido dinámico. Microsoft Access es el programa de base de datos dentro de la suite de Microsoft Office que utiliza SQL y VBA para administrar los datos y proporcionar la automatización de las funciones de base de datos sistemáticos. El uso de la cáscara de programación detrás de Microsoft Access, puede conectarse a la base de datos principal, buscar datos, añadir nuevos datos y supresión de los datos mediante la combinación de SQL y el código de programación VBA.
Instrucciones
1 Abra la base de datos que desea trabajar en Microsoft Access. Abra el Editor de Visual Basic, haga clic en el menú "Herramientas" ficha de base de datos y luego "Visual Basic".
2 Haga clic en "Insertar" y luego "Módulo" en el Editor de Visual Basic.
3 Escribe el código para conectarse a la base de datos. Tendrá que establecer una conexión con el fin de utilizar sentencias SQL a la base de datos.
Sub SQLTutorial ()
'Set up your variables to hold the information
Dim Conn como ADODB.Connection 'Esta es la conexión real
Dim rsSelect como ADODB.Recordset 'Aquí es donde se va a guardar los datos
Dim rsDelete como ADODB.Recordset
Dim rsInsert como ADODB.Recordset
Dim rsUpdate como ADODB.Recordset
Dim strSelectQuery como cadena 'Este es el comando SELECT SQL real
Dim strDeleteQuery como cadena 'Esto mantendrá la declaración SQL DELETE
Dim strInsertQuery como cadena 'Esta es la instrucción SQL INSERT
Dim strUpdateQuery como cadena 'Esta llevará a cabo la instrucción UPDATE
'Tipo en los detalles para conectarse a la base de datos que desea
Set Conn = New ADODB.Connection
con Conn
.ConnectionString = "Provider = Microsoft.Jet.OleDb.4.0;" & _
"Data Source = C: \ Documents \ SampleDatabase.mdb"
.Abierto
Terminar con
Ahora se ha hecho la conexión con la base de datos. A continuación, se le asignará sentencias SQL a las variables ya mencionadas.
4 Escriba en una instrucción SQL "SELECT" para seleccionar datos de la base de datos. Una consulta de selección se compone generalmente de esta manera: "seleccionar las columnas de la tabla". Puede añadir criterios a la instrucción SELECT mediante la adición de la cláusula "WHERE". Por ejemplo, usted tiene una tabla denominada "Clientes" que desea buscar todos los clientes con el apellido "Smith". El código VBA y SQL se verá así:
strSelectQuery = "SELECT * FROM tblCustomers DONDE LastName = 'Smith'
El asterisco (*) es un comodín, lo que significa que desea extraer toda la información, o columnas, en cualquier persona con el apellido "Smith". Para seleccionar ciertas columnas, se debería utilizar:
strSelectQuery = "SELECT Nombre, Apellido DE DONDE tblCustomers LastName = 'Smith'"
5 Escriba en el estado "BORRAR" si desea eliminar filas de datos de una tabla. El código para que sea:
strDeleteQuery = "Borrar de tblCustomers DONDE LastName = 'Smith'"
Esta declaración se eliminarán todas las filas en las que el cliente tiene un apellido "Smith" de la tabla "Clientes". La sintaxis básica de una instrucción DELETE es "DELETE FROM tabla WHERE columna =" valor "."
6 Escriba en la sintaxis para insertar una nueva fila en una tabla. Utilice la opción "INSERT" comunicado.
strInsertQuery = "INSERT INTO VALORES tblCustomers (Juan, Smith, 123 Main Street, Cleveland, Ohio)"
Si usted tenía una tabla de clientes que tiene Nombre, Apellido, Dirección, Ciudad y columnas del Estado, esta declaración le insertará en los datos en la columna de la derecha. La coma indica el código para pasar a la siguiente columna antes de entrar en los valores. Asegúrese de que usted está escribiendo los valores en el orden correcto de las columnas en la tabla de manera que sus datos son consistentes.
7 Tipo en la instrucción SQL para cambiar una fila de datos. Esta es la declaración "UPDATE".
strUpdateQuery = "tblCustomers actualización del conjunto LastName = 'Jones', Nombre =" Jim "WHERE LastName = 'Smith'"
Esto cambia la mención de todos los que tienen un apellido de "Smith" a "Jones" y su nombre de pila a "Jim". Puede cambiar varias columnas de datos a la vez en una instrucción UPDATE mediante la separación de las columnas con comas. La sintaxis básica para una actualización es "UPDATE tabla SET columna 1 = valor1, valor2 = columna2, columna 3 = valor3, ... Cuando en la columna = valor".
8 Escribir el código VBA que se ejecutará la consulta y guardar los resultados en conjuntos de registros. Cerrar el código VBA.
Establecer rsSelect = New ADODB.Recordset
con rsSelect
Set .ActiveConnection = Conn
.CursorType = AdOpenStatic
.Fuente = StrSelectQuery
.Abierto
Terminar con
Establecer rsDelete = New ADODB.Recordset
con rsDelete
Set .ActiveConnection = Conn
.CursorType = AdOpenStatic
.Fuente = StrDeleteQuery
.Abierto
Terminar con
Establecer rsInsert = New ADODB.Recordset
con rsInsert
Set .ActiveConnection = Conn
.CursorType = AdOpenStatic
.Fuente = StrInsertQuery
.Abierto
Terminar con
Establecer rsUpdate = New ADODB.Recordset
con rsDelect
Set .ActiveConnection = Conn
.CursorType = AdOpenStatic
.Fuente = StrUpdateQuery
.Abierto
Terminar con
'Introduzca el código VBA para hacer el trabajo con los datos que ha recogido a través de las sentencias SQL.
'Se pueden utilizar los datos para publicar en las formas, en otras mesas o en los informes.
'Cierra los conjuntos de registros y la conexión con la que se realizan
rsSelect.Close
rsDelete.Close
rsInsert.Close
rsUpdate.Close
End Sub