Pessoal será que alguém poderia me ajudar. Tenho está procedure que usava com IBTable junto com Interbase e funcionava beleza, estou fazendo alguns testes com clientDataSet e Mysql e ao copilar recebo este erro:
procedure TFRcadFor.NovRegExecute(Sender: TObject);
begin
DMdados.TBCadFor.Refresh;
with DMdados.QRreg do
begin
Close;
SQL.Clear;
SQL.Add('select max(codigo) as codfor from ' + DMDados.TBCadFor.TableName);
Open;
end;
DMdados.TBCadFor.Insert;
If DMdados.QRreg['codfor'] <> null then
DMdados.TBCadFor['codigo'] := DMdados.QRreg['codfor'] + 1
else
DMdados.TBCadFor['codigo']:='1';
end;
Pergunta
VDLR
Pessoal será que alguém poderia me ajudar. Tenho está procedure que usava com IBTable junto com Interbase e funcionava beleza, estou fazendo alguns testes com clientDataSet e Mysql e ao copilar recebo este erro:
A procedure é esta
:huh:
Abraço
Valdecir
Link para o comentário
Compartilhar em outros sites
5 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.