Alguem pode me ajudar ????

19/05/2003

1

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;


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