Tabla con comandos SQL
Publicado por Ramon (81 intervenciones) el 31/10/2011 19:46:14
Hola buenas tardes.. estoy tratando de crear una tabla para almacenar comandos sql.. en mi aplicacion estara en la opcion Editor SQL del Menú Principal.
Abrirá una tabla llamada ACCIONSQL que tendrá 2 campos
tabla c(80) Accion C(80)
AbrexTabla SELECT * FROM xtabla order by xcampo
AbrexTabla2 SELECT * FROM XtABLA2 order by xcampo2
Guarda¨Tabla1 INSERT INTO TABLA1(xcam1,xcamp2) values(?xVar1, ?xVar2)
EN EL ARCHIVO DE FUNCIONES LLAMAR A LA SIGUIENTE FUNCION.
la llamo desde un form asi.
set procedure to funciones
cTable='mitabla'
=Acciones(cTable) && Variable con el nombre de la tabla declarada antes.
**** esta funcion pretendo hacer pero no me resulta...
FUNCTION acciones
PARAMETERS cTable
PUBLIC cmdAc1
SET PROCEDURE TO funciones
=AbreDatos()
Try
SQLEXEC(Con,'Select * from Accionslq','Comandos')
CATCH
=NoConecta()
ENDTRY
SELECT Comandos
GO Top
LOCATE FOR ALLTRIM(tabla)=&cTable
=SQLEXEC(Con,ALLTRIM(Accion),&cTable)
SELECT &cTable
BROWSE & & Aqui me debe abrir la TABLA PARA CONSULTARLA
function AbreDatos()
lBaseData=lcNewDir+'\DATOS\MIbD.mdb'
Endfun
Ahi les encargo... una ayudadita...
Saludos
Abrirá una tabla llamada ACCIONSQL que tendrá 2 campos
tabla c(80) Accion C(80)
AbrexTabla SELECT * FROM xtabla order by xcampo
AbrexTabla2 SELECT * FROM XtABLA2 order by xcampo2
Guarda¨Tabla1 INSERT INTO TABLA1(xcam1,xcamp2) values(?xVar1, ?xVar2)
EN EL ARCHIVO DE FUNCIONES LLAMAR A LA SIGUIENTE FUNCION.
la llamo desde un form asi.
set procedure to funciones
cTable='mitabla'
=Acciones(cTable) && Variable con el nombre de la tabla declarada antes.
**** esta funcion pretendo hacer pero no me resulta...
FUNCTION acciones
PARAMETERS cTable
PUBLIC cmdAc1
SET PROCEDURE TO funciones
=AbreDatos()
Try
SQLEXEC(Con,'Select * from Accionslq','Comandos')
CATCH
=NoConecta()
ENDTRY
SELECT Comandos
GO Top
LOCATE FOR ALLTRIM(tabla)=&cTable
=SQLEXEC(Con,ALLTRIM(Accion),&cTable)
SELECT &cTable
BROWSE & & Aqui me debe abrir la TABLA PARA CONSULTARLA
function AbreDatos()
lBaseData=lcNewDir+'\DATOS\MIbD.mdb'
Endfun
Ahi les encargo... una ayudadita...
Saludos
Valora esta pregunta


0