Fórum Exportar dados do DBGrid para tabela Paradox #343658
25/07/2007
0
Gostaria de pegar todos os dados do DBGrid e jogar em uma tabela.
Ex:
Campos: Nome, Telefone, End e etc.
SDS.
[color=green:6f844ca3f4]Post editado. Favor não postar em maiúsculas.[/color:6f844ca3f4]
Marcelovms
Curtir tópico
+ 0Posts
25/07/2007
Adriano Santos
Gostei + 0
26/07/2007
Marcelovms
Quero pegar todos os dados do Dbgrid e Jogar no table.
Gostei + 0
26/07/2007
Adriano Santos
Se já está conseguindo carregar os registros em um Table então está mais fácil do que imagina. Porém não sei qual o banco de dados que está usando.
Deixa eu tomar como base o Firebird ok?
Supondo que você já tenha criado as conexões típicas do DBExpress com o banco onde irá gravar os dados e que já tenha adicionado um TClientDataSet em tela.
Faça algo assim no seu Table.
procedure TForm1.ButtonClick(Sender: TObject);
begin
ClientDataSet1.Open;
while not Table.EOF do
begin
ClientDataSet1.Append;
ClientDataSet1.FieldbyName(´CAMPO1´).AsString := Table.FieldbyName(´CAMPO1´).AsString;
ClientDataSet1.FieldbyName(´CAMPO2´).AsString := Table.FieldbyName(´CAMPO2´).AsString;
ClientDataSet1.FieldbyName(´CAMPO3´).AsString := Table.FieldbyName(´CAMPO3´).AsString;
...
ClientDataSet1.Post;
Table.Next;
end;
ClientDataSet1.ApplyUpdates(0);
end;Gostei + 0
26/07/2007
Marcelovms
Se já está conseguindo carregar os registros em um Table então está mais fácil do que imagina. Porém não sei qual o banco de dados que está usando.
Deixa eu tomar como base o Firebird ok?
Supondo que você já tenha criado as conexões típicas do DBExpress com o banco onde irá gravar os dados e que já tenha adicionado um TClientDataSet em tela.
Faça algo assim no seu Table.
procedure TForm1.ButtonClick(Sender: TObject);
begin
ClientDataSet1.Open;
while not Table.EOF do
begin
ClientDataSet1.Append;
ClientDataSet1.FieldbyName(´CAMPO1´).AsString := Table.FieldbyName(´CAMPO1´).AsString;
ClientDataSet1.FieldbyName(´CAMPO2´).AsString := Table.FieldbyName(´CAMPO2´).AsString;
ClientDataSet1.FieldbyName(´CAMPO3´).AsString := Table.FieldbyName(´CAMPO3´).AsString;
...
ClientDataSet1.Post;
Table.Next;
end;
ClientDataSet1.ApplyUpdates(0);
end;Uso Paradox.
Ainda não consegui jogar os dados no Table.
Criei uma tabela com os mesmos campos do DBGrid, porém não consigo exportar os dados do DbGrid para a tabela.
Segue os passos que estou fazendo:
- Importo uma planilha do Excel para um DBGrid(utilizo opendialogs)
- Tenho uma tabela com os mesmos campos do DBGrid.
- Uso Paradox.
Gostaria de pegar os dados que estão no grid e jogar em uma tabela do paradox.
Alguem pode me ajudar???
Sds.
Gostei + 0
27/07/2007
Marcelovms
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)