Alguem pode me ajudar ????
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;
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
Curtidas 0
Respostas
4_olho
19/05/2003
Já tentou dar um Repaint ou Refresh na grid ?
GOSTEI 0
Anibaljr77
19/05/2003
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!!
Isso vai resolver.
No Final do Comando coloque
NomedaQuery.Close;
NomedaQuery.Open;
Automaticamente ele irá atualizar o DBGrid!!
GOSTEI 0