FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Como Utilizar La Funcion Desc Para Hacerla Parte De Un Query
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 |
|
|
|