Fórum salvar dados de stringgride em uma tabela #191092

28/10/2003

0

Ola pessoal.
esta é a primeira vez que utilizo o forum.
como posso carregar os dados de um stringgrid em uma tabela.


Dbk

Dbk

Responder

Posts

01/11/2004

Ricardo.vano

Não sei que componentes está usando, mas segue um exemplo:

procedure TFrmReuniao.SalvarClick(Sender: TObject); 
var 
  I :Integer; 
Begin 
  for I := 1 to StringGrid1.Rowcount do 
    Begin 
      Table1.Insert; 
      Table1.Edit; 
      Table1.FieldByName(´Codigo´).Value:=StrToInt(StringGrid1.Cells[1,I] ); 
      Table1.FieldByName(´Nome´).Value:=StringGrid1.Cells[2,I]; 
      Table1.FieldByName(´Telefone´).Value:=StringGrid1.Cells[3,I]; 
      Table1.FindNext; 
      Table1.Insert; 
    end; 
    Table1.Post; 
End;


Qualquer dúvida me avisa, ok?

Falow!


Responder

Gostei + 0

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

Aceitar