Deleting a Record

Deleting a Record

I am currently building a VB application that needs to delete records in a .dbf field. The connection to the database is established through ADO by using a DSN. Currently, when I attempt to delete a record (using SQL’s delete), the record is simply marked to be deleted, but is not deleted.

How do I delete the record?

Visual FoxPro has a command called PACK that removes records marked as “deleted” from the DBF and rebuilds the indices on the table. It requires exclusive use of the table.

There are two approaches for calling this command. First, you could create a VFP COM object that has a method called Pack with a parameter of what file (with full path) to pack. You could then instantiate this object from your application and call the Pack method.

Create a project with the following program and compile it as a DLL:

 DEFINE CLASS VFPDBFUtility AS CUSTOM OLEPUBLICPROC PackLPARAMETERS tcTableFile   LOCAL llError   llError =.F.   ON ERROR llError=.T.   USE (tcTableName) EXCLUSIVE   IF llError      RETURN .F.   ENDIF   PACK   USE   ON ERROR   *-- Return .T. if no error, .F. if error occurred   RETURN !llErrorENDPROCENDDEFINE 

The other approach would be to instantiate VFP as an automation server and use the DoCmd method to run the commands. This requires that VFP is installed on the server:

 lcFile = 'C:mydbf.dbf'oVFP = CREATEOBJECT('visualfoxpro.application')oVFP.DoCmd('USE '&& lcFile &&' EXCLUSIVE')oVFP.DoCmd('PACK')oVFP.DoCmd('USE') 


Share the Post: