Example 14: [Embedding] Example 13

[David de Argentina]

This sample shows how to work with [Embedded] .tBasic files:

Program assumes you had embedded the "Biblio.tBasic" file.

Code: Select all

FileToVar "[Embedded]Biblio.tBasic" "[tBasicProgram]"
dbpOpenAccessDatabase "Biblio" "[PubDir]Biblio.mdb" ""
dbpOpenTable "Biblio" "Titles" ""
SetVar "[Records]" "[Biblio.Titles.$RecCount]"
ae_TB_Reset
ae_TB_Init
ae_TB_LoadScript "[tBasicProgram]" "V"
ae_TB_Run ""

Rest, is the same of Example 13

Enjoy !