Olá pessoal, estou tendo problemas para excluir arquivos no banco de dados access utilizando o componente ado, a chave primária do arquivo é de auto numeração, e o comando que estou utilizando é esse
procedure TForm2.BitBtn4Click(Sender: TObject);
var
codigo: string;
begin
if ( MessageDlg('Você Confirma a Exclusão do Arquivo?', mtWarning, [mbOK, mbCancel],0)=mrok) then
begin
codigo := intTostr(Adoquery1codigo.Value);
Adoquery1.Close;
Adoquery1.SQL.Clear;
Adoquery1.SQL.add('delete from cliente where codigo='''+codigo+'''');
Adoquery1.ExecSQL;
Adoquery1.Close;
Adoquery1.SQL.Clear;
Adoquery1.SQL.Add('select * from cliente');
Adoquery1.Open;
end;
A resposta do sistema é:
Tipos de dados imcompativeis na expressão de critério
Pergunta
Guest eder lucio
Olá pessoal, estou tendo problemas para excluir arquivos no banco de dados access utilizando o componente ado, a chave primária do arquivo é de auto numeração, e o comando que estou utilizando é esse
procedure TForm2.BitBtn4Click(Sender: TObject);
var
codigo: string;
begin
if ( MessageDlg('Você Confirma a Exclusão do Arquivo?', mtWarning, [mbOK, mbCancel],0)=mrok) then
begin
codigo := intTostr(Adoquery1codigo.Value);
Adoquery1.Close;
Adoquery1.SQL.Clear;
Adoquery1.SQL.add('delete from cliente where codigo='''+codigo+'''');
Adoquery1.ExecSQL;
Adoquery1.Close;
Adoquery1.SQL.Clear;
Adoquery1.SQL.Add('select * from cliente');
Adoquery1.Open;
end;
A resposta do sistema é:
Tipos de dados imcompativeis na expressão de critério
Quem puder ajudar antecipo meus agradecimentos
Link para o comentário
Compartilhar em outros sites
2 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.