procedure TfrmSale.ProccessMissData;
begin
with frmDb do begin
tbBack.Active:= False;
tbBack.DatabaseName:= 'Pos';
tbBack.TableName := 'SaleMaster.db';
qTemp.Databasename:= dbdir;
qTemp.Close;
qTemp.sql.Clear;
qTemp.sql.Add('SELECT * FROM "SaleMaster.db"');
qTemp.Open;
if not qTemp.EOF then
tbBack.BatchMove(qTemp, batAppend);
tbBack.Active:= False;
tbBack.DatabaseName:= 'Pos';
tbBack.TableName := 'SaleDetail.DB';
qTemp.Close;
qTemp.sql.Clear;
qTemp.sql.Add('SELECT * FROM "SaleDetail.db"');
qTemp.Open;
if not qTemp.EOF then
tbBack.BatchMove(qTemp, batAppend);
---> qTemp.Close;
qTemp.sql.Clear;
qTemp.sql.Add('DELETE FROM "SaleMaster.db"');
qTemp.Open;
qTemp.Close;
qTemp.sql.Clear;
qTemp.sql.Add('DELETE FROM "SaleDetail.db"');
qTemp.Open;
end;
end;
윈98,델3,파라독스환경입니다. F:wp3000data란 디렉토리를 Netdir로 잡아놓고
소수의 인원이 db를 공유해서 쓰려고 합니다. 만약 네트워크가 끊겼거나 하면
임시db에 판매데이타를 저장합니다. 그리고 네트워크가 연결된 후
전송버튼을 누르면 위에서처럼
BatchMove를 이용해서 서버가 되는 pc의 db에 데이타를 저장하는데...
화살표된 부분에서 제목과 같은 에러메세지가 떨어집니다.
왜 이런 메세지가 나오는지 알고 싶습니다.