Como criar campo Booleano no IB6?

Question

Fiz com campos Char(1) mas t� dando um erro danado, qdo eu ligo uns DBCheckbox neles. Diz q o formato n�o � o mesmo, sei l�, coisa assim.
Como fazer e utilizar gravando num DB? Eu preciso, pois minhas rotinas de senhas de Login, s�o todas baseadas neste tipo de campo, s� t� migrando de Paradox para IB6.

Anonymous · Answer

O IB6 n�o cria campo boolean, mas vc pode usar o comando:
declare o campo do tipo char(1) e use as seguintes fun��es

Function STRTOBOOL(Texto:String):boolean;
begin
result := false;
if length(texto)>1 then exit;
if uppercase(texto) = �S� then
result := true
if uppercase(texto) = �N� then
result := false;
end;

Function BOOLTOSTR(Expressao:Boolean):string;
begin
result := �S�;
case Expressao of
true : result := �S�;
false: result := �N�;
end;
end;

Anonymous · Answer

Na pr�tica para qualquer Banco de Dados, mesmo aqueles que aceitam tipo Boolean para Campos de tabela, devemos adotar numeric(1), preenchendo com 0 ou 1.
Isto facilita a rela��o com DataControl DBCheckBox, e propicia uma migra��o entre base heterog�neas sem traumas, inclusive para o front-end.

Sds
Laercio
www.digirio.com.br (Delphi e InterBase � AQUI!)

F�rum Como criar campo Booleano no IB6? #151350