Access - Guardar consulta en variable...

 
Vista:

Guardar consulta en variable...

Publicado por Sebastian M. Barrionuevo (2 intervenciones) el 10/06/2008 01:31:21
Consulta hay alguna forma de guardar una consulta de sql en memoria?. tengo esta consulta y quiero ponerle una nombre de una variable para llamarla en un subformulario:

SELECT incidentes.Fecha, incidentes.Tipo, Sum(incidentes.[6_7]) AS [Suma De 6_7], Sum(incidentes.[7_8]) AS [Suma De 7_8], Sum(incidentes.[8_9]) AS [Suma De 8_9], Sum(incidentes.[9_10]) AS [Suma De 9_10], Sum(incidentes.[10_11]) AS [Suma De 10_11], Sum(incidentes.[11_12]) AS [Suma De 11_12], Sum(incidentes.[12_13]) AS [Suma De 12_13], Sum(incidentes.[13_14]) AS [Suma De 13_14], Sum(incidentes.[14_15]) AS [Suma De 14_15], Sum(incidentes.[15_16]) AS [Suma De 15_16], Sum(incidentes.[16_17]) AS [Suma De 16_17], Sum(incidentes.[17_18]) AS [Suma De 17_18], Sum(incidentes.[18_19]) AS [Suma De 18_19], Sum(incidentes.[19_20]) AS [Suma De 19_20], Sum(incidentes.[20_21]) AS [Suma De 20_21], Sum(incidentes.[21_22]) AS [Suma De 21_22], Count(*) AS [Cuenta De incidentes]
FROM incidentes
WHERE «Expr» [incidentes]![Tipo] = [Cuadro combinado0]
INTO CURSOR TMPINC1 (Esta linea lo utilizaba en VFP)

Yo utilizo en visual foxpro la instruccion INTO CURSOR pero veo que en acces no me deja usar ese comando. Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Guardar consulta en variable...

Publicado por carlos jimenez (42 intervenciones) el 10/06/2008 19:05:58
prueba algo asi:

Dim SQL1 As String

SQL1 = "tu consulta"

DoCmd.RunSQL SQL1


esto yo lo utilizo muy frecuentemente, guardo en un string la consulta SQL
y con el comando DoCmd.RunSQL "Nombre del String" ejecuto mi consulta

si quieres ejecutar una consulta existente prueba este comando
DoCmd.OpenQuery “nombredeconsulta”

y si quieres ejecutar una consulta de forma transparente como un UPDATE o un INSERT INTO

haz lo siguiente:

Dim SQL1 As String

DoCmd.SetWarnings False

SQL1 = "UPDATE planteles INNER JOIN (NPlantilla INNER JOIN Plantilla ON NPlantilla.NP = Plantilla.NPlantilla) ON planteles.ClaveP = Plantilla.ClaveP SET Plantilla.CHA = True" & _
" WHERE (((Plantilla.NPlantilla)=[Forms]![Cerrar_Plantilla]![CboSem]) AND ((Plantilla.ClaveP)=[Forms]![Cerrar_Plantilla]![CboPlant]) AND ((Plantilla.IdModal)=[Forms]![Cerrar_Plantilla]![CboModal]));"


DoCmd.RunSQL SQL1

DoCmd.SetWarnings True

en donde DoCmd.SetWarnings False/True

activa o desactiva el cursor. es decir la hace visible o no visible al ejecutarla.

espero te seirvan estos tips.

saludos

carlos jimenez
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar