[firebase-br] FB 2.1
Anderson Piccoli
adpiccoli em gmail.com
Ter Fev 3 11:45:27 -03 2009
Qual erro o delphi acusa?
On Tue, Feb 3, 2009 at 11:38 AM, Renato Miranda
<renato.smiranda em gmail.com>wrote:
> Senhores,
>
> Alguém saberia dizer porque o código abaixo não funciona no FB 2.1 ?
> Funciona perfeitamente no FB 1.5 e no IBExpert (o SQL).
>
> Delphi 7 / DBXPress
>
> function TdmPsw.fPegaQtdSis: integer;
> var sql: TSQLDataSet;
> begin
> try
> sql := TSQLDataSet.Create(nil);
> sql.CommandType := ctQuery;
> sql.SQLConnection := dmBase.sqlConBase;
> sql.Close;
> sql.CommandText := 'SELECT COUNT(*) FROM WSISNOMES';
> sql.Prepared := False;
> sql.Open;
> if sql.Eof then
> Result := 0 else
> Result := sql.FieldByName('COUNT').AsInteger;
> finally
> sql.Free;
> end;
> end;
>
>
> --
> Abraços,
>
> RMiranda
> ______________________________________________
> FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
> Para saber como gerenciar/excluir seu cadastro na lista, use:
> http://www.firebase.com.br/fb/artigo.php?id=1107
> Para consultar mensagens antigas: http://firebase.com.br/pesquisa
>
Mais detalhes sobre a lista de discussão lista