Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 18-11-2003
Avatar de FNADALO
FNADALO FNADALO is offline
Miembro
 
Registrado: oct 2003
Ubicación: Palma de Mallorca
Posts: 97
Poder: 21
FNADALO Va por buen camino
Unhappy Obtención de la Estructura de un AdoQuery

Hola Compañeros
Tengo la necesidad de como puedo obtener
el tipo de campo y sus posiciones definidas
en un AdoQuery al cual le paso el Sql.

Con la propiedad FieldByname optengo los
nombre de los campos pero necesito más

He probado con FieldDefList y no se como hacer uso
de esta propiedad,,,,

Alguien puede ayudarme Gracias.
Este es el último paso para acabar con la
definición de un ABM.
Responder Con Cita
  #2  
Antiguo 18-11-2003
__cadetill __cadetill is offline
Miembro
 
Registrado: may 2003
Posts: 3.387
Poder: 24
__cadetill Va por buen camino
No se si te he entendido, pero creo que lo que buscas es la propiedad Fields

Código:
Query.Fields[1].DisplayFormat
......
Responder Con Cita
  #3  
Antiguo 18-11-2003
Avatar de FNADALO
FNADALO FNADALO is offline
Miembro
 
Registrado: oct 2003
Ubicación: Palma de Mallorca
Posts: 97
Poder: 21
FNADALO Va por buen camino
Unhappy

No Encuentro este propiedad puedes ayudarme.

Gracias
Responder Con Cita
  #4  
Antiguo 19-11-2003
__cadetill __cadetill is offline
Miembro
 
Registrado: may 2003
Posts: 3.387
Poder: 24
__cadetill Va por buen camino
Cita:
FNADALO comentó:
No Encuentro este propiedad puedes ayudarme.
No las encuentras???

Código:
ADOQuery1.Fields[1].DataSize
ADOQuery1.Fields[1].DisplayLabel
.........
Responder Con Cita
  #5  
Antiguo 19-11-2003
Avatar de FNADALO
FNADALO FNADALO is offline
Miembro
 
Registrado: oct 2003
Ubicación: Palma de Mallorca
Posts: 97
Poder: 21
FNADALO Va por buen camino
Gracias Cadetill por tus aportaciones lo he solucionado del
siguiente modo:
var
F : String;
I : Integer;
Begin
for i := 0 to AdoQuery1.FieldDeflist.count -1 do
begin
F:= AdoQuery1.FieldDefList.FieldDefs[i]
case F.DataType of
ftString: .....
ftInteger: ....
else
String
end;
end;
end;
end;
end.
Responder Con Cita
  #6  
Antiguo 19-11-2003
__cadetill __cadetill is offline
Miembro
 
Registrado: may 2003
Posts: 3.387
Poder: 24
__cadetill Va por buen camino
Bueno, sería lo mismo que poner

Código:
for i := 0 to ADOQuery1.Fields.Count - 1 do
begin
  case ADOQuery1.Fields[i].DataType of
    ftInteger:
    ......
  end;
end;
O sea, atacar a la propiedad Fields en lugar de la FieldDefList

No es que esté ni mejor ni peor, es una alternativa
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 20:19:25.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi