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;
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
Curtir tópico
+ 0
Responder
Posts
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!!
Isso vai resolver.
No Final do Comando coloque
NomedaQuery.Close;
NomedaQuery.Open;
Automaticamente ele irá atualizar o DBGrid!!
Responder
Clique aqui para fazer login e interagir na Comunidade :)