Variavel:= DM.ClientDataSet.FieldByName(´CAMPO´).AsString
Olá estou com dificuldade em fazer retornar o valor.
no banco funciona cento
select (max(CODIGO)) as MaxCod from PRODUTOS where TP_COD=´S´
//////
procedure TFrmCadProdutos.IncCodSequencial;
var
MaxCodS: String;
NovoCodS: Integer;
begin
DMCadastros.cdsProdutos.Close;
DMCadastros.cdsProdutos.CommandText:= ´select max(CODIGO) as MaxCodigo from PRODUTOS where TP_COD=´´S´´´;
DMCadastros.cdsProdutos.Open;
MaxCodS:= DMCadastros.cdsProdutos.FieldByName(´MaxCodigo´).AsString;
DMCadastros.cdsProdutos.Close;
NovoCodS:= StrToInt(MaxCodS) + 1;
edCodigo.Text:= IntToStr(NovoCodS);
end;
/////
mas esta dando o erro
cdsProdutos: Field ´CODIGO´ not found.
no banco funciona cento
select (max(CODIGO)) as MaxCod from PRODUTOS where TP_COD=´S´
//////
procedure TFrmCadProdutos.IncCodSequencial;
var
MaxCodS: String;
NovoCodS: Integer;
begin
DMCadastros.cdsProdutos.Close;
DMCadastros.cdsProdutos.CommandText:= ´select max(CODIGO) as MaxCodigo from PRODUTOS where TP_COD=´´S´´´;
DMCadastros.cdsProdutos.Open;
MaxCodS:= DMCadastros.cdsProdutos.FieldByName(´MaxCodigo´).AsString;
DMCadastros.cdsProdutos.Close;
NovoCodS:= StrToInt(MaxCodS) + 1;
edCodigo.Text:= IntToStr(NovoCodS);
end;
/////
mas esta dando o erro
cdsProdutos: Field ´CODIGO´ not found.
Nussbaum
Curtidas 0
Respostas
Gilberto Fernandes
08/05/2006
vc deve estar usando o mesmo client q vc usa para a tabela completa, onde vc coloca os campos da tabela, aí qdo vc acessa a tabela pegando soh o MAXCOD da o erro falando q o campo CODIGO (q vc importou la dentro do ClienteDataSet) naum existe na consulta q vc ta abrindo
sacou?
sacou?
GOSTEI 0
Nussbaum
08/05/2006
Valeu gilberto, deu tudo certo e esta dica será muito usada no programa q estou fazendo
:)
:)
GOSTEI 0