Llamada dinamica a Sub

[PosProdukcion]

Hola, existe alguna manera en ASP de ejecutar una sub pero tener el nombre de esta sub dentro de un string??

O sea, algo como

Código:

Dim sub_llamada

sub_llamada = "MiProcedimiento"

¿Exec/Call? sub_llamada

Gracias

[Lebennin]

Juraría que no, pero... para que lo quieres? Es decir, si llamas a un procedimiento supuestamente sabes a cual quieres llamar. Pero vamos, me has dejado con la duda.

[PosProdukcion]

Pues el motivo es el siguiente:

Desde hace tiempo vengo programando mis rutinas de BD en procedimientos almacenados y tengo una clase que realiza llamadas a estos procedimientos de forma automatizada...

ClaseBD.Llama(procedimiento_de_bd)

Así, me da igual estar en una página de registro de nuevo usuario o de grabacion de un documento nuevo, simplemente ajusto los valores de las columnas ( ClaseBD.columna(0) = .... / ClaseBD.columna(N) = .... ) y llamo al procedure de BD correpondiente (ClaseBD.Llama(SQLRegistro_Usuario) o ClaseBD.Llama(SQLRegistro_Documento))

Ahora, me han pedido un proyecto con MySQL 4, que no soporta procedimientos de BD almacenados, así que tengo que rehacer la parte que estaba en BD y pasarla a ASP mezclado con SQL, si pudiera realizar llamadas dinámicas a procedimientos ASPpodría reaprovechar en parte la clase ClaseBD cambiando las llamadas a procedures SQL por subs de ASP, por ejemplo ASPRegistro_Documento o ASPRegistro_Usuario

O sea, que en realidad no conozco el nombre del subn que quiero llamar sino que este depende y por eso pregunto si podría estar dentro de una variable

[JuanRAPerez]

en mi opinion

ummmm si haces todos los sub correctos no habria problema por llamarlos siempre y cuando los dejes bien depurados

[Myakire]

O sea, que en realidad no conozco el nombre del subn que quiero llamar sino que este depende y por eso pregunto si podría estar dentro de una variable

A ver, dices que tus SP los llamas con un método de la forma ClaseBD.Llama(procedimiento_de_bd), entonces si conoces el nombre del SP y por ende, de la función que llamarias ¿no es así?

[u_goldman]

mmmmmhhhh no estoy seguro pero podrías tratar:

call eval("procedimiento como string")

Aunque me quedé intrigado con esta solción ¿Nos dejarías ver algo de código?

Saludos

[PosProdukcion]

Iniciado por Myakire

A ver, dices que tus SP los llamas con un método de la forma ClaseBD.Llama(procedimiento_de_bd), entonces si conoces el nombre del SP y por ende, de la función que llamarias ¿no es así?

Cierto, SÍ lo conozco, quiero decir que cada vez es uno diferente...

Probaré eso que dices u_goldman de Call Eval(...), a ver...

u_goldman, ya que preguntas, te cuento: el código pienso que es demasiado extenso para ponerlo, te cuento un poco como está estructurada mi claseBD:

Código:

Propiedades:

moduloBD: Nombre del conjunto de procedimientos, másabajo explico como va...
NColumnas: Número de columnas
columnas(): Nombre o contenido de las columnas
rsQuery: Valores recuperados por el método Query, (con rs.GetRows)

Métodos:

Query: Ejecuta una llamada a un procedimiento o sentencia SQL
Ejecuta: Ejecuta una llamada a un procedure no query
(Pongo los que nos ocupan en este caso, hay otros muchos como htmlGrid, htmlSelect, etc.. que me permiten automatizar muchas acciones similares entre módulos)

Y en mi BD, ya sea esta SQL Server o MySQL5+ o Oracle, TODOS los procedimientos están agrupados por módulos, por ejemplo, el módulo de usuarios podría tener los siguientes procedures:

Código:

Para listar (query):

Usuario_Lista: Lista todos los datos de un usuario o de todos los usuarios
Usuario_Login: Devuelve el id de un usuario si los datos de login son correctos
Usuario_YaExisteLogin: etc...

(en oracle como hay módulos podrías ser Usuario.Lista, Usuario.Login etc)

Procedimientos No Query:

Usuario_Inserta: Crea un nuevo usuario
Usuario_Modifica: Modifica un usuario
Usuario_Borra: Borra un usuario

Es decir, de forma dinámica, solo con el nombre el módulo de BD (usuario) y la acción que quiero realizar (Lista, Login, Inserta...) hago la llamada a un procedimiento de BD (con RecordSet.Open o Conex.execute)....

¿Por qué venía esta pregunta?

Resulta que en las versiones anteriores a MySQL 5 no se soporta el uso de procedimientos de Base de Datos, por lo tanto tengo que reescribir mis módulos de BD (Usuario_Lista, Usuario_Inserta, etc...) y cambiarlos a ASP con SQL entremezaclado con el codigo SQL, asi, lo que antes era puro SQL Usuario_Lista ahora es una Function Usuario_lista de ASP, si pudiera hacer la llamada dinámica, por ejemplo con ese Call Eval("Usuario_Inserta") me bastaría con una pequeña modificación en claseBD y toda mi aplicación se adapta a esta nueva estructura, si no puedo hacer llamadas dinámicas, tengo que recorrer cada script (login.asp, usario.asp, etc...) y donde antes había una instancia a claseBD poner ahora la llamada que corresponda a Sub o Function de asp

Espero que hayas encontrado la información útil, si os resulta útil os puedo ir poniendo por aquí la clase, como ya habéis hecho con el módulo de usuarios o el sitio multilenguaje en XML, aunque supongo que cada uno tendrá su propia manera de estructurar las llamadas a BD

Saludos

[PosProdukcion]

Iniciado por u_goldman

mmmmmhhhh no estoy seguro pero podrías tratar:

call eval("procedimiento como string")

Aunque me quedé intrigado con esta solción ¿Nos dejarías ver algo de código?

Saludos

No funcionó

Código:

Tipo de error:
Error de Microsoft VBScript en tiempo de ejecución (0x800A000D)
No coinciden los tipos: 'Sub2'
/pruebas/ejemploEval.asp

[Shiryu_Libra]

no estoy seguro, pero a lo mejor Testeando

'tu clase
Set Test = Server.CreateObject("ASPTest.Test")

'llamado de modulos
Test.modulo(datos)

esto a colacion de que tengo unas DLL registradas y en algunos casos mando llamar en fase de pruebas

[u_goldman]

Ya entendí un poco mejor...entonces esa clase solo sirve para llamar al procedimiento correcto dependiendo de una propiedad de la misma, y el problema es que necesitas hacer algo particular (llamar a otros procedimientos que no llaman SP) desde algo general.

Pues si lo estoy viendo bien, realmente no le encuentro mucha complicación, hazte una variable global que le diga a tu aplicación si usa SP o no, y en la clase que llamas a tus procedimientos, evalúas esa variable, si es verdadera llamas al SP, si no, llamas al código, siguiendo la lógica de tu aplicación, los nombres deberían ser similares.


Saludos

[PosProdukcion]

Iniciado por u_goldman

Pues si lo estoy viendo bien, realmente no le encuentro mucha complicación, hazte una variable global que le diga a tu aplicación si usa SP o no, y en la clase que llamas a tus procedimientos, evalúas esa variable, si es verdadera llamas al SP, si no, llamas al código, siguiendo la lógica de tu aplicación, los nombres deberían ser similares.


Saludos

Eso es lo que intento, ahí está el problema precisamente, ¿como hago eso? Call Eval() no funcionó...

Estoy mirando eso que me dijo Shiryu_Libra, nunca vi eso de ASPTest....

Código:

'tu clase
Set Test = Server.CreateObject("ASPTest.Test")

'llamado de modulos
Test.modulo(datos)

Gracias