DOCUMENT:Q128078  12-FEB-2000  [foxpro]
TITLE   :How to Trap for "Not a Database" Error in a Corrupt .DBC
PRODUCT :Microsoft FoxPro
PROD/VER:WINDOWS:3.0
OPER/SYS:
KEYWORDS:kbcode

======================================================================
-------------------------------------------------------------------------------
The information in this article applies to:

 - Microsoft Visual FoxPro for Windows, version 3.0 
-------------------------------------------------------------------------------

SUMMARY
=======

If a Database Container (.DBC file) becomes corrupted or damaged, it may
generate error number 1552: File "<filename>" is not a database. This
article shows by example how to trap for this error by using an ON ERROR
routine.

MORE INFORMATION
================

To demonstrate, perform the following steps:

1. Create a new database and call it DATA1.DBC

2. In the Database Designer, right-click and choose New Table. Create a new
   table with the following fields:

      Field  Type       Width
      -----------------------

      Test1  character  10
      Test2  character  10

   When prompted to Input Data Records Now, choose Yes and add data to the table.

3. Issue the following commands in the Command Window:

         CLOSE ALL
         USE c:\vfp\data1.dbc &&actual path to your .DBC file may be different
         BROWSE

CAUTION: If you are using an existing file instead of the example file created
here, please back it up before proceeding to the next step.

1. Change the PARENTID in the first record to 0, then Save and Close the table.

2. Type the following into a program and run it:

         ON ERROR DO errhand         && To trap, and send to the error
                                     && handler procedure
         OPEN DATABASE SYS(2004)+'data1.dbc'  && An existing corrupt DBC file
         ON ERROR                       && To reset ON ERROR to default

         PROCEDURE errhand              && The error handler
         IF ERROR()=1552                  && Check which error occurred
           WAIT WINDOW 'Error #: '+STR(ERROR())+'  Message: '+MESSAGE()
         ENDIF

The error message "Error #1552 Message:File C:\VFP\DATA1.DBC is not a database."
should be displayed in a Wait window.

Additional query words: trap error VFoxWin

======================================================================
Keywords          : kbcode 
Technology        : kbVFPsearch kbAudDeveloper kbVFP300
Version           : WINDOWS:3.0

=============================================================================

THE INFORMATION PROVIDED IN THE MICROSOFT KNOWLEDGE BASE IS
PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND.  MICROSOFT DISCLAIMS
ALL WARRANTIES, EITHER EXPRESS OR IMPLIED, INCLUDING THE WARRANTIES
OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.  IN NO
EVENT SHALL MICROSOFT CORPORATION OR ITS SUPPLIERS BE LIABLE FOR
ANY DAMAGES WHATSOEVER INCLUDING DIRECT, INDIRECT, INCIDENTAL,
CONSEQUENTIAL, LOSS OF BUSINESS PROFITS OR SPECIAL DAMAGES, EVEN IF
MICROSOFT CORPORATION OR ITS SUPPLIERS HAVE BEEN ADVISED OF THE
POSSIBILITY OF SUCH DAMAGES.  SOME STATES DO NOT ALLOW THE EXCLUSION
OR LIMITATION OF LIABILITY FOR CONSEQUENTIAL OR INCIDENTAL DAMAGES
SO THE FOREGOING LIMITATION MAY NOT APPLY.

Copyright Microsoft Corporation 2000.