Alguem pode me ajudar ????

19/05/2003

0

o codigo abaixo grava um novo cliente, na tabela de CadCliente, estou utilizando bd, ciente/servidor microsoft 2000, o problema que estou tendo é o seguinte, quando confimo a gravacao ele grava mas nao atualiza a grid conectada do ds do banco, o que devo fazer ?
agurdo
Edmar

procedure TfrmNovoCliente.btnConfirmarClick(Sender: TObject);
var
CodCliente, NomeCliente : String ;
SQL : String ; // comando montado
begin
CodCliente := Trim(editCodigo.Text) ; // limpeza do edit codigo
NomeCliente := Trim(editNome.Text) ; // limpeza do edit nome
if ( Length(CodCliente) = 0 and Length(NomeCliente) ) then
Exit ;

SQL := ´INSERT INTO CadCliente (Cod_cli,Nome_cli) VALUES (:cod,:nome)´ ;

with dmGeral.ADOCommandCliente do
begin
commandText := SQL ;
Parameters.ParamByName(´cod´).Value := CodCliente ;
Parameters.ParamByName(´nome´).Value := NomeCliente ;
end;
try
dmGeral.ADOCommandCliente.Execute ;
editCodigo.SetFocus ;
editCodigo.SelectAll ;
except
on e:Exception do begin
Application.MessageBox(PChar(e.Message), ´Erro´, MB_OK) ;
end; // on
end; // try
end;


Martelato

Martelato

Responder

Posts

19/05/2003

4_olho

Já tentou dar um Repaint ou Refresh na grid ?


Responder

19/05/2003

Anibaljr77

Feche e Abra o ADOQuery que está ligado ao DataSource do DBGrid.
Isso vai resolver.

No Final do Comando coloque
NomedaQuery.Close;
NomedaQuery.Open;

Automaticamente ele irá atualizar o DBGrid!!


Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

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

Aceitar