🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: borland.public.vdbase.data.sql
Article #469

packtable

#469
From: John Staub
Date: Thu, 03 Dec 1998 00:00
37 lines
1697 bytes
I am using the following code (OODML I hope<g>) to open a new database, get
some info from the table, do some other stuff, then delete all the records
in the table, pack it, and then press on:
---snip snip
      local oExcel, oRange,cText, q,r,i,nRow,d
      d = new database()
      d.databasename = "CERTLOCAL"
      d.active = true
      store 0 to oExcel,oRange,q,r,i,nRow
      q := new query()
      q.sql = "select * from temp"
      q.active = true
>> do some stuff with Excel here <<
>> finished so let's dump all the records from temp.dbf and clean it up<<

>> this line works      delete from temp.dbf //mark all records for removal
      d.active = false
      d.close()
>> this doesn't      d.packtable("TEMP")
      return

I've tried _app.databases[1].packtable("TEMP") and get a in use by another
error.  With the current line d.packtable("TEMP") the app doesn't stop, but
the table doesn't get packed either.  The BDE alias is set up correctly.
Any ideas??

BTW, this (temp.dbf) is a local table.  I'm trying some OODML stuff instead
of Set Directory etc.

John

--
Staub & Associates, Inc.
(850) 913-8488
http://www.staubassociates.com
Buy your books, etc. online at
http://www.staubassociates.com/bkstore.htm
Technical Details
Message-ID: <7473mr$t6t22@forums.borland.com>
Path: arc1-ca.pugleaf.net!unknown!not-for-mail

Show Full Headers
Complete Article Headers
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: ff5a1,4b4340483d0eb119,start
X-Google-Attributes: gidff5a1,public
From: "John Staub" <bmds@send_me_nothing_worldnet.att.net>
Subject: packtable
Date: 1998/12/03
Message-ID: <7473mr$t6t22@forums.borland.com>
X-Deja-AN: 418399320
Organization: Staub & Associates, Inc
X-MimeOLE: Produced By Microsoft MimeOLE V4.72.2106.4
Newsgroups: borland.public.vdbase.data.sql