StrataFrame Forum » StrataFrame Application Framework - V1 » Business Objects and Data Access (How do I?) » Can you ZAP or PACK a vfp free table through BO?

Can you ZAP or PACK a vfp free table through BO?

Marcel Heitlager — Mon, 01 Jun 2009 06:59:37 GMT

Hi,

I'm trying to delete all the records in a VFP free table. Doing the deleting is no problem, but I want them permanently deleted, like ZAP or PACK.
Can you do something like below but with the PACK or ZAP command? I know it's a stupid question but I'm stuck.

thanks,
Marcel

[codesnippet]
Dim LoConn As New OleDb.OleDbConnection
LoConn.ConnectionString = MicroFour.StrataFrame.Data.DataLayer.DataSources("myKey").ConnectionString
LoConn.Open()
Dim loCommand As New OleDb.OleDbCommand("SET DELETED OFF", loConn)
loCommand.ExecuteNonQuery()
[/codesnippet]

RE: Can you ZAP or PACK a vfp free table through BO?

Trent L. Taylor — Mon, 01 Jun 2009 06:59:37 GMT

You will have to open the table exclusively, but there is more. You need to create all of the commands that you wish to execute within the same session. When trying to do a PACK or a ZAP, you need to set exclusive on and then execute the pack within the same query session. Also, when dealing with VFP OLEDB, be sure to check the supported list. Also, even if you are not on the latest version of VFP in development, get the most recent VFP OLEDB provider if you run into any issues.

Here is a list of supported commands:
[url=http://msdn.microsoft.com/en-us/library/80x51c04(VS.80).aspx]http://msdn.microsoft.com/en-us/library/80x51c04(VS.80).aspx[/url]

Here is a sample of packing using OLEDB:
[codesnippet]Dim cmd As New OleDbCommand("SET EXCLUSIVE ON;PACK MyTable.dbf")

MyBo.ExecuteNonQuery(cmd);[/codesnippet]

Don't hold me to it, but I think that will work. :)

RE: Can you ZAP or PACK a vfp free table through BO?

Michel Levy — Sun, 31 May 2009 05:01:40 GMT

Hi Marcel,

Are you sure your table is open EXCLUSIVE?

RE: Can you ZAP or PACK a vfp free table through BO?

Marcel Heitlager — Sat, 30 May 2009 01:15:08 GMT

OK,

So I did some more digging and did the obvious thing after "PACK" didn't work:

[codesnippet]
LoConn.ConnectionString = MicroFour.StrataFrame.Data.DataLayer.DataSources("myKey").ConnectionString
LoConn.Open()
Dim loCommand As New OleDb.OleDbCommand("PACK myFreeTable.dbf", loConn)
loCommand.ExecuteNonQuery()
[/codesnippet]

Including the table name seems to work. So I guess to do something like ZAP I just have to delete all the records and do a PACK and put it in a myBO.Zap function.
Am I missing anything?

Thanks,

Marcel