Sql y excel

[Teitum Smith]

Hola a tod@s.

Más que una pregunta es una solicitud de ayuda.

Tengo una bbdd en sql y quisiera enlazarla con Excel vía VBA para crear fórmulas. Es decir, la idea es conectar excel con sql vía vba y crear fórmulas que me permitan obtener datos y/o realizar cálculos en tiempo real.

¿Donde puedo conseguir información para hacerlo? Es que por más que busco no encuentro como hacerlo

Saludos y gracias

Juan

[Antoni]

Si la base de datos es Access:

Sube el archivo Excel, la base de datos y especifica lo que quieres hacer.

[Teitum Smith]

Hola.

No es access. Es sql.

En cualquier caso, la idea es poder acceder a la bbdd en sql tomar datos y luego insertar datos en una tabla. Es que no encuentro la mejor manera de hacerlo.

Saludos y gracias

Juan

[asesorcperic]

bueno la idea como dices tu

En cualquier caso, la idea es poder acceder a la bbdd en sql tomar datos y luego insertar datos en una tabla.

pues solo lo que necesitas agregar la referrencia Microsoft Activex Data Objects X.X Library en tu proyecto

y en un modulo

parar realizar una consulta y traerla a la hoja 1

Dim Cnn As ADODB.Connection

Dim Cmd As ADODB.Command

Dim Rs As ADODB.Recordset

Dim sCadena As String

Dim sConecta As String


Set Cnn = New ADODB.Connection


sConecta = "Provider=SQLOLEDB;Data Source=XXX;Initial Catalog=XXX;User ID=XXX;Password=XXX;"


Cnn.Open sConecta


Instruccion = "Select * from XXX"


With cmd

.ActiveConnection = Cnn

.CommandText = sCadena

.CommandType = adCmdText

Set Rs = .Execute

End With


sheets("hoja1").Range("A1").CopyFromRecordset rs



Rs.Close


Set Rs = Nothing

Set Cmd = Nothing


Cnn.Close

Set Cnn = Nothing



End Sub[/CODE]

para agregar algun registro a tu tabla

[CODE]INSERT INTO "nombre_tabla" ("columna1", "columna2", ...)
VALUES ("valor1", "valor2", ...);[/CODE]

toma algo encuenta cualquier ejemplo que encuentres en la web o en este foro te sirve para realizar la conexion a cualquier servidor de bd lo unico que cambia es la conexión a la base

sql

[CODE] cnn.Open "Provider=sqloledb;" & _
"Data Source=Nombre_del_Servidor;" & _
"Initial Catalog=Nombre_de_la_base;" & _
"User Id=USUARIO;Password=PASSWORD" [/CODE]

access

[CODE] cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & _
path_Bd & ";" & "User Id=admin;Password=" [/CODE]

[Enigma25]

Hola

Para incluir tambien una conexión con excel desde otro excel. Es lo mismo solo que cambiaria algunos detalles

Es por si lo necesitas en el futuro.

Excel

Sub Conectar()
    If Cnn.State = 1 Then Cnn.Close
Set Cnn = New ADODB.Connection
    With Cnn
        .Provider = "Microsoft.ACE.OLEDB.12.0"
        .ConnectionString = "Data Source=" & ThisWorkbook.Path & "\Libro1.xls;" & "Extended Properties=""Excel 8.0;HDR=Yes;"" "
        .Open
    End With
'    If Cnn.State = 1 Then MsgBox "Conectado", vbInformation, "Estado de Conexión"
End Sub
[code/]

[Teitum Smith]

Hola.

Antes que nada muchas gracias por vuestras contestaciones y siento el retraso, pero el trabajo, la familia, etc. En fin, lo típico.

Solo comentar que he probado la respuesta de asesorcperic y al ejecutar la macro, se para en la siguiente línea: .ActiveConnection = Cnn

¿Sabéis a que puede deberse?

Saludos y gracias

[Antoni]

.

No es access. Es sql.

Todas las base de datos relacionales son SQL (Standard Query Language).

Es necesario saber que proveedor tienes Oracle, SqlServer, MiSql, MSAccess......), para instalar el Driver ODBC y así obtener la cadena de conexión. ¿ Lo entiendes ?.

Sin estos datos NO SE PUEDE CONECTAR CON LA BASE DE DATOS.

.