tdatabase for append / copy

[TimStone]

I'm a fan of data objects ( tdatabase / tdata ). Credit James Bott with introducing me to them and it makes my work so much easier.

Two capabilities missing from these classes is:

oDbf:CopyTo( oDbf2 ) which would allow us to copy all, or filtered, contents of an open data object to a new data file

and

oDbf:AppendFrom( oDbf2 ) which would allow us to append all, or filtered, records from a second database

Does anyone have these two functions now ? If not, I will work on them and provide them to Antonio for inclusion in tDatabase.

Tim

[Antonio Linares]

Tim,

I have not tested it myself but it seems as this may be a valid starting point:

Code: Select all  Expand view

METHOD CopyTo( oDbf, aFields, bFor, bWhile, nNext, nRec, cRdd, cCp ) CLASS TDataBase

   local uVal

   if ValType( oDbf ) == "O"
      uVal = ( ::cAlias )->( __dbCopy( oDbf:cAlias, aFields, bFor, bWhile, nNext, nRec, cRdd, cCp ) )
   endif

return uVal
 

We could copy the records through the target object, but I think that may slow down the process very much

[TimStone]

Not exactly working ... yet ... will work with it this week. It didn't like the object.

Tim

[James Bott]

Try this:

Code: Select all  Expand view

METHOD CopyTo( cFile, aFields, bFor, bWhile, nNext, nRec, cRdd, cCp ) CLASS TDataBase

   LOCAL uVal
   uVal = ( ::cAlias )->( __dbCopy( cFile, aFields, bFor, bWhile, nNext, nRec, cRdd, cCp ) )
   
return uVal

Here is a sample test program:

Code: Select all  Expand view

// Test for copyto() method
function main
   local oDB
   oDB:= Tdatabase():new()
   oDB:open(,"clients")
   oDB:copyto( "temp" )
   oDB:close()
   msgInfo( "done")
return nil

Regards,
James

[James Bott]

And here is an AppendFrom() method.

Code: Select all  Expand view

METHOD AppendFrom( cFile, aFields, bFor, bWhile, nNext, nRec, lRest ) CLASS TDataBase

     __dbApp( cFile, aFields, bFor, bWhile, nNext, nRec, lRest )
     
return nil

Regards,
James

[Antonio Linares]

James,

thanks!

[TimStone]

Thanks. Where can I find a reference listing ( document ) for xHarbour __db???????? functions. Its not in the manual.

[Gale FORd]

You can find a reference to it in std.ch
Keep in mind this does not cover sdf or delimited.

#command APPEND [FROM <(f)>] [FIELDS <fields,...>] ;
[FOR <for>] [WHILE <while>] [NEXT <next>] ;
[RECORD <rec>] [<rest:REST>] [ALL] [VIA <rdd>] ;
[CODEPAGE <cp>] [CONNECTION <conn>] => ;
__dbApp( <(f)>, { <(fields)> }, ;
<{for}>, <{while}>, <next>, <rec>, <.rest.>, <rdd>, <conn>, <cp> )

[TimStone]

Thanks Gale. Actually I'm looking for a list of all __dbxxxxx( ) functions.

I'm always appreciative when someone provides a command syntax here, but wonder where they come from because I can't find any of it in my documentation.

Tim

[nageswaragunupudi]

Please read and study std.ch file in the (x)harbour\include folder.
These are the default command translates of all xbase commands into clipper/harbour functions.

[James Bott]

Here is a list of just the __db functions. There are others starting with leading double underscores. These are all in the STD.CH file.

You can find the syntax for these by Googling them.

__dbPack()
__dbZap()
__dbContinue()
__dbLocate()
__dbCreate()
__dbCopyStuct()
__dbCopyXStruct()
__dbDelim()
__dbSDF()
__dbCopy()
__dbApp()
__dbSort()
__dbTotal()
__dbUpdate()
__dbJoin()
__dbList()