Fórum ajuda com impressão de Campo Inserido com SQL #203824
01/01/2004
0
Ai Galera feliz Ano Novo a todos.
Gostaria da seguinte ajuda, uso o codigo abaixo para dar um insert na minha tabela acess, e uso ADO para a conecção.
Funciona legal, so que eu queria que aasim que confirmar a gravação ele imprima este registro que acabei de Incluir. Criei uma tela de impressão no Quickreport, mais não sei como pegar o ultimo que acabei de imprimir, se possivel via sql, pra ficar mais rapido.
ADOQueryCupom.close;
ADOQueryCupom.SQL.Clear;
ADOQueryCupom.SQL.Add(´Insert into TabValeCompras(matricula,nome,codigovale,nomedovale,valor)values(:matricula,:nome,:codigovale,:nomedovale,:valor)´);
ADOQueryCupom.Parameters.ParamByName(´matricula´).value := DBE1Cupom.Text;
ADOQueryCupom.Parameters.ParamByName(´nome´).value := DBE2Cupom.Text;
ADOQueryCupom.Parameters.ParamByName(´codigovale´).value := DBEdit1CupomVale.Text;
ADOQueryCupom.Parameters.ParamByName(´nomedovale´).value := DBEdit1CupomValeDesc.Text;
ADOQueryCupom.Parameters.ParamByName(´valor´).value := Edit3CupomValor.Text;
ADOQueryCupom.ExecSQL;
Gostaria da seguinte ajuda, uso o codigo abaixo para dar um insert na minha tabela acess, e uso ADO para a conecção.
Funciona legal, so que eu queria que aasim que confirmar a gravação ele imprima este registro que acabei de Incluir. Criei uma tela de impressão no Quickreport, mais não sei como pegar o ultimo que acabei de imprimir, se possivel via sql, pra ficar mais rapido.
ADOQueryCupom.close;
ADOQueryCupom.SQL.Clear;
ADOQueryCupom.SQL.Add(´Insert into TabValeCompras(matricula,nome,codigovale,nomedovale,valor)values(:matricula,:nome,:codigovale,:nomedovale,:valor)´);
ADOQueryCupom.Parameters.ParamByName(´matricula´).value := DBE1Cupom.Text;
ADOQueryCupom.Parameters.ParamByName(´nome´).value := DBE2Cupom.Text;
ADOQueryCupom.Parameters.ParamByName(´codigovale´).value := DBEdit1CupomVale.Text;
ADOQueryCupom.Parameters.ParamByName(´nomedovale´).value := DBEdit1CupomValeDesc.Text;
ADOQueryCupom.Parameters.ParamByName(´valor´).value := Edit3CupomValor.Text;
ADOQueryCupom.ExecSQL;
Uoquisala
Curtir tópico
+ 0
Responder
Posts
01/01/2004
Trovão
Nesse caso vc dar um requery na tabela e depois chamar o relatório de novo, qualquer coisa mande email
jonas.mendez@terra.com.br
jonas.mendez@terra.com.br
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)