passar dados entre tabela
Estou com uma tabela de emprestimo e tenho q passar algundados dessa tabela para a outra de devolução estou fazendo assim
begin
with dtPrincipal do
if not ConfEmprestimo.Eof then
begin
ConfEmprestimo.Open;
ConfEmprestimo.Append;
ConfEmprestimoCODDEVOL.Text := EmprestimoCODARQUIVO.Text;
ConfEmprestimoUSUARIO.Text := EmprestimoUSUARIO.Text;
ConfEmprestimoAREA.Text := EmprestimoAREA.Text;
ConfEmprestimoITEN_DOC.Text := EmprestimoITEM_DOC.Text;
ConfEmprestimoDOSSIE.Text := EmprestimoDOSSIE.Text;
ConfEmprestimoDATA.Text := EmprestimoDATA.Text;
ConfEmprestimoCOMPLEMENTO.Text := EmprestimoCOMPLEMENTO.Text;
ConfEmprestimoLOCALIZACAO.Text := EmprestimoLOCALIZACAO.Text;
ConfEmprestimoCAIXA.Text := EmprestimoCAIXA.Text;
ConfEmprestimo.Post;
ConfEmprestimo.Next;
end;
so q naum esta passando nada para a outra tabela alguem tem uma ideia ou outra farma d fazer isso estou usando o codigo no onkeypress ja usei em um monte d lugar e naum deu certo tambem
begin
with dtPrincipal do
if not ConfEmprestimo.Eof then
begin
ConfEmprestimo.Open;
ConfEmprestimo.Append;
ConfEmprestimoCODDEVOL.Text := EmprestimoCODARQUIVO.Text;
ConfEmprestimoUSUARIO.Text := EmprestimoUSUARIO.Text;
ConfEmprestimoAREA.Text := EmprestimoAREA.Text;
ConfEmprestimoITEN_DOC.Text := EmprestimoITEM_DOC.Text;
ConfEmprestimoDOSSIE.Text := EmprestimoDOSSIE.Text;
ConfEmprestimoDATA.Text := EmprestimoDATA.Text;
ConfEmprestimoCOMPLEMENTO.Text := EmprestimoCOMPLEMENTO.Text;
ConfEmprestimoLOCALIZACAO.Text := EmprestimoLOCALIZACAO.Text;
ConfEmprestimoCAIXA.Text := EmprestimoCAIXA.Text;
ConfEmprestimo.Post;
ConfEmprestimo.Next;
end;
so q naum esta passando nada para a outra tabela alguem tem uma ideia ou outra farma d fazer isso estou usando o codigo no onkeypress ja usei em um monte d lugar e naum deu certo tambem
Tchucky
Curtidas 0
Respostas
Rm
07/09/2006
Não sei se entendi mas parece que esta fazendo um loop em uma tabela e inserindo nela mesma.Quando quero passar dados de uma tabela até outra simplesmente faço um loop na original com um insert na receptora:
procedure....
begin
Tabelaoriginal.first;//não esqueça.
While not tabelaoriginal.eof do begin
tabelaquerecebe.insert
tabelaquerecebecampo1.value:=tabelaoriginalcampo1.value;
tabelaquerecebecampo2.value:=tabelaoriginalcampo2.value;
tabelaquerecebe.post;
tabelaoriginal.next;
end;
Tabelaoriginal.first
tabelaquerecebe.first
end;
No codigo para copiar os campos pode ter ifs condicionais etc.
Espero que seja de alguma valia...
procedure....
begin
Tabelaoriginal.first;//não esqueça.
While not tabelaoriginal.eof do begin
tabelaquerecebe.insert
tabelaquerecebecampo1.value:=tabelaoriginalcampo1.value;
tabelaquerecebecampo2.value:=tabelaoriginalcampo2.value;
tabelaquerecebe.post;
tabelaoriginal.next;
end;
Tabelaoriginal.first
tabelaquerecebe.first
end;
No codigo para copiar os campos pode ter ifs condicionais etc.
Espero que seja de alguma valia...
GOSTEI 0
Marco Salles
07/09/2006
Estou com uma tabela de emprestimo e tenho q passar algundados dessa tabela para a outra de devolução estou fazendo assim
Acho eu que o mais indicado é criar um trigger para isto...
GOSTEI 0
Tchucky
07/09/2006
ta amesma coisa naum passa os dados fiz igual a o q vc falo e continua na mesma q meleca
GOSTEI 0
Paullsoftware
07/09/2006
:arrow: tente assim:
:arrow: no evento AffterPost da Tabela1 tente assim:
[b:dae034d938][color=red:dae034d938]caso continue sem funcionar, diga qual banco esta usando, Componentes de conexão com o banco, se usa BDE ou não, se está apresentando algum erro, etc...[/color:dae034d938][/b:dae034d938]
[b:dae034d938]Tabela1 = Tabela que contem os dados
Tabela2 = Tabela que irá receber os dados[/b:dae034d938]
:arrow: no evento AffterPost da Tabela1 tente assim:
Tabela2.Open; Tabela2.Insert; Tabela2Campo1.Value := Tabela1Campo1.Value; Tabela2Campo2.Value := Tabela1Campo2.Value; Tabela2Campo3.Value := Tabela1Campo3.Value; Tabela2CampoN.Value := Tabela1CampoN.Value; Tabela2.Post; Tabela2.Close;
[b:dae034d938][color=red:dae034d938]caso continue sem funcionar, diga qual banco esta usando, Componentes de conexão com o banco, se usa BDE ou não, se está apresentando algum erro, etc...[/color:dae034d938][/b:dae034d938]
GOSTEI 0
Tchucky
07/09/2006
ainda naum esta passando os dados isso esta m irritando ja srrsss estou unsando BD interbase e Ibquery como componente
GOSTEI 0