Datawindow dinámico actualizar con feche
El problema es el siguiente ya tengo dos dias con este codigo
CONNECT USING SQLCA;
string ls_select
string ls_where
string ls_query
string ls_dw_dinamic
string ls_err
Date dia
dia = Date(sle_1.text)
ls_select = &
"Select dba.Entradas.no_entrada, dba.Entradas.Fecha from dba.entradas"
ls_where = " where dba.entradas.fecha = "+ String(Dia) //me marca error de sintaxis
//es diferente con las fechas
ls_query = ls_select +ls_where
ls_dw_dinamic = SQLCA.SyntaxFromSQL ( ls_query,"Style(Type=Grid ) "+"Text(Border=6 )"+&
"Column(Border=5)"+"Column(Background.Mode=0 )"+&
"Column(Background.Color=16777215 )", ls_err )
dw_1.Create ( ls_dw_dinamic, ls_err )
IF ls_err <> '' THEN
MessageBox ( "error - Syntax", ls_err )
ELSE
dw_1.SetTransObject ( SQLCA )
dw_1.Retrieve()
dw_1.Object.DataWindow.Color = RGB(85,85,85)
dw_1.Object.DataWindow.Header.Color = 12632256
END IF
CONNECT USING SQLCA;
string ls_select
string ls_where
string ls_query
string ls_dw_dinamic
string ls_err
Date dia
dia = Date(sle_1.text)
ls_select = &
"Select dba.Entradas.no_entrada, dba.Entradas.Fecha from dba.entradas"
ls_where = " where dba.entradas.fecha = "+ String(Dia) //me marca error de sintaxis
//es diferente con las fechas
ls_query = ls_select +ls_where
ls_dw_dinamic = SQLCA.SyntaxFromSQL ( ls_query,"Style(Type=Grid ) "+"Text(Border=6 )"+&
"Column(Border=5)"+"Column(Background.Mode=0 )"+&
"Column(Background.Color=16777215 )", ls_err )
dw_1.Create ( ls_dw_dinamic, ls_err )
IF ls_err <> '' THEN
MessageBox ( "error - Syntax", ls_err )
ELSE
dw_1.SetTransObject ( SQLCA )
dw_1.Retrieve()
dw_1.Object.DataWindow.Color = RGB(85,85,85)
dw_1.Object.DataWindow.Header.Color = 12632256
END IF
1 Respuesta
Respuesta de william4425 Mendez
1