(Resolvido) problemas com inserção

[rickayron]

Olá

estou com um problema chato no delphi estou usaro o banco acess, adoquery e tambem teste com adodataset para inserir dados na base a primeira inserção ocorre corretamente mas a segunda gera um erro

ADOQuery_inserir_prepedido : CommandText does not return a result set;

está indicando não ser possivel retornar dados atraves deste provedor alguém poderia min uma luz

delphi 7]

acess 2003

//conecxao com o banco

DataModule2.ADOConnection1.Open;

if DataModule2.ADOConnection1.Connected = False then begin

DataModule2.ADOConnection1.Connected := True;

end;

//tabela para inserção

// DataModule2.ADOQuery_inserir_prepedido.open;

if DataModule2.ADOQuery_inserir_prepedido.Active = False then begin

DataModule2.ADOQuery_inserir_prepedido.Active := True;

end;

DataModule2.ADOQuery_inserir_prepedido.close;

DataModule2.ADOQuery_inserir_prepedido.SQL.Text := 'insert into PrePedidos(Ped_descricao, Ped_obs, Cli_id, Ped_valor, Ped_pagamento, Ped_acrescimo, Ped_desconto, Ped_total) values(:Quan, :ob, :cod, :Val, :Pag, :Acre, :Des, :Tot)';

DataModule2.ADOQuery_inserir_prepedido.Parameters.ParamByName('cod').Value := DBEdit15.Text;

DataModule2.ADOQuery_inserir_prepedido.Parameters.ParamByName('Quan').Value := des;

DataModule2.ADOQuery_inserir_prepedido.Parameters.ParamByName('Ob').value := Obs;

DataModule2.ADOQuery_inserir_prepedido.Parameters.ParamByName('val').value := Valor;

DataModule2.ADOQuery_inserir_prepedido.Parameters.ParamByName('Des').Value := Desconto;

DataModule2.ADOQuery_inserir_prepedido.Parameters.ParamByName('Acre').Value := Acrescimo;

DataModule2.ADOQuery_inserir_prepedido.Parameters.ParamByName('Tot').Value := Total;

DataModule2.ADOQuery_inserir_prepedido.Parameters.ParamByName('Pag').Value := Pagamento;

DataModule2.ADOQuery_inserir_prepedido.ExecSQL;

ShowMessage('O pedido foi acrecido com sucesso');

[Jhonas]

DataModule2.ADOQuery_inserir_prepedido.Parameters.ParamByName('cod').Value := DBEdit15.Text;

Ao usar um componente DBEdit pressupõe que ele esteja linkado diretamente a um campo de sua tabela e que ela esta aberta

Se a sua tabela estiver fechada no momento que que voce vai passar o valor como parametro voce receberá esta menssagem

ADOQuery_inserir_prepedido : CommandText does not return a result set;

portanto sugiro que da mesma forma como esta passando os demais parametros, este tambem seja do mesmo modo

abraço

[rickayron]

DataModule2.ADOQuery_inserir_prepedido.Parameters.ParamByName('cod').Value := DBEdit15.Text;

Ao usar um componente DBEdit pressupõe que ele esteja linkado diretamente a um campo de sua tabela e que ela esta aberta

Se a sua tabela estiver fechada no momento que que voce vai passar o valor como parametro voce receberá esta menssagem

ADOQuery_inserir_prepedido : CommandText does not return a result set;

portanto sugiro que da mesma forma como esta passando os demais parametros, este tambem seja do mesmo modo

abraço

a tabela que uso para registrar não contem nenhum compo ligado a ela contem alguns campos ligados a tabela cliente que não é usada nessa query, com isso agora acontece com todas as minhs inserçoes a priemeira funciona mas a segunda gera esse ADOQuery_inserir_prepedido : CommandText does not return a result set; o que posso fazer contornar isso ate mais

[Jhonas]

sugiro que da mesma forma como esta passando os demais parametros, este tambem seja do mesmo modo

experimente para ver se some o erro

abraço

[rickayron]

sugiro que da mesma forma como esta passando os demais parametros, este tambem seja do mesmo modo

experimente para ver se some o erro

abraço

resolvido

soluçao

você estava como sempre jhonas

mas apos eu usar o mesmo procedimentos dos outros os dados do cliente desaparecia pois trocava as instruçoes sql

usei um outro componente do ado o adocommand ele insere sem limetis e sem erros obrigado

resolvido