ActiveDelphi

[e-fcosta]

Olá Pessoal,

eu to querendo excluir um registro da minha tabela no interbase. aqui tá a rotina:

Procedure TAluno.exlcuir_aluno(IBDatabase1: TIBDatabase;IBQuery1: TIBQuery;IBTransaction1: TIBTransaction; codigo:integer);

begin


ibdatabase1.Open;

with ibquery1 do
begin
close;
with SQL do // SQL 1
begin
clear;
Add(\'DELETE FROM CALUNO WHERE CODIGO_ALUNO = \'\'CODIGO\'\' \');


if not ibtransaction1.InTransaction
then ibtransaction1.InTransaction;
ExecSql;

Ibtransaction1.Commit;
// Procedimentos apenas para visualizar as informações depois
// de inserir
Close;
end; //SQL 1
end; // ibquery1
{ibdatabase1.Close;}
{nao deve ser fechado, senão os dados nao permanecem na tabela}

end;

Toda vez acusa erro de conversão da string Codigo, mesmo esse sendo declarado como integer. Lembrando q esse campo na tabela é um inteiro.


Desde já grato pelas respostas.

Emanuel

[elpatron]

Ola!

Tente usar assim:

with ibquery1 do
begin
close;
with SQL do // SQL 1
begin
clear;
Add(\'DELETE FROM CALUNO WHERE CODIGO_ALUNO = :CODIGO \');
ParambyName(\'CODIGO\').AsInteger := variavel ou valor inteiro;

Se nao funcionar, poste novamente ...
[]\'s

[weberdamasio]

Campo CODIGO sendo um inteiro no banco de dados
...
ibdatabase1.Open;
ibquery1.SQL.Text := \'DELETE FROM CALUNO WHERE CODIGO_ALUNO=\' + CODIGO;
if not ibtransaction1.InTransaction then
ibtransaction1.StartTransaction;
ibquery1.ExecSQL;
Ibtransaction1.Commit;
...

Campo CODIGO sendo uma string no banco de dados
...
ibdatabase1.Open;
ibquery1.SQL.Text := \'DELETE FROM CALUNO WHERE CODIGO_ALUNO=\'\'\' + CODIGO+\'\'\'\';
if not ibtransaction1.InTransaction then
ibtransaction1.StartTransaction;
ibquery1.ExecSQL;
Ibtransaction1.Commit;
...