Conexión entre excel y sql
Que tal ..
Estuve buscando entre las preguntas que hay en el sitio que les han hecho a varios expertos y no he encontrado todavía un ejemplo claro donde se pueda mediante una macro ejecutar una consulta a una tabla de sql.
Donde se capture la fecha inicial y final en dos celdas diferentes, y se regrese los registros que cumplan con la condición, quedando en cada fila de excel un registro resultante de la búsqueda.
entre los codigos q encontre esta el que muestro al final:
Lo aplique a mis condiciones.. Y no funciono o no lo aplique correctamente, la pregunta es saber si tienes algún código que funcione o pueda funcionar para hacer las consultas, de acuerdo a las fechas u otros campos. Te agradezco de antemano
Saludos.
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
With cn
.Provider = "MSDASQL"
.ConnectionString = "Driver={Microsoft Excel Driver (*.xls)};DBQ=" & App.Path & "\Book1.xls;FirstRowHasNames=0;"
.Open
End With
Set rs = New ADODB.Recordset
With rs
Set .ActiveConnection = cn
.Source = "[Sheet1$]"
.Open
End With
Debug.Print rs.Fields(0).Value
Debug.Print rs.Fields(0).Name
rs.Close
cn.Close
Estuve buscando entre las preguntas que hay en el sitio que les han hecho a varios expertos y no he encontrado todavía un ejemplo claro donde se pueda mediante una macro ejecutar una consulta a una tabla de sql.
Donde se capture la fecha inicial y final en dos celdas diferentes, y se regrese los registros que cumplan con la condición, quedando en cada fila de excel un registro resultante de la búsqueda.
entre los codigos q encontre esta el que muestro al final:
Lo aplique a mis condiciones.. Y no funciono o no lo aplique correctamente, la pregunta es saber si tienes algún código que funcione o pueda funcionar para hacer las consultas, de acuerdo a las fechas u otros campos. Te agradezco de antemano
Saludos.
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
With cn
.Provider = "MSDASQL"
.ConnectionString = "Driver={Microsoft Excel Driver (*.xls)};DBQ=" & App.Path & "\Book1.xls;FirstRowHasNames=0;"
.Open
End With
Set rs = New ADODB.Recordset
With rs
Set .ActiveConnection = cn
.Source = "[Sheet1$]"
.Open
End With
Debug.Print rs.Fields(0).Value
Debug.Print rs.Fields(0).Name
rs.Close
cn.Close
1 respuesta
Respuesta de Juan Carlos González Chavarría