El lenguaje de consulta estructurado (SQL) es el lenguaje de computadora utilizado para administrar bases de datos relacionales. Visual Basic para Aplicaciones (VBA) es el lenguaje de programación desarrollado por Microsoft para usar con las aplicaciones de Microsoft Office para crear contenido dinámico. Microsoft Access es el programa de base de datos dentro del conjunto de aplicaciones de Microsoft Office que usa SQL y VBA para administrar datos y proporcionar automatización a funciones sistemáticas de bases de datos. Usando el shell de programación detrás de Microsoft Access, puede conectarse a la base de datos principal, buscar datos, agregar nuevos datos y eliminar datos combinando el código de programación SQL y VBA.
Paso 1
Abra el base de datos con la que desea trabajar en Microsoft Access. Abra el Editor de Visual Basic haciendo clic en la pestaña "Herramientas de base de datos" y luego en "Visual Basic".
Paso 2
Haga clic en "Insertar" y luego en "Módulo" en el Editor de Visual Basic.
Paso 3
Escriba el código para conectarse a la base de datos. Tendrá que establecer una conexión para poder usar sentencias SQL en la base de datos. Sub SQLTutorial () 'Configure sus variables para contener la información Dim Conn como ADODB.Connection' Esta es la conexión real Dim rsSeleccione como ADODB.Recordset 'Aquí es donde guardará los datos Dim rsDelete como ADODB.Recordset Dim rsInsert como ADODB .Recordset Dim rsUpdate como ADODB.Recordset Dim strSelectQuery como String 'Este es el comando SQL SELECT real Dim strDeleteQuery as String' Esto contendrá la instrucción DELETE de SQL Dim strInsertQuery como String 'Esta es la instrucción SQL INSERT Dim strUpdateQuery como String' Esto mantenga la instrucción UPDATE 'Escriba los detalles para conectarse a la base de datos que desea Establecer Conn \u003d New ADODB.Connection With Conn .ConnectionString \u003d "Provider \u003d Microsoft.Jet.OLEDB.4.0;" & _ "Fuente de datos \u003d C: \\ Documents \\ SampleDatabase.mdb". Final abierto con ahora se ha realizado la conexión a la base de datos. A continuación, asignará instrucciones SQL a las variables que ya declaró anteriormente.
Paso 4
Escriba una instrucción SQL "SELECCIONAR" para seleccionar datos de la base de datos. Una consulta SELECT generalmente se compone de esta manera: "SELECCIONAR columnas DE la tabla". Puede agregar criterios a la instrucción SELECT agregando la cláusula "WHERE". Por ejemplo, tiene una tabla llamada "Clientes" que desea buscar para todos los clientes con el apellido de "Smith". El código VBA y SQL se verá así: strSelectQuery \u003d "SELECT * FROM tblCustomers WHERE LastName \u003d 'Smith' El asterisco (*) es un comodín, lo que significa que desea extraer toda la información, o columnas, de cualquier persona con el apellido de "Smith". Para seleccionar ciertas columnas, usaría: strSelectQuery \u003d "SELECT FirstName, LastName FROM tblCustomers WHERE LastName \u003d 'Smith'"
Paso 5
Escriba la instrucción "DELETE" si desea eliminar filas de datos de una tabla. El código para eso es: strDeleteQuery \u003d "DELETE FROM tblCustomers WHERE LastName \u003d 'Smith'" Esta instrucción eliminará todas las filas donde el cliente tiene un apellido de "Smith" de " Clientes ". La sintaxis básica para una instrucción DELETE es" DELETE FROM table WHERE column \u003d 'value'. "
Paso 6
Escriba la sintaxis para insertar una nueva fila en una tabla. Use Declaración "INSERTAR". StrInsertQuery \u003d "INSERTAR EN VALORES tblCustomers (John, Smith, 123 Main Street, Cleveland, Ohio)" Si tuviera una tabla Clientes en tiene columnas de nombre, apellido, dirección, ciudad y estado, esta declaración se insertará en los datos en la columna de la derecha. La coma le dice al código que salte a la siguiente columna antes de ingresar los valores. Asegúrese de escribir los valores en el orden correcto de las columnas de la tabla para que sus datos sean consistentes.
Paso 7
Escriba la instrucción SQL para cambiar una fila de datos. Esta es la declaración "ACTUALIZAR". strUpdateQuery \u003d "ACTUALIZAR tblCustomers SET LastName \u003d 'Jones', FirstName \u003d" Jim "WHERE LastName \u003d 'Smith'" Esta declaración cambia a todos los que tienen un apellido de "Smith" a "Jones" y sus nombres a "Jim". Puede cambiar varias columnas de datos a la vez en una instrucción UPDATE separando las columnas con comas. La sintaxis básica para una ACTUALIZACIÓN es "ACTUALIZAR tabla SET columna1 \u003d valor1, columna2 \u003d valor2, columna3 \u003d valor3, ... DONDE columna \u003d valor".
Escriba el código VBA que ejecutará la consulta y guarde los resultados en conjuntos de registros Cierra el código VBA. Establecer rsSelect \u003d Nuevo ADODB.Recordset con rsSelect Set .ActiveConnection \u003d Conn .CursorType \u003d adOpenStatic .Source \u003d strSelectQuery .Open End With Set rsDelete \u003d New ADODB.Recordset With rsDelete Set .ActiveConnection \u003d Conn .CursorType \u003d AdOpenS. Finalizar con Set rsInsert \u003d Nuevo ADODB.Recordset Con rsInsert Set .ActiveConnection \u003d Conn .CursorType \u003d adOpenStatic .Source \u003d strInsertQuery .Open End With Set rsUpdate \u003d New ADODB.Recordset With rsDelect Set .ActiveConnection \u003d Conn .CursorType \u003d Adq. .Open End With 'Escriba el código VBA para trabajar con los datos que ha reunido a través de las declaraciones SQL. 'Puede usar los datos para publicar en formularios, en otras tablas o en informes. 'Cierre los conjuntos de registros y la conexión con usted. RsSelect.Close rsDelete.Close rsInsert.Close rsUpdate.Close End Sub
[Tutorial SQL VBA] URL: http://www.ordenador.online/computadora/Software/255702.html