Como rodar SQL??
05/02/2006
0
SdsMaster.DataSet.CommandText := ´SELECT COUNT(*) AS NUMREGISTRO FROM CLIENTE´;
SdsMaster.Open;
if NUMREGISTRO = 0 the
begin
BtnLocalizar.Enabled := False;
BtnImprimir.Enabled := False;
end
ou seja quero verificar se no meu BD tem ou nao algum registro, em caso afirmativo o botao localizar ficará habilitado caso contrario nao, sei que esta errando qdo eu verifiquei o NUMREGISTRO, mas como eu devo fazer entao??
OBRIGADO A TODOS!!
Sandercomputacao
Posts
05/02/2006
Leonardobhbr
SdsMaster.Open;
if(SdsMaster.FieldByName(´NUMREGISTRO´).AsInteger = 0) then
begin
BtnLocalizar.Enabled := False;
BtnImprimir.Enabled := False;
end
05/02/2006
Sandercomputacao
Mais uma Vez..
Obrigado!!
05/02/2006
Sandercomputacao
DbECodCliente.Text := IntToStr(StrToIntDef(SdsMaster.FieldByName(´MAIORCODIGO´).AsString) + 1,0);
Erros:
Not enough actual parameters
Missing operator or semicolon
Could not compile used unit ´UCliente.pas´
Valeu!!
05/02/2006
Edilcimar
05/02/2006
Sandercomputacao
05/02/2006
Edilcimar
aqui vc disse que queria um autoincremento, e na mensagem seguinte também
foi por isto que escrevi sobre generator e trigger, agora se vc quer apenas saber se existe algum registro no banco, basta utilizar o recordcount, se for zero então não há
05/02/2006
Sandercomputacao
to tendo trabalho pra acrescentar + 1 no campo de código.. olha como eu coloquei.. nao sei se esta certo mas...
[b:635dc5b551]SdsMaster.Insert;
SdsMaster.DataSet.CommandText := ´SELECT MAX(ID5_CLTE) AS MAIORCODIGO FROM CLIENTE´;
SdsMaster.Open;
DbECodCliente.Text := IntToStr(StrToIntDef(SdsMaster.FieldByName(´MAIORCODIGO´).AsString) + 1,0);[/b:635dc5b551]
05/02/2006
Edilcimar
05/02/2006
Sandercomputacao
mas eu to fazendo so uma versao BETA.. pra mostrar pro meu chefe q assim funciona tb..
05/02/2006
Edilcimar
Clique aqui para fazer login e interagir na Comunidade :)