Delphi7-(IBClientDataSet1)-Problemas.
Eu estava desenvolvendo uma aplicação em Delphi6 e Interbase, utilizando para acesso ao banco de dados o IBDatabase1 e o IBTransaction1, e para acesso a tabelas o IBClientDataSet1, estava rodando perfeito.
Esta semana instalei o Delphi7 e compilei minha aplicação, porem agora não funciona.
A conexão com o Banco esta ok ... mas quando quero gravar ou alterar um registra utilizando o IBClientDataSet1 gera um erro ´SQL Parse Error: Parameter name expected´.
uso do seguinte Maneira..
procedure TFormCadUNMedida.SpeedButton5Click(Sender: TObject);
begin
try
If Not(FormUNMEDIDA.IBTransacao.InTransaction) Then
FormUNMEDIDA.IBTransacao.StartTransaction ;
if SelecionaFuncaoUNMedida = ´Exclusão´ then
begin
FormUNMEDIDA.IBUNMEDIDA.Delete ;
FormUNMEDIDA.IBUNMEDIDA.ApplyUpdates(-1) ;
Close ;
exit ;
end ;
if SelecionaFuncaoUNMedida = ´Inclusão´ then
FormUNMEDIDA.IBUNMEDIDA.Insert ;
if SelecionaFuncaoUNMedida = ´Alteração´ then
FormUNMEDIDA.IBUNMEDIDA.Edit ;
FormUNMEDIDA.IBUNMEDIDAUM_MEDIDA.AsString := Edit1.Text ;
FormUNMEDIDA.IBUNMEDIDAUM_DESCRI.AsString := Edit2.Text ;
FormUNMEDIDA.IBUNMEDIDA.ApplyUpdates(-1) ;
FormUNMEDIDA.IBTransacao.CommitRetaining ;
Close ;
except
ShowMessage(´Atenção ´+#13+´Ocorreu um Erro Desconhecido Talvez não foi possivel Salvar as Informações se este problema continuar chame a Assistência Técnica. ´);
FormUNMEDIDA.IBTransacao.RollbackRetaining ;
Close ;
end;
end;
IBUNMEDIDA = é o nome do IBClientDataSet1.
em Delphi6 funciona perfeitamento.
se puderem me ajudar fico grato.
Roberto Rodrigues Jacinto.(Programador).
Esta semana instalei o Delphi7 e compilei minha aplicação, porem agora não funciona.
A conexão com o Banco esta ok ... mas quando quero gravar ou alterar um registra utilizando o IBClientDataSet1 gera um erro ´SQL Parse Error: Parameter name expected´.
uso do seguinte Maneira..
procedure TFormCadUNMedida.SpeedButton5Click(Sender: TObject);
begin
try
If Not(FormUNMEDIDA.IBTransacao.InTransaction) Then
FormUNMEDIDA.IBTransacao.StartTransaction ;
if SelecionaFuncaoUNMedida = ´Exclusão´ then
begin
FormUNMEDIDA.IBUNMEDIDA.Delete ;
FormUNMEDIDA.IBUNMEDIDA.ApplyUpdates(-1) ;
Close ;
exit ;
end ;
if SelecionaFuncaoUNMedida = ´Inclusão´ then
FormUNMEDIDA.IBUNMEDIDA.Insert ;
if SelecionaFuncaoUNMedida = ´Alteração´ then
FormUNMEDIDA.IBUNMEDIDA.Edit ;
FormUNMEDIDA.IBUNMEDIDAUM_MEDIDA.AsString := Edit1.Text ;
FormUNMEDIDA.IBUNMEDIDAUM_DESCRI.AsString := Edit2.Text ;
FormUNMEDIDA.IBUNMEDIDA.ApplyUpdates(-1) ;
FormUNMEDIDA.IBTransacao.CommitRetaining ;
Close ;
except
ShowMessage(´Atenção ´+#13+´Ocorreu um Erro Desconhecido Talvez não foi possivel Salvar as Informações se este problema continuar chame a Assistência Técnica. ´);
FormUNMEDIDA.IBTransacao.RollbackRetaining ;
Close ;
end;
end;
IBUNMEDIDA = é o nome do IBClientDataSet1.
em Delphi6 funciona perfeitamento.
se puderem me ajudar fico grato.
Roberto Rodrigues Jacinto.(Programador).
Rti
Curtidas 0