MULTIMEDIA, Video digital, Grabación, Diseño gráfico, Diseño web, Programación > Webmasters - Diseño Web - Programación - Diseño gráfico
Error en sentencia SQL
(1/1)
argy:
Hola! como ya comente en otro post, estoy trabajando con visual basic para aplicaciones. Qieo consultar una base de datos de excel, pero quiero que esa consulta sea dinamica, que cambie cada vez que los parametros cambien. Esta sentencia de aqui abajo la he creado con el grabador de macros y despues le añadido un par de cambios, pero me da error en sentencia SQL cuando añado WHERE fusibles.In=" & miVariable &"
Sub recuperarDatos()
'recupera datos de la base de datos
miVariable = 4
direccion = Array(Array("ODBC;DSN=Protecciones;DBQ=F:\protecciones.mdb;DriverId=25;FIL=MS Access;MaxBuf"), Array("ferSize=2048;PageTimeout=5;"))
mirar = Array("fusibles.Nombre, fusibles.Clase, fusibles.Tamaño, fusibles.In, fusibles.tension" & Chr(13) & "" & Chr(10) & "FROM fusibles fusibles" & Chr(13) & "" & Chr(10) & "WHERE (fusibles.In=" & miVariable & ")")
With ActiveSheet.QueryTables.Add(Connection:=direccion, Destination:=ActiveSheet.Range("a1"))
.CommandText = mirar
.Name = izena
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = False
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=True
End With
End Sub
No se si alguien sabe como va la cosa o como lo podria hacer se lo agradeceria. Gracias
argy:
Hola! Todabia no he solucionado ese problema con la sentencia SQL, pero ya lo he hecho de otra manera.
De todas formas he encontrado esta pagina web que le puede venir bien a alguien que en un futuro trabaje con Visual basic para aplicaciones y gestion de BBDD. http://www.programarvba.com/
destroyer:
Gracias por el enlace amigo.. Estamos en malas fechas con las vacaciones.. ;-)
Un saludo
Navegación
Ir a la versión completa