Bom dia. estou tendo problemas com a gravação de dados abaixo, o que poderia
estar errado, já tentei ler mas não consegui encontarr o problema. grata
pela atenção
PROCEDURE PASSAPARAMETROS;
BEGIN //TENTA GRAVAR NO BANCO DE DADOS PASSANDO OS PARAMETROS
DM.qryMOV.Close;
dm.trmov.active:=true;
DM.qryMOV.SELECTSQL.Clear;
DM.qryMOV.SELECTSQL.Add('Insert Into MOVIMENTO (ID, DATA, ESPECIE,
PROTOCOLO,NUM_REG,DESC_ATO,COD_ATO,COD_CLASSE,LIVRO,FOLHAS,PAGOS,GRATIS,EMOL
UM,LEI3217,LEI3761,DESC_SELO,CODSELO,SIGLA,MATRIC,RECIBO,NUM_REMESSA)');
DM.qryMOV.SELECTSQL.Add('Values(:ID,:DAT,:ESP,:PROT,:REG,:DESC,:COD,:CLASSE,
:LIV,:FOL,:PAG,:GRAT,:VAL,:TJ,:MUT,:DESCSELO,:CODSELO,:SIG,:MAT,:REC,:NUMREM
)');
DM.qryMOV.ParamByName('ID').Asinteger:=strtoint(FRMCLIENTE.edit1.Text);
DM.qryMOV.ParamByName('DAT').Asdatetime:=(FRMCLIENTE.dateedit1.date);
DM.qryMOV.ParamByName('ESP').AsString:=FRMCLIENTE.combobox1.Text;
DM.qryMOV.ParamByName('PROT').AsString:=FRMCLIENTE.edit2.Text;
DM.qryMOV.ParamByName('REG').AsString:=FRMCLIENTE.edit3.Text;
DM.qryMOV.ParamByName('DESC').AsString:=FRMCLIENTE.combobox2.Text;
DM.qryMOV.ParamByName('COD').AsString:=FRMCLIENTE.edit4.Text;
DM.qryMOV.ParamByName('CLASSE').AsString:=FRMCLIENTE.edit5.Text;;
DM.qryMOV.ParamByName('LIV').AsString:=FRMCLIENTE.edit6.Text;
DM.qryMOV.ParamByName('FOL').AsString:=FRMCLIENTE.edit7.Text;
DM.qryMOV.ParamByName('PAG').Asinteger:=strtoint(FRMCLIENTE.edit8.Text);
DM.qryMOV.ParamByName('GRAT').Asinteger:=strtoint(FRMCLIENTE.edit9.Text);
DM.qryMOV.ParamByName('VAL').Asfloat:=strtofloat(FRMCLIENTE.edit10.Text);
DM.qryMOV.ParamByName('TJ').Asfloat:=strtofloat(FRMCLIENTE.edit11.Text);
DM.qryMOV.ParamByName('MUT').Asfloat:=strtofloat(FRMCLIENTE.edit12.Text);
DM.qryMOV.ParamByName('DESCSELO').AsString:=FRMCLIENTE.edit13.Text;
DM.qryMOV.ParamByName('CODSELO').AsString:=FRMCLIENTE.edit14.Text;
DM.qryMOV.ParamByName('SIG').AsString:=FRMCLIENTE.edit15.Text;
// DM.qryMOV.ParamByName('NUMSELO').AsString:=FRMCLIENTE.edit16.Text;
DM.qryMOV.ParamByName('MAT').AsString:=FRMCLIENTE.edit17.Text;
DM.qryMOV.ParamByName('REC').Asinteger:=strtoint(FRMCLIENTE.edit18.Text);
DM.qryMOV.ParamByName('NUMREM').Asinteger:=strtoint(FRMCLIENTE.edit19.Text);
END;
no botão que uso para gravar coloquei
Procedure TFrmCliente.BtnGravarClick(Sender: TObject);
Begin
PASSAPARAMETROS;
TRY
DM.QRYMOV.EXECSQL;
FINALLY
Application.MessageBox('Erro na tentativa de gravação dos
DADOS!'+chr(13)+'Reinicie a operação!',
'E R R O', mb_IconError+mb_Ok);
END;
uso delphi 5 e ibdataset . mas qdo clico para gravar ele só aparece o que
está escrito no application.message.
_______________________________________________________
Yahoo! Acesso Grátis: Internet rápida e grátis.
Instale o discador agora!
http://br.acesso.yahoo.com/
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
