(Resolvido) Problema com instrução insert com Delphi+Access+ADO

[Flávio Borges]

Galera boa tarde e prazer em conhecer a todos.

É o seguinte, estou tentando inserir um registro numa tabela chamada subgeneros, nos campos desc_subgenero e cod_genero... A tabela também possui um campo cod_subgenero que é auto-incrementável....

Porém está apresentando um erro durante a compilação...

Na imagem, está o screen da tela com o código e o erro... Será que alguém tem uma idéia para ajudar?

Valeu mesmo a todos.

Editado Janeiro 26, 2008 por Flávio Borges

[Micheus]

Flávio Borges, o erro está no fato de você ter utilizado as aspas próximo aos parâmetros.

Na verdade o parâmetro faz parte da string: '...) values(:DescSubeenero, :CodGenero)';

Outra coisa, prefira não utilizar Value ao passar o parâmetro. Assim como fez com o primeiro parâmetro, indique o tipo de dados a ser passado via os métodos AsString, AsInteger, As...

Abraços

[Flávio Borges]

Flávio Borges, o erro está no fato de você ter utilizado as aspas próximo aos parâmetros.

Na verdade o parâmetro faz parte da string: '...) values(:DescSubeenero, :CodGenero)';

Outra coisa, prefira não utilizar Value ao passar o parâmetro. Assim como fez com o primeiro parâmetro, indique o tipo de dados a ser passado via os métodos AsString, AsInteger, As...

Abraços

Valeu mesmo cara...

Consegui fazer usando o seguinte código:

with DataMod.DModule.AQSubgeneros do

begin

Close;

SQL.Clear;

SQL.Add('Insert into Subgeneros(Desc_Subgenero, Cod_Genero)values(:DescSubgenero, :CodGenero)');

Parameters.ParamByName('DescSubgenero').Value:=edtDescSubgenero.Text;

Parameters.ParamByName('CodGenero').Value:=StrToInt(edtCodGenero.Text);

execSQL;

end;