ActiveDelphi

[sevensystemjundiai]

bom dia a todos

gostaria de uma ajuda para saber como fazer para criar campos DATE e FLOAT via query, pois ja uso uma rotina para adicionar campos do tipo varchar, numeric e char, mas como date e float nao estou conseguindo, alguem pode me ajudar?

ex.: Try
if Qr_Limpeza.FindField('PORTA1').Index > 0 then
Except
Qr_Limpeza.SQL.Text :='ALTER TABLE SETOR ADD PORTA1 VARCHAR(20)';
Qr_Limpeza.execSQL;
end;

[imex]

Bom dia,

Experimente mais ou menos dessa forma: