Sección de códigos , trucos y ejemplos para visual basic

357 - Vba - Macro para ejecutar un sql desde una hoja de excel

MAcro que ejecuta mediante Ado, una consulta sql desde una hoja, y vuelca el conjunto de registros a otra hoja del mismo libro

Para el ejemplo se necesita agregar en la hoja1, un textbox 1 y un CommandButton

vista de la hoja 1 con los controles

También se debe agregar un módulo al Libro actual

vista del explorador de proyectos de vba

En el módulo se encuentra la función que conecta a la base de datos, y carga el recordset que luego se importará a la hoja indicada

La función se llama Ejecutar y se le debe enviar como parámetro , la cadena Sql y el nombre de la hoja en la que se van a copiar o importar los datos, por ejemplo :

Call Ejecutar("Select * From Tabla", "Hoja2")

Código fuente en el módulo

Sub Ejecutar(Sql As String, Hoja As String) Dim cn As Object ' crea un objeto Connection Set cn = CreateObject("ADODB.Connection") ' IMPORTANTE: Indicar la cadena de conexión a usar cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data " & _ "Source=C:\Archivos de programa\Microsoft " & _ "Visual Studio\VB98\NWIND.MDB;Persist Security Info=False" ' verifica que los parámetros no estén vacios If Sql <> vbNullString And Hoja <> vbNullString Then ' variable para al rec de ado Dim rst As Object ' abre la conexión a la base de datos cn.Open ' crea un nuevo objeto recordset Set rst = CreateObject("ADODB.Recordset") ' Ejecuta el sql para llenar el recordset rst.Open Sql, cn, 1, 3 ' variables para los indices de las filas y columnas c = 0 f = 0 ' recorre las columnas, añade el nombre del campo al encabezado For i = 0 To rst.Fields.Count - 1 Sheets(Hoja).Range(Chr(i + 65) & f + 1).Value = rst.Fields(i).Name Next f = f + 1 ' recorre todo el recordset hasta el final Do While Not rst.EOF ' recorre los campos en el registro actual del recordset para recuperar el dato For i = 0 To rst.Fields.Count - 1 ' añade el valor a la celda Sheets(Hoja).Range(Chr(c + 65) & _ f + 1).Value = rst.Fields(c) c = c + 1 Next ' resetea el indice de las columnas c = 0 ' Referencia al registro actual (incrementa ) f = f + 1 ' Siguiente registro rst.MoveNext Loop ' cierra y descarga las referencias On Error Resume Next rst.Close cn.Close Set cn = Nothing Set rst = Nothing End If End Sub

Y luego, desde el evento clic del botón se indica la cadena sql y el nombre de la hoja

Call Ejecutar(TextBox1.Text, "Hoja2")

Nota . en el módulo, indicar la cadena de conexión a utilizar

Recursos visual basic 6.0 - Enlaces relacionados

Buscar en Recursos vb