RE:DW dinamicos como se crea ?
Publicado por
arnaldo (1 intervención) el 07/09/2005 20:14:45
string my_sql, Presentation_str, dwsyntax_str, errors
my_sql = "select * from empleados where estado = 'A'" -- ARMAS EL SELECT Q QUIERAS DENTRO DE UNA VARIABLE STRING
Presentation_str = "Style(Type=grid)" -- tipo de presentacion: GRID, TABULAR, ETC
dwsyntax_str = Sqlca.SyntaxFromSQL( my_sql, presentation_str, errors)
If Len(errors) > 0 Then
MessageBox("Aviso !!", &
"Error al recuperar los datos." + g_errors+".-",stopsign!)
Return
End If
-- en este caso use un datastore..podes asignarle a un control_dw
dt_datos = Create DataStore
dt_datos.Create( dwsyntax_str,errors)
If dt_datos.SetTransObject( sqlca ) = -1 then
messagebox('Aviso','Error al conectar el objeto',exclamation!)
end if
If dt_datos.retrieve( ) > 0 then
.....
end if
destroy dt_datos