Como ejecutar sentencias VB desde una tabla
Publicado por Marcelo (1 intervención) el 01/04/2010 15:28:56
Hola,
Necesito ejecutar líneas de código VB6 que están almacenadas en una tabla. Intenté hacerlo con el control ScriptControl, pero no me funciona.
La tabla tiene columnas para almacenar el nombre del formulario, el nombre del control y el valor de la propiedad enabled
Dentro de un recordset asigno este SQL:
select nombre_formulario, nombre_boton, estado from tabla
(supongamos que este es el resultado)
nombre_formulario| nombre_boton | estado
-------------------|-----------------------------|-------------
frmEmpleado | cmdAgregar | true
frmEmpleado | cmdModificar | false
frmEmpleado | cmdBorrar | true
Luego, voy a recorrer la consulta SQL y construyo una sentencia de código con los valores de cada columna. Deseo que VB tome la variable y la ejecute como si fuera una sentencia VB.
vb Código:
do while not rs.eof
exp$ = rs.fields(0) + "." + rs.fields(1) + ".enabled = " + rs.fields(2)
frmPrincipal.scriptcontrol1.ExecuteStatement (exp)
rs.movenext
loop
Algo me falta o lo estoy haciendo incorrectamente. Alguien puede darme más indicaciones?????
Necesito ejecutar líneas de código VB6 que están almacenadas en una tabla. Intenté hacerlo con el control ScriptControl, pero no me funciona.
La tabla tiene columnas para almacenar el nombre del formulario, el nombre del control y el valor de la propiedad enabled
Dentro de un recordset asigno este SQL:
select nombre_formulario, nombre_boton, estado from tabla
(supongamos que este es el resultado)
nombre_formulario| nombre_boton | estado
-------------------|-----------------------------|-------------
frmEmpleado | cmdAgregar | true
frmEmpleado | cmdModificar | false
frmEmpleado | cmdBorrar | true
Luego, voy a recorrer la consulta SQL y construyo una sentencia de código con los valores de cada columna. Deseo que VB tome la variable y la ejecute como si fuera una sentencia VB.
vb Código:
do while not rs.eof
exp$ = rs.fields(0) + "." + rs.fields(1) + ".enabled = " + rs.fields(2)
frmPrincipal.scriptcontrol1.ExecuteStatement (exp)
rs.movenext
loop
Algo me falta o lo estoy haciendo incorrectamente. Alguien puede darme más indicaciones?????
Valora esta pregunta


0