Fórum DbGrid não atualiza por nada!!! O que será: #529413

21/08/2015

0

Delphi

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

Responder

Posts

21/08/2015

Thiago Santana

Como está a sua consulta?
Fixa na propriedade do componente ou dinâmica?
Responder

Gostei + 0

21/08/2015

Bruno Henrique

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;
Responder

Gostei + 0

21/08/2015

Bruno Henrique

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.
Responder

Gostei + 0

21/08/2015

Alexsandro

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

Gostei + 0

21/08/2015

Bruno Henrique

Alexssandro, boa tarde!!!


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

Alguma sugestão?
Responder

Gostei + 0

21/08/2015

Bruno Henrique

Alguém sugere alguma solução!!!
Responder

Gostei + 0

21/08/2015

Alexsandro

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

Gostei + 0

21/08/2015

Alexsandro

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;
Responder

Gostei + 0

21/08/2015

Bruno Henrique

Alexsandro, boa noite!!!

Aonde eu coloco o código? Em algum evento? Ou em algum botão?
Responder

Gostei + 0

21/08/2015

Alexsandro 

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.
Responder

Gostei + 0

22/08/2015

Bruno Henrique

Alexsandro, bom dia!!!

Infelizmente não deu certo!!!


se eu fizer dessa forma me retorna
cursor not returned from query
, como proceder????
Responder

Gostei + 0

24/08/2015

Bruno Henrique

RESOLVIDO
Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar