formula desde base de datos

[roortiz]

Hola amigos:

En un campo de la base de datos tengo almacenada una formula que deseo utilizar en el programa de la siguiente manera:

Variable=data1.recorset![formula]

el tipo de dato del campo de la base de datos es string y el contenido seria algo asi "dato1 * 2 + dato2" de tal modo que al reemplazar la sentencia, supuesamente me tendria que quedar algo asi:

Variable = dato1 * 2 + dato2


pero en realidad estos no sucede y me queda asi:

Variable = "dato1 * 2 + dato2"

como puedo hacer para almacenar una formula en un campo de la base de datos y despues utilizarla como código??????

Seguro que usteden me podran ayudar!!!!!!!!!!!!!
Gracias!!!!!!!!!!!!

[black_devil]

Mmm a ver, en estos momentos se me puede ocurrir que cuando guardes la fórmula en tu BD, la guardes como una función que tienes en tu sistema, por ej.

Public sub funcion(a)
total = (a+b)
End Sub

lo que guardarias en la BD seria el nombre de tu función "funcion(a)" y cuando la quieras utilizar la buscas, la colocas en un control por ej. en un textbox y a través de un botón haga la comparación, por ej.

textbox1.text = rs!nombre_funcion

en vista diseño mostria el nombre de tu función y al hacer click en el botón realice la operación, ojalá te sirva la idea...

saludos

[roortiz]

La cosa es asi, para que lo entiendan bien...

en una tabla (data1) de mi base de datos tengo un campo que se llama Valor_Inicial, existen varios registros con Valor_Inicial conteniendo distintos valores...
en otra tabla (data2) tengo las distintas operaciones a realizar con Valor_Inicial (Las formulas estan en una tabla porque se pueden modificar, de otra manera estarian en el codigo y todo sería mas facil...)
Y las operaciones realizadas se guardan en una tercera tabla (data3)...

ahora lo que necesito es hacer lo siguiente:

tomar Valor_inicial y cargarlo en una variable que se llame Calculo_1 utilizando una de las formulas de la tabla, entonces mi idea era hacer esto:

// suponiendo que la formula almacenada en data2 es V_I * 0.03

dim V_I as long // esta variable tomará en contenido de Valor_Inicial

V_I = data1.recordset![Valor_Inicial]

Calculo_1=data2.recordset![formula] // aqui sale el error

data3.recorset.addnew

data3.recorset![resultado]=Calculo_1

data3.recordset.update
el error me da porque al reemplazar

calculo_1 = data2.recorset![formula]

esta haciendo esto: Calculo_1 = "V_I * 0.03"

y no como yo lo necesito, que sería asi : Calculo_1= V_I * 0.03 // sin las comillas.
aun no se como solucionarlo......................

[tazzito]

hola roortiz

si mal no recuerdo no era muy complejo, pero necesitas usar una referencia a scirpt control y declarabas un objeto investiga en internet o en la ayuda sobre ese control y veras ;)

[AteneaVB]

Hola roortiz. Bueno, esto es lo más que te puedo ayudar.
Defines la siguiente función:

Private Function MyVal(s As String) As Double

Dim xl As Object

Set xl = CreateObject("excel.application")
xl.Workbooks.Add

xl.ActiveCell.Formula = "=" & s
MyVal = xl.ActiveCell.Value

xl.ActiveWorkbook.Close savechanges:=False
xl.Quit
Set xl = Nothing

End Function

y al llamarle le envias como parámetro la expresion que quieres evaluar, el único problema es que no se la puedes enviar directamente como
viene de la BD, sino que tienes que enviarle los valores numericos que quieres calcular (Ejm: "2+3").

No sería más fácil si guardaras en tu BD las variables y el operador(es) por separado?

Puedes encontrar la información completa referente a esta función en :

"//support.microsoft.com/default.aspx?scid=kb%3Bes%3B159974"

anteponiendo el "http", lo que sucede es que todavia no puedo enviar enlaces.

Saludos

[tazzito]

veamos agrega la referencia a Microsoft Script Control
y luego usa la siguiente funcion

function EvaluaText(CadenaEvaluar as string) as string
Dim miScript As ScriptControl
Set miScript = New ScriptControl
miScript.Language = "vbScript"
miScript.ExecuteStatement ("R=" & CadenaEvaluar )
EvaluaText= miScript.Eval("R")
set miScript=nothing
end Function


y lo ejecutas asi

calculo_1 = EvaluaText(data2.recorset![formula])

OJO no se de que tipo es Calculo_1 pero ahi tu lo comviertes yo por ahora lo devuelvo como text en la funcion

[roortiz]

o sea que basicamente lo que estoy buscando es como convertir una variable en una sentencia o parte de una sentencia...