JOTAAB
06-01-2006, 19:25:07
SI ALGUIEN PUDIERA AYUDARME EN LO SIGUIENTE SE LO AGRADECERE MUCHO.
LO QUE NECESITO ES UTILIZAR LA FUNCION DESC DE ORACLE COMO PARTE DE UN QRY PARA CONDICIONAR EL TAMAÑO DEL CAMPO EN DELPHI , PARA QUE EL USUARIO NO ESCRIBA MAS CARACTERES DE LO PERMITIDO Y PARA FACILITAR EL MANTENIMIENTO DE LA APLICACION SIN NECESIDAD DE MODIFICAR LA PANTALLA DE CAPTURA Y PARA HACER LAS COSAS MAS RAPIDO
INTENTE LO SIGUIENTE PERO NO FUNCIONA
procedure TFORM1.FormShow(Sender: TObject);
var QryConsulta:TSQLQuery;
begin
QryConsulta:=TSQLQuery.Create(nil);
with QryConsulta do
Begin
SQLConnection:=DATAMOD.CONEXION;
sql.Clear;
sql.Add('desc ESQUEMA1.TABLAPRUEBAS');
Open;
//SI EL CAMPO BUSCADO SE LLAMA OBSERVACIONES ENTONCES
if trim(Fieldbyname('Nombre').AsString)='OBSERVACIONES' then
Begin
//COPIA EL TAMAÑO DEL CAMPO
Memobservacion.MaxLength:=strtoint(copy(trim(Fieldbyname ('Nombre').AsString),10,4));
End
Else
next;
End;
QryConsulta.free;
end;
AGRADECERE MUCHO SUS COMENTARIOS.
PD. GRACIAS A TODO EL FORO
LO QUE NECESITO ES UTILIZAR LA FUNCION DESC DE ORACLE COMO PARTE DE UN QRY PARA CONDICIONAR EL TAMAÑO DEL CAMPO EN DELPHI , PARA QUE EL USUARIO NO ESCRIBA MAS CARACTERES DE LO PERMITIDO Y PARA FACILITAR EL MANTENIMIENTO DE LA APLICACION SIN NECESIDAD DE MODIFICAR LA PANTALLA DE CAPTURA Y PARA HACER LAS COSAS MAS RAPIDO
INTENTE LO SIGUIENTE PERO NO FUNCIONA
procedure TFORM1.FormShow(Sender: TObject);
var QryConsulta:TSQLQuery;
begin
QryConsulta:=TSQLQuery.Create(nil);
with QryConsulta do
Begin
SQLConnection:=DATAMOD.CONEXION;
sql.Clear;
sql.Add('desc ESQUEMA1.TABLAPRUEBAS');
Open;
//SI EL CAMPO BUSCADO SE LLAMA OBSERVACIONES ENTONCES
if trim(Fieldbyname('Nombre').AsString)='OBSERVACIONES' then
Begin
//COPIA EL TAMAÑO DEL CAMPO
Memobservacion.MaxLength:=strtoint(copy(trim(Fieldbyname ('Nombre').AsString),10,4));
End
Else
next;
End;
QryConsulta.free;
end;
AGRADECERE MUCHO SUS COMENTARIOS.
PD. GRACIAS A TODO EL FORO