Q&A

  • Error creating currsor handle(paradox)의 원인?
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에 데이타를 저장하는데...



화살표된 부분에서 제목과 같은 에러메세지가 떨어집니다.

왜 이런 메세지가 나오는지 알고 싶습니다.



0  COMMENTS