DbGrid não atualiza por nada!!! O que será:

Delphi

21/08/2015

O meu dbgrid não atualiza por nada!!! Não sei o que acontece já tentei de tudo que existe(bom quase se tudo por se não já era para dar certo) !!!

tenho um sqldataset ligado ao um dataseprovider ligado ao um clientdaset ligado um datasource !!!

Alguem ajuda???


sqldataset.Close;
sqldataset.Open;



clientedataset.active := True;
clientedataset.Close;
clientedataset.Open;



sqldataset.refresh;
Bruno Henrique

Bruno Henrique

Curtidas 0

Respostas

Thiago Santana

Thiago Santana

21/08/2015

Como está a sua consulta?
Fixa na propriedade do componente ou dinâmica?
GOSTEI 0
Bruno Henrique

Bruno Henrique

21/08/2015

Thiago Santana!!!

No botão gravar ele está esse código, que está funcionando normalmente, ele grava a inclusão e salva as alterações, o problema está na hora de gravar, pois atualiza somente quando eu fecho o form totalmente e abro novamente.

A ligações estão sendo feitas através das propriedades.

procedure TFrmCadClientes.BtnGravarClick(Sender: TObject);
begin
      if status = 'N' then
        begin
          try
            Transacao.TransactionID := 1;
            Transacao.IsolationLevel := xilREPEATABLEREAD;
            FrmPrincipal.ConexaoBd.StartTransaction(Transacao);
            SqlDtSCadClientes.Close;
            SqlDtSCadClientes.CommandType := ctQuery;
            SqlDtSCadClientes.CommandText:='insert into CADCLIENTES(CODIGO, SITUACAO, DATACADASTRO, ULTIMAALTERACAO, ';
            SqlDtSCadClientes.CommandText:=SqlDtSCadClientes.CommandText+'OPERADORCODIGO, OPERADORNOME, NOMERAZAO, FANTASIAAPELIDO, ';
            SqlDtSCadClientes.CommandText:=SqlDtSCadClientes.CommandText+'CIDADECODIGO, CIDADENOME, ESTADO, CEP, ENDERECO, NUMERO, ';
            SqlDtSCadClientes.CommandText:=SqlDtSCadClientes.CommandText+'BAIRROCODIGO, BAIRRONOME, COMPLEMENTO, RG, CNPJCPFCODIGO, CNPJCPF, ';
            SqlDtSCadClientes.CommandText:=SqlDtSCadClientes.CommandText+'DATANASCIMENTO, INSCRICAOESTADUAL, INSCRICAOMUNICIPALPRODUTOR, ';
            SqlDtSCadClientes.CommandText:=SqlDtSCadClientes.CommandText+'EMAIL, CONTATO, TELEFONE1, TELEFONE2, CELULAR, OBSERVACOES)';
            SqlDtSCadClientes.CommandText:=SqlDtSCadClientes.CommandText+'values(:CODIGO, :SITUACAO, ';
            SqlDtSCadClientes.CommandText:=SqlDtSCadClientes.CommandText+':DATACADASTRO, :ULTIMAALTERACAO, :OPERADORCODIGO, :OPERADORNOME, ';
            SqlDtSCadClientes.CommandText:=SqlDtSCadClientes.CommandText+':NOMERAZAO, :FANTASIAAPELIDO, :CIDADECODIGO, :CIDADENOME, :ESTADO, :CEP, ';
            SqlDtSCadClientes.CommandText:=SqlDtSCadClientes.CommandText+':ENDERECO, :NUMERO, :BAIRROCODIGO, :BAIRRONOME, :COMPLEMENTO, :RG, :CNPJCPFCODIGO, ';
            SqlDtSCadClientes.CommandText:=SqlDtSCadClientes.CommandText+':CNPJCPF, :DATANASCIMENTO, :INSCRICAOESTADUAL, :INSCRICAOMUNICIPALPRODUTOR, ';
            SqlDtSCadClientes.CommandText:=SqlDtSCadClientes.CommandText+':EMAIL, :CONTATO, :TELEFONE1, :TELEFONE2, :CELULAR, :OBSERVACOES)';
            SqlDtSCadClientes.ParamByName('CODIGO').AsInteger := StrToInt(EdtCodigo.Text);
            SqlDtSCadClientes.ParamByName('SITUACAO').AsString := EdtSituacao.Text;
            SqlDtSCadClientes.ParamByName('DATACADASTRO').AsDate := StrToDate(MskDataCadastro.Text);
            SqlDtSCadClientes.ParamByName('ULTIMAALTERACAO').AsDate:= StrToDate(MskUltimaAlteracao.Text);
            SqlDtSCadClientes.ParamByName('OPERADORCODIGO').AsInteger := StrToInt(EdtOperadorCodigo.Text);
            SqlDtSCadClientes.ParamByName('OPERADORNOME').AsString := EdtOperadorNome.Text;
            SqlDtSCadClientes.ParamByName('NOMERAZAO').AsString := EdtNomeRazao.Text;
            SqlDtSCadClientes.ParamByName('FANTASIAAPELIDO').AsString := EdtFantasiaApelido.Text;
            SqlDtSCadClientes.ParamByName('CIDADECODIGO').AsInteger := StrToInt(EdtCidadeCodigo.Text);
            SqlDtSCadClientes.ParamByName('CIDADENOME').AsString := EdtCidadeNome.Text;
            SqlDtSCadClientes.ParamByName('ESTADO').AsString := EdtEstado.Text;
            SqlDtSCadClientes.ParamByName('CEP').AsString := MskCep.Text;
            SqlDtSCadClientes.ParamByName('ENDERECO').AsString := EdtEndereco.Text;
            SqlDtSCadClientes.ParamByName('NUMERO').AsString := EdtNumero.Text;
            SqlDtSCadClientes.ParamByName('BAIRROCODIGO').AsInteger := StrToInt(EdtBairroCodigo.Text);
            SqlDtSCadClientes.ParamByName('BAIRRONOME').AsString := EdtBairroNome.Text;
            SqlDtSCadClientes.ParamByName('COMPLEMENTO').AsString := EdtComplemento.Text;
            SqlDtSCadClientes.ParamByName('RG').AsString := EdtRg.Text;
            SqlDtSCadClientes.ParamByName('CNPJCPFCODIGO').AsInteger := StrToInt(EdtCnpjCpfCodigo.Text);
            SqlDtSCadClientes.ParamByName('CNPJCPF').AsString := MskCnpjCpf.Text;
            SqlDtSCadClientes.ParamByName('DATANASCIMENTO').AsDate := StrToDate(MskDataNascimento.Text);
            SqlDtSCadClientes.ParamByName('INSCRICAOESTADUAL').AsString := EdtInscricaoEstadual.Text;
            SqlDtSCadClientes.ParamByName('INSCRICAOMUNICIPALPRODUTOR').AsString := EdtInscricaoMunicipalProdutor.Text;
            SqlDtSCadClientes.ParamByName('EMAIL').AsString := EdtEmail.Text;
            SqlDtSCadClientes.ParamByName('CONTATO').AsString := EdtContato.Text;
            SqlDtSCadClientes.ParamByName('TELEFONE1').AsString := MskTelefone1.Text;
            SqlDtSCadClientes.ParamByName('TELEFONE2').AsString := MskTelefone2.Text;
            SqlDtSCadClientes.ParamByName('CELULAR').AsString := MskCelular.Text;
            SqlDtSCadClientes.ParamByName('OBSERVACOES').AsMemo := MemoObservacoes.Lines.Text;
            SqlDtSCadClientes.ExecSQL;
            FrmPrincipal.ConexaoBd.Commit(Transacao);
          except
              on E : Exception do
                  begin
                      ShowMessage('Ocorreu um erro na tentativa de inclusão do registro: ' + E.Message);
                      FrmPrincipal.ConexaoBd.Rollback(Transacao);
                  end;
          end;
                  //Desabilita os EDITS, MASCARAS, MEMOS E LIMPA todos os EDITS após a gravacao
                  DesabilitarEdit;
                  DesabilitarMascara;
                  DesabilitarMemo;
                  LimpaCampos;

                  //Desabilita dos os botoes do form
                  BtnPesquisar.Enabled := true;
                  BtnIncluir.Enabled := true;
                  BtnSair.Enabled := true;
                  BtnAlterar.Enabled:=false;
                  BtnGravar.Enabled:=false;
                  BtnCancelar.Enabled:=false;
        end;
      if status = 'E' then
        begin
          try
            Transacao.TransactionID := 1;
            Transacao.IsolationLevel := xilREPEATABLEREAD;
            FrmPrincipal.ConexaoBd.StartTransaction(Transacao);
            SqlDtSCadClientes.Close;
            SqlDtSCadClientes.CommandType := ctQuery;
            SqlDtSCadClientes.CommandText:='UPDATE CADCLIENTES SET ';
            SqlDtSCadClientes.CommandText:=SqlDtSCadClientes.CommandText+'CODIGO=:CODIGO, SITUACAO=:SITUACAO, DATACADASTRO=:DATACADASTRO, ULTIMAALTERACAO=:ULTIMAALTERACAO, ';
            SqlDtSCadClientes.CommandText:=SqlDtSCadClientes.CommandText+'OPERADORCODIGO=:OPERADORCODIGO, OPERADORNOME=:OPERADORNOME, NOMERAZAO=:NOMERAZAO, FANTASIAAPELIDO=:FANTASIAAPELIDO, ';
            SqlDtSCadClientes.CommandText:=SqlDtSCadClientes.CommandText+'CIDADECODIGO=:CIDADECODIGO, CIDADENOME=:CIDADENOME, ESTADO=:ESTADO, CEP=:CEP, ENDERECO=:ENDERECO, NUMERO=:NUMERO, ';
            SqlDtSCadClientes.CommandText:=SqlDtSCadClientes.CommandText+'BAIRROCODIGO=:BAIRROCODIGO, BAIRRONOME=:BAIRRONOME, COMPLEMENTO=:COMPLEMENTO, RG=:RG, CNPJCPFCODIGO=:CNPJCPFCODIGO, CNPJCPF=:CNPJCPF, ';
            SqlDtSCadClientes.CommandText:=SqlDtSCadClientes.CommandText+'DATANASCIMENTO=:DATANASCIMENTO, INSCRICAOESTADUAL=:INSCRICAOESTADUAL, INSCRICAOMUNICIPALPRODUTOR=:INSCRICAOMUNICIPALPRODUTOR, ';
            SqlDtSCadClientes.CommandText:=SqlDtSCadClientes.CommandText+'EMAIL=:EMAIL, CONTATO=:CONTATO, TELEFONE1=:TELEFONE1, TELEFONE2=:TELEFONE2, CELULAR=:CELULAR, OBSERVACOES=:OBSERVACOES ';
            SqlDtSCadClientes.CommandText:=SqlDtSCadClientes.CommandText+'Where CODIGO=:CODIGO';
            SqlDtSCadClientes.ParamByName('CODIGO').AsInteger := StrToInt(EdtCodigo.Text);
            SqlDtSCadClientes.ParamByName('SITUACAO').AsString := EdtSituacao.Text;
            SqlDtSCadClientes.ParamByName('DATACADASTRO').AsDate := StrToDate(MskDataCadastro.Text);
            SqlDtSCadClientes.ParamByName('ULTIMAALTERACAO').AsDate:= StrToDate(MskUltimaAlteracao.Text);
            SqlDtSCadClientes.ParamByName('OPERADORCODIGO').AsInteger := StrToInt(EdtOperadorCodigo.Text);
            SqlDtSCadClientes.ParamByName('OPERADORNOME').AsString := EdtOperadorNome.Text;
            SqlDtSCadClientes.ParamByName('NOMERAZAO').AsString := EdtNomeRazao.Text;
            SqlDtSCadClientes.ParamByName('FANTASIAAPELIDO').AsString := EdtFantasiaApelido.Text;
            SqlDtSCadClientes.ParamByName('CIDADECODIGO').AsInteger := StrToInt(EdtCidadeCodigo.Text);
            SqlDtSCadClientes.ParamByName('CIDADENOME').AsString := EdtCidadeNome.Text;
            SqlDtSCadClientes.ParamByName('ESTADO').AsString := EdtEstado.Text;
            SqlDtSCadClientes.ParamByName('CEP').AsString := MskCep.Text;
            SqlDtSCadClientes.ParamByName('ENDERECO').AsString := EdtEndereco.Text;
            SqlDtSCadClientes.ParamByName('NUMERO').AsString := EdtNumero.Text;
            SqlDtSCadClientes.ParamByName('BAIRROCODIGO').AsInteger := StrToInt(EdtBairroCodigo.Text);
            SqlDtSCadClientes.ParamByName('BAIRRONOME').AsString := EdtBairroNome.Text;
            SqlDtSCadClientes.ParamByName('COMPLEMENTO').AsString := EdtComplemento.Text;
            SqlDtSCadClientes.ParamByName('RG').AsString := EdtRg.Text;
            SqlDtSCadClientes.ParamByName('CNPJCPFCODIGO').AsInteger := StrToInt(EdtCnpjCpfCodigo.Text);
            SqlDtSCadClientes.ParamByName('CNPJCPF').AsString := MskCnpjCpf.Text;
            SqlDtSCadClientes.ParamByName('DATANASCIMENTO').AsDate := StrToDate(MskDataNascimento.Text);
            SqlDtSCadClientes.ParamByName('INSCRICAOESTADUAL').AsString := EdtInscricaoEstadual.Text;
            SqlDtSCadClientes.ParamByName('INSCRICAOMUNICIPALPRODUTOR').AsString := EdtInscricaoMunicipalProdutor.Text;
            SqlDtSCadClientes.ParamByName('EMAIL').AsString := EdtEmail.Text;
            SqlDtSCadClientes.ParamByName('CONTATO').AsString := EdtContato.Text;
            SqlDtSCadClientes.ParamByName('TELEFONE1').AsString := MskTelefone1.Text;
            SqlDtSCadClientes.ParamByName('TELEFONE2').AsString := MskTelefone2.Text;
            SqlDtSCadClientes.ParamByName('CELULAR').AsString := MskCelular.Text;
            SqlDtSCadClientes.ParamByName('OBSERVACOES').AsMemo := MemoObservacoes.Lines.Text;
            SqlDtSCadClientes.ExecSQL;
            FrmPrincipal.ConexaoBd.Commit(Transacao);
          except
              on E : Exception do
                  begin
                      ShowMessage('Ocorreu um erro na tentativa de inclusão do registro: ' + E.Message);
                      FrmPrincipal.ConexaoBd.Rollback(Transacao);
                  end;
          end;
                  //Desabilita os EDITS, MASCARAS, MEMOS E LIMPA todos os EDITS após a gravacao
                  DesabilitarEdit;
                  DesabilitarMascara;
                  DesabilitarMemo;
                  LimpaCampos;

                  //Desabilita dos os botoes do form
                  BtnPesquisar.Enabled := true;
                  BtnIncluir.Enabled := true;
                  BtnSair.Enabled := true;
                  BtnAlterar.Enabled:=false;
                  BtnGravar.Enabled:=false;
                  BtnCancelar.Enabled:=false;
        end;
end;
GOSTEI 0
Bruno Henrique

Bruno Henrique

21/08/2015

Corrigindo lá em cima,
o problema está na hora de gravar
o problema está depois que gravo um novo registro ou salvo as alterações, pois não mostra no dbgrid só quando fecho totalmente todos os form voltando para o código e aperto run novamente.
GOSTEI 0
Alexsandro

Alexsandro

21/08/2015

Bruno Henrique não sei se vai ajudar mais que tal fechar a tabela e abrir? tipo 
SqlDtSCadClientes.close;
SqlDtSCadClientes.open;
GOSTEI 0
Bruno Henrique

Bruno Henrique

21/08/2015

Alexssandro, boa tarde!!!


Já tentei, mais sem sucesso!!!Já estou ficando doido aqui, não sei mais o que fazer!!!

Alguma sugestão?
GOSTEI 0
Bruno Henrique

Bruno Henrique

21/08/2015

Alguém sugere alguma solução!!!
GOSTEI 0
Alexsandro

Alexsandro

21/08/2015

Olha Bruno então eu faria assim fecharia o banco de dados:
ConexaoSeuBanco.conected := false;
SqlDtSCadClientes.close;
ConexaoSeuBanco.conected := true;
SqlDtSCadClientes.open;
GOSTEI 0
Alexsandro

Alexsandro

21/08/2015

Olha Bruno então eu faria assim fecharia o banco de dados:
ConexaoSeuBanco.conected := false;
SqlDtSCadClientes.close;
ConexaoSeuBanco.conected := true;
SqlDtSCadClientes.open;


opa desculpa o correto seria assim:

SqlDtSCadClientes.close;
ConexaoSeuBanco.conected := false;
ConexaoSeuBanco.conected := true;
SqlDtSCadClientes.open;
GOSTEI 0
Bruno Henrique

Bruno Henrique

21/08/2015

Alexsandro, boa noite!!!

Aonde eu coloco o código? Em algum evento? Ou em algum botão?
GOSTEI 0
Alexsandro

Alexsandro

21/08/2015

procedure TFrmCadClientes.BtnGravarClick(Sender: TObject);
begin
      if status = 'N' then
        begin
          try
            Transacao.TransactionID := 1;
            Transacao.IsolationLevel := xilREPEATABLEREAD;
            FrmPrincipal.ConexaoBd.StartTransaction(Transacao);
            SqlDtSCadClientes.Close;
            SqlDtSCadClientes.CommandType := ctQuery;
            SqlDtSCadClientes.CommandText:='insert into CADCLIENTES(CODIGO, SITUACAO, DATACADASTRO, ULTIMAALTERACAO, ';
            SqlDtSCadClientes.CommandText:=SqlDtSCadClientes.CommandText+'OPERADORCODIGO, OPERADORNOME, NOMERAZAO, FANTASIAAPELIDO, ';
            SqlDtSCadClientes.CommandText:=SqlDtSCadClientes.CommandText+'CIDADECODIGO, CIDADENOME, ESTADO, CEP, ENDERECO, NUMERO, ';
            SqlDtSCadClientes.CommandText:=SqlDtSCadClientes.CommandText+'BAIRROCODIGO, BAIRRONOME, COMPLEMENTO, RG, CNPJCPFCODIGO, CNPJCPF, ';
            SqlDtSCadClientes.CommandText:=SqlDtSCadClientes.CommandText+'DATANASCIMENTO, INSCRICAOESTADUAL, INSCRICAOMUNICIPALPRODUTOR, ';
            SqlDtSCadClientes.CommandText:=SqlDtSCadClientes.CommandText+'EMAIL, CONTATO, TELEFONE1, TELEFONE2, CELULAR, OBSERVACOES)';
            SqlDtSCadClientes.CommandText:=SqlDtSCadClientes.CommandText+'values(:CODIGO, :SITUACAO, ';
            SqlDtSCadClientes.CommandText:=SqlDtSCadClientes.CommandText+':DATACADASTRO, :ULTIMAALTERACAO, :OPERADORCODIGO, :OPERADORNOME, ';
            SqlDtSCadClientes.CommandText:=SqlDtSCadClientes.CommandText+':NOMERAZAO, :FANTASIAAPELIDO, :CIDADECODIGO, :CIDADENOME, :ESTADO, :CEP, ';
            SqlDtSCadClientes.CommandText:=SqlDtSCadClientes.CommandText+':ENDERECO, :NUMERO, :BAIRROCODIGO, :BAIRRONOME, :COMPLEMENTO, :RG, :CNPJCPFCODIGO, ';
            SqlDtSCadClientes.CommandText:=SqlDtSCadClientes.CommandText+':CNPJCPF, :DATANASCIMENTO, :INSCRICAOESTADUAL, :INSCRICAOMUNICIPALPRODUTOR, ';
            SqlDtSCadClientes.CommandText:=SqlDtSCadClientes.CommandText+':EMAIL, :CONTATO, :TELEFONE1, :TELEFONE2, :CELULAR, :OBSERVACOES)';
            SqlDtSCadClientes.ParamByName('CODIGO').AsInteger := StrToInt(EdtCodigo.Text);
            SqlDtSCadClientes.ParamByName('SITUACAO').AsString := EdtSituacao.Text;
            SqlDtSCadClientes.ParamByName('DATACADASTRO').AsDate := StrToDate(MskDataCadastro.Text);
            SqlDtSCadClientes.ParamByName('ULTIMAALTERACAO').AsDate:= StrToDate(MskUltimaAlteracao.Text);
            SqlDtSCadClientes.ParamByName('OPERADORCODIGO').AsInteger := StrToInt(EdtOperadorCodigo.Text);
            SqlDtSCadClientes.ParamByName('OPERADORNOME').AsString := EdtOperadorNome.Text;
            SqlDtSCadClientes.ParamByName('NOMERAZAO').AsString := EdtNomeRazao.Text;
            SqlDtSCadClientes.ParamByName('FANTASIAAPELIDO').AsString := EdtFantasiaApelido.Text;
            SqlDtSCadClientes.ParamByName('CIDADECODIGO').AsInteger := StrToInt(EdtCidadeCodigo.Text);
            SqlDtSCadClientes.ParamByName('CIDADENOME').AsString := EdtCidadeNome.Text;
            SqlDtSCadClientes.ParamByName('ESTADO').AsString := EdtEstado.Text;
            SqlDtSCadClientes.ParamByName('CEP').AsString := MskCep.Text;
            SqlDtSCadClientes.ParamByName('ENDERECO').AsString := EdtEndereco.Text;
            SqlDtSCadClientes.ParamByName('NUMERO').AsString := EdtNumero.Text;
            SqlDtSCadClientes.ParamByName('BAIRROCODIGO').AsInteger := StrToInt(EdtBairroCodigo.Text);
            SqlDtSCadClientes.ParamByName('BAIRRONOME').AsString := EdtBairroNome.Text;
            SqlDtSCadClientes.ParamByName('COMPLEMENTO').AsString := EdtComplemento.Text;
            SqlDtSCadClientes.ParamByName('RG').AsString := EdtRg.Text;
            SqlDtSCadClientes.ParamByName('CNPJCPFCODIGO').AsInteger := StrToInt(EdtCnpjCpfCodigo.Text);
            SqlDtSCadClientes.ParamByName('CNPJCPF').AsString := MskCnpjCpf.Text;
            SqlDtSCadClientes.ParamByName('DATANASCIMENTO').AsDate := StrToDate(MskDataNascimento.Text);
            SqlDtSCadClientes.ParamByName('INSCRICAOESTADUAL').AsString := EdtInscricaoEstadual.Text;
            SqlDtSCadClientes.ParamByName('INSCRICAOMUNICIPALPRODUTOR').AsString := EdtInscricaoMunicipalProdutor.Text;
            SqlDtSCadClientes.ParamByName('EMAIL').AsString := EdtEmail.Text;
            SqlDtSCadClientes.ParamByName('CONTATO').AsString := EdtContato.Text;
            SqlDtSCadClientes.ParamByName('TELEFONE1').AsString := MskTelefone1.Text;
            SqlDtSCadClientes.ParamByName('TELEFONE2').AsString := MskTelefone2.Text;
            SqlDtSCadClientes.ParamByName('CELULAR').AsString := MskCelular.Text;
            SqlDtSCadClientes.ParamByName('OBSERVACOES').AsMemo := MemoObservacoes.Lines.Text;
            SqlDtSCadClientes.ExecSQL;
            FrmPrincipal.ConexaoBd.Commit(Transacao);
SqlDtSCadClientes.close;
FrmPrincipal.Conexao.Conected := false;
FrmPrincipal.Conexao.Conected := true;
SqlDtSCadClientes.open;


          except
              on E : Exception do
                  begin
                      ShowMessage('Ocorreu um erro na tentativa de inclusão do registro: ' + E.Message);
                      FrmPrincipal.ConexaoBd.Rollback(Transacao);
                  end;
          end;
                  //Desabilita os EDITS, MASCARAS, MEMOS E LIMPA todos os EDITS após a gravacao
                  DesabilitarEdit;
                  DesabilitarMascara;
                  DesabilitarMemo;
                  LimpaCampos;
 
                  //Desabilita dos os botoes do form
                  BtnPesquisar.Enabled := true;
                  BtnIncluir.Enabled := true;
                  BtnSair.Enabled := true;
                  BtnAlterar.Enabled:=false;
                  BtnGravar.Enabled:=false;
                  BtnCancelar.Enabled:=false;
        end;
      if status = 'E' then
        begin
          try
            Transacao.TransactionID := 1;
            Transacao.IsolationLevel := xilREPEATABLEREAD;
            FrmPrincipal.ConexaoBd.StartTransaction(Transacao);
            SqlDtSCadClientes.Close;
            SqlDtSCadClientes.CommandType := ctQuery;
            SqlDtSCadClientes.CommandText:='UPDATE CADCLIENTES SET ';
            SqlDtSCadClientes.CommandText:=SqlDtSCadClientes.CommandText+'CODIGO=:CODIGO, SITUACAO=:SITUACAO, DATACADASTRO=:DATACADASTRO, ULTIMAALTERACAO=:ULTIMAALTERACAO, ';
            SqlDtSCadClientes.CommandText:=SqlDtSCadClientes.CommandText+'OPERADORCODIGO=:OPERADORCODIGO, OPERADORNOME=:OPERADORNOME, NOMERAZAO=:NOMERAZAO, FANTASIAAPELIDO=:FANTASIAAPELIDO, ';
            SqlDtSCadClientes.CommandText:=SqlDtSCadClientes.CommandText+'CIDADECODIGO=:CIDADECODIGO, CIDADENOME=:CIDADENOME, ESTADO=:ESTADO, CEP=:CEP, ENDERECO=:ENDERECO, NUMERO=:NUMERO, ';
            SqlDtSCadClientes.CommandText:=SqlDtSCadClientes.CommandText+'BAIRROCODIGO=:BAIRROCODIGO, BAIRRONOME=:BAIRRONOME, COMPLEMENTO=:COMPLEMENTO, RG=:RG, CNPJCPFCODIGO=:CNPJCPFCODIGO, CNPJCPF=:CNPJCPF, ';
            SqlDtSCadClientes.CommandText:=SqlDtSCadClientes.CommandText+'DATANASCIMENTO=:DATANASCIMENTO, INSCRICAOESTADUAL=:INSCRICAOESTADUAL, INSCRICAOMUNICIPALPRODUTOR=:INSCRICAOMUNICIPALPRODUTOR, ';
            SqlDtSCadClientes.CommandText:=SqlDtSCadClientes.CommandText+'EMAIL=:EMAIL, CONTATO=:CONTATO, TELEFONE1=:TELEFONE1, TELEFONE2=:TELEFONE2, CELULAR=:CELULAR, OBSERVACOES=:OBSERVACOES ';
            SqlDtSCadClientes.CommandText:=SqlDtSCadClientes.CommandText+'Where CODIGO=:CODIGO';
            SqlDtSCadClientes.ParamByName('CODIGO').AsInteger := StrToInt(EdtCodigo.Text);
            SqlDtSCadClientes.ParamByName('SITUACAO').AsString := EdtSituacao.Text;
            SqlDtSCadClientes.ParamByName('DATACADASTRO').AsDate := StrToDate(MskDataCadastro.Text);
            SqlDtSCadClientes.ParamByName('ULTIMAALTERACAO').AsDate:= StrToDate(MskUltimaAlteracao.Text);
            SqlDtSCadClientes.ParamByName('OPERADORCODIGO').AsInteger := StrToInt(EdtOperadorCodigo.Text);
            SqlDtSCadClientes.ParamByName('OPERADORNOME').AsString := EdtOperadorNome.Text;
            SqlDtSCadClientes.ParamByName('NOMERAZAO').AsString := EdtNomeRazao.Text;
            SqlDtSCadClientes.ParamByName('FANTASIAAPELIDO').AsString := EdtFantasiaApelido.Text;
            SqlDtSCadClientes.ParamByName('CIDADECODIGO').AsInteger := StrToInt(EdtCidadeCodigo.Text);
            SqlDtSCadClientes.ParamByName('CIDADENOME').AsString := EdtCidadeNome.Text;
            SqlDtSCadClientes.ParamByName('ESTADO').AsString := EdtEstado.Text;
            SqlDtSCadClientes.ParamByName('CEP').AsString := MskCep.Text;
            SqlDtSCadClientes.ParamByName('ENDERECO').AsString := EdtEndereco.Text;
            SqlDtSCadClientes.ParamByName('NUMERO').AsString := EdtNumero.Text;
            SqlDtSCadClientes.ParamByName('BAIRROCODIGO').AsInteger := StrToInt(EdtBairroCodigo.Text);
            SqlDtSCadClientes.ParamByName('BAIRRONOME').AsString := EdtBairroNome.Text;
            SqlDtSCadClientes.ParamByName('COMPLEMENTO').AsString := EdtComplemento.Text;
            SqlDtSCadClientes.ParamByName('RG').AsString := EdtRg.Text;
            SqlDtSCadClientes.ParamByName('CNPJCPFCODIGO').AsInteger := StrToInt(EdtCnpjCpfCodigo.Text);
            SqlDtSCadClientes.ParamByName('CNPJCPF').AsString := MskCnpjCpf.Text;
            SqlDtSCadClientes.ParamByName('DATANASCIMENTO').AsDate := StrToDate(MskDataNascimento.Text);
            SqlDtSCadClientes.ParamByName('INSCRICAOESTADUAL').AsString := EdtInscricaoEstadual.Text;
            SqlDtSCadClientes.ParamByName('INSCRICAOMUNICIPALPRODUTOR').AsString := EdtInscricaoMunicipalProdutor.Text;
            SqlDtSCadClientes.ParamByName('EMAIL').AsString := EdtEmail.Text;
            SqlDtSCadClientes.ParamByName('CONTATO').AsString := EdtContato.Text;
            SqlDtSCadClientes.ParamByName('TELEFONE1').AsString := MskTelefone1.Text;
            SqlDtSCadClientes.ParamByName('TELEFONE2').AsString := MskTelefone2.Text;
            SqlDtSCadClientes.ParamByName('CELULAR').AsString := MskCelular.Text;
            SqlDtSCadClientes.ParamByName('OBSERVACOES').AsMemo := MemoObservacoes.Lines.Text;
            SqlDtSCadClientes.ExecSQL;
            FrmPrincipal.ConexaoBd.Commit(Transacao);
SqlDtSCadClientes.close;
FrmPrincipal.Conexao.Conected := false;
FrmPrincipal.Conexao.Conected := true;
SqlDtSCadClientes.open;
          except
              on E : Exception do
                  begin
                      ShowMessage('Ocorreu um erro na tentativa de inclusão do registro: ' + E.Message);
                      FrmPrincipal.ConexaoBd.Rollback(Transacao);
                  end;
          end;
                  //Desabilita os EDITS, MASCARAS, MEMOS E LIMPA todos os EDITS após a gravacao
                  DesabilitarEdit;
                  DesabilitarMascara;
                  DesabilitarMemo;
                  LimpaCampos;
 
                  //Desabilita dos os botoes do form
                  BtnPesquisar.Enabled := true;
                  BtnIncluir.Enabled := true;
                  BtnSair.Enabled := true;
                  BtnAlterar.Enabled:=false;
                  BtnGravar.Enabled:=false;
                  BtnCancelar.Enabled:=false;
        end;
end;


Logo após FrmPrincipal.ConexaoBd.Commit(Transacao);
conforme seu código.
GOSTEI 0
Bruno Henrique

Bruno Henrique

21/08/2015

Alexsandro, bom dia!!!

Infelizmente não deu certo!!!


se eu fizer dessa forma me retorna
cursor not returned from query
, como proceder????
GOSTEI 0
Bruno Henrique

Bruno Henrique

21/08/2015

RESOLVIDO
GOSTEI 0
POSTAR