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]
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
Curtir tópico
+ 0
Responder
Posts
09/10/2003
Fabio.hc
Quando vc usa INSERT, DELETE ou UPDATE:
QueryInsercao.ExecSQL;
Quando vc usa SELECT:
QueryInsercao.Open;
QueryInsercao.ExecSQL;
Quando vc usa SELECT:
QueryInsercao.Open;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)