Cita:
Empezado por cuscus
gracias a los 2
lo de las tablas de sistema, quisiera tirar por ahi,
|
¿Por qué? ¿No resulta acaso más cómodo tirar de delphi?:
Código Delphi [-]
var DAtaset : TQuery;
begin
Dataset.sql.text := 'select * from tabla where codigo = 1'; Dataset.Open;
Dataset.FieldsDef.Update;
with Dataset.FieldsDef.item[i] do
begin
case DataType of
ftUnknown : TipoDato:= 'ftUnknown';
ftString : TipoDato:= 'ftString';
ftSmallint : TipoDato:= 'ftSmallint';
ftInteger : TipoDato:= 'ftInteger';
ftWord : TipoDato:= 'ftWord';
ftBoolean : TipoDato:= 'ftBoolean';
end;
tipodato := FieldName + ' 'TipoDato;
end;
Más o menos.
Saludos
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.
Última edición por Lepe fecha: 02-11-2006 a las 19:18:24.
|