GARANTIR DESCONTO

Fórum Erro ao inserir dados na tabela #187395

09/10/2003

0

Estou com problemas na inserção de Dados em uma tabela MySql.
Estou usando um componente TQuery ligado à um DATABASE.
A instrução SQL que estou passando é a seguinte:
´insert into TabLocal (renavam,placa,Cod_Origem,Cod_Marca,Cod_Modelo,Ano,Cod_Combustivel)
values ( :Prenavam, :Pplaca, :Pcod_origem, :Pcod_marca, :Pcod_modelo, :Pano, :Pcod_combustivel)
e o código do botão gravar é o seguinte:
DMDataBase.DBSCV.StartTransaction; :?
try
QueryInsercao.Close;
QueryInsercao.Params[0].AsInteger := StrToInt(ERenavam.Text);
QueryInsercao.Params[1].AsString := EPlaca.Text;
QueryInsercao.Params[2].AsInteger := DBLBoxOrigem.KeyValue;
QueryInsercao.Params[3].AsInteger := DBLBoxMarca.KeyValue;
QueryInsercao.Params[4].AsInteger := DBLBoxModelo.KeyValue;
QueryInsercao.Params[5].AsInteger := StrToInt(EAno.Text);
QueryInsercao.Params[6].AsInteger := DBLBoxCombustivel.KeyValue;
QueryInsercao.Open;
ShowMessage(´Commit´);
DMDataBase.DBSCV.Commit;
except
DMDataBase.DBSCV.RollBack;

Toda vez que clico neste botão é gerado uma mensagem de erro
´Project SistemaControleVeiculo.exe raised exception class ENoResult with
message ´Erro Creating Cursor Handle´ Process Stopped´.

O Mais interessante é que mesmo dando o erro ele grava na tabela.
Qualquer ajuda é bem vinda.

Grato.


[b:f235af43db]Título editado, pois deve corresponder ao conteúdo da mensagem. Leia as regras de conduta.[/b:f235af43db]


Ecarvalhox

Ecarvalhox

Responder

Posts

09/10/2003

Fabio.hc

Quando vc usa INSERT, DELETE ou UPDATE:

QueryInsercao.ExecSQL;




Quando vc usa SELECT:

QueryInsercao.Open;


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar