HMGforum.com

#include <minigui.ch>

Function Main
SET DELETED ON

define window winMain ;
at 0, 0 ;
width 640 height 400 main ;
title "Temporary Table" ;
on init CreateTemp()

DEFINE BROWSE brwTemp
COL 0
ROW 0
WIDTH 600
HEIGHT 340
HEADERS {"Item Code", "Item Description", "Rate"}
WIDTHS {125, 300, 100}
WORKAREA curItem
FIELDS {"curitem->itemcd", "curitem->itemnm", "curItem->rate"}
ALLOWEDIT .T.
INPLACEEDIT .T.
ALLOWAPPEND .T.
ALLOWDELETE .T.
LOCK .T.
JUSTIFY {0, 0, 1}
END BROWSE

@ 350, 0 label lblShow value "Alt-A: Add, Dbl-Click: Modify, Del: Delete" AUTOSIZE

end window

winMain.center
winMain.activate

Return



function CreateTemp()
local aDbf := {}
aadd(adbf, {"itemcd", "c", 10, 0})
aadd(adbf, {"itemnm", "c", 40, 0})
aadd(adbf, {"rate", "n", 8, 2})

if !hb_dbcreatetemp("curItem", adbf)
msgbox("Cannot create temporary table: Item")
RELEASE WINDOW ALL
return nil
endif

if select("curItem") = 0
use curItem new
endif
select curItem
append blank
curItem->itemcd := "CD"
curItem->itemnm := "Compact Disck"
curItem->rate := 10.00
unlock

return nil

mol wrote:Hi Sudip!
Fine project. I've never wrote any application with SQL, but, I think that will be future.

What about refreshing table after changing/adding new record?
Whether it is necessary to call GET_DATA function after every change?
What about refreshing in multiuser environment?
Recurring data downloads after defined period?

Roberto Lopez wrote:...
I don't knew that function.

I'll try to research a little...

2009-02-16 17:44 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/include/dbinfo.ch
+ added DBI_ISTEMPORARY

* harbour/include/hbapirdd.h
* harbour/source/rdd/wafunc.c
+ added hb_rddCreateTableTemp() C function to create temporary
table which are automatically deleted on close. All indexes and
memo files for such tables are also in temporary files and
automatically deleted on close. Please remember that Harbour uses
OS functions to create temporary files so it's installation dependent
how much disk space is available for them. Some RDDs may also do
not create temporary files but keep everything in memory if they
decide it's more efficient.

* harbour/source/rdd/dbcmd.c
+ added .prg function to create temporary files:
hb_dbCreateTemp( <cAlias>, <aStruct>, <cRDD>, ;
<cCodePage>, <nConnection> ) -> <lSuccess>
Not all RDDs have to support it. It's verified by support for
DBI_ISTEMPORARY dbInfo() action.

* harbour/include/hbrdddbf.h
* harbour/include/hbrddnsx.h
* harbour/include/hbrddcdx.h
* harbour/include/hbrddntx.h
* harbour/source/rdd/dbf1.c
* harbour/source/rdd/dbffpt/dbffpt1.c
* harbour/source/rdd/dbfntx/dbfntx1.c
* harbour/source/rdd/dbfnsx/dbfnsx1.c
* harbour/source/rdd/dbfcdx/dbfcdx1.c
+ added support for temporary tables in native RDDs.

Most of above modifications were done by Viktor Szakats.

gfilatov wrote: Hi Roberto,

Take a look for the following record in the Harbour changelog:
<...>

sudip wrote: Please don't misunderstand me. I don't want to compare with 2 versions. I am telling about this because temporary table is really useful for programmers (especially those came from VFP )

Please correct me if I am wrong.

With best regards.

Sudip