erro ao Copiar dados de uma DB pra outra

Delphi

05/03/2013

procedure TFrmtransfere.BntTransfereClick(Sender: TObject);
begin
//

DMTransfere.ADOQuery3.Close;
DMTransfere.ADOQuery3.SQL.Clear;
DMTransfere.ADOQuery3.SQL.Add('select referencia,descricao from estoque');
if DMTransfere.ADOQuery3.FieldByName('referencia').AsString = DMTransfere.ADOQuery1.FieldByName('referencia').AsString then
DMTransfere.ADOQuery3.Open;
end;

quando clico no botao ele dar um erro
---------------------------
Transfere
---------------------------
ADOQuery3: Field 'referencia' not found.
---------------------------
OK
---------------------------
Tiago Santos

Tiago Santos

Curtidas 0

Respostas

Bruno Leandro

Bruno Leandro

05/03/2013

procedure TFrmtransfere.BntTransfereClick(Sender: TObject);
begin
//

DMTransfere.ADOQuery3.Close;
DMTransfere.ADOQuery3.SQL.Clear;
DMTransfere.ADOQuery3.SQL.Add('select referencia,descricao from estoque');
DMTransfere.ADOQuery3.Open;
if DMTransfere.ADOQuery3.FieldByName('referencia').AsString = DMTransfere.ADOQuery1.FieldByName('referencia').AsString then
//
end;

ta dando erro porque voce ainda nao havia aberto a query
GOSTEI 0
Tiago Santos

Tiago Santos

05/03/2013

O erro sumiu, so que o Db que deveria receber , mostra o select de toda a tabela, e não dá pra visualizar se ele transferiu, pois tem caso é que é um registro, 2,
GOSTEI 0
Tiago Santos

Tiago Santos

05/03/2013

O erro sumiu, so que o Db que deveria receber , mostra o select de toda a tabela, e não dá pra visualizar se ele transferiu, pois tem caso é que é um registro, 2 ou mais. Só que ta mostrando todo o select da Query
GOSTEI 0
POSTAR