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
Pergunta
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');
Link para o comentário
Compartilhar em outros sites
4 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.