tabela temporaria. delphi + access

Delphi

01/12/2014

Eu criei uma tabela temporária mais queria gravar uns itens dela na database, alguém me ajuda ? se quiser eu posto o código.
Herlei Rodrigues

Herlei Rodrigues

Curtidas 0

Melhor post

Ricardo

Ricardo

01/12/2014

Você faz o procedimento da mesma forma que faz com tabelas físicas usando a seguinte lógica:

tabela_fisica.fieldbyname(campo).as... := tabela_temporiacampo.value;
GOSTEI 1

Mais Respostas

Herlei Rodrigues

Herlei Rodrigues

01/12/2014

Pow cara, só você me ajuda, Tentei da seguinte forma

no botão gravar coloquei isso.

 begin
  Query1.SQL.Clear;
  Query1.SQL.Add('Select MAX(COD_VENDA) as CodigoVenda from VENDAS');
  Query1.SQL.Open;
  CodigoVenda := Query1.FieldByName('CodigoVenda').AsInteger;
  Query1.Close;

    cdsItensVenda.Append
 
   table_vendas.FieldByName('COD_VENDA').AsInteger :=
      CodigoVenda;
 
   table_vendas.FieldByName('COD_PRODUTO').AsInteger :=
      cdsTemporario.FieldByName('COD_PRODUTO').AsInteger;
 
    table_vendas.FieldByName('QTDE').AsInteger :=
      cdsTemporario.FieldByName('QTDE').AsInteger;
 
    table_vendas.FieldByName('VALOR').AsInteger :=
      cdsTemporario.FieldByName('VALOR').AsInteger;
 
    table_vendas.FieldByName('TOTAL').AsInteger :=
      cdsTemporario.FieldByName('TOTAL').AsInteger;
 
    table_vendas.Post

    cdsTemporario.Delete;
  end;
end;
GOSTEI 0
Herlei Rodrigues

Herlei Rodrigues

01/12/2014

mais essa forma minha da erro,não sei poorque :S
GOSTEI 0
Herlei Rodrigues

Herlei Rodrigues

01/12/2014

Ninguém ?
GOSTEI 0
Herlei Rodrigues

Herlei Rodrigues

01/12/2014

ADODataSet1.Append;
ADODataSet1codigo.AsInteger := cdsTemporarioCODIGO.Value;
ADODataSet1nome.AsString := cdsTemporarioDESCRICAO.Value;
ADODataSet1quantidade.AsInteger := cdsTemporarioQTDE.Value;
ADODataSet1valor.AsFloat := cdsTemporarioTOTAL.Value;
ADODataSet1.Post;

consigui, muito obrigado de novo ricardo, abraços.
GOSTEI 0
POSTAR