Lots of beginner questions

[Ruslan Zasukhin]

on 10/20/03 18:35, Barney at barney at custombased.com wrote:

> Dim db as vdatabase
> Dim f as folderitem
> dim res as boolean
> Dim BO as VBaseObject
> Dim fld as Vfield
> 
> f  = getopenfolderItem("any")
> db = new vdatabase
> 
> res = db.open(f)
> 
> if res = true then
>   msgBox "dbbase Open"
> else
>   msgBox "Sorry couldn't open"
>   return
> end if
> 
> //create base object ( table )
> BO = Db.CreateBaseObject("Table1")
> 
> 
> 
> //create fields
>   fld = BO.createfield( "Id", 5) //VUshort
>   fld = BO.createfield( "category", 10,30) //VString  ( 30 characters )
>   fld = BO.createfield( "Comments", 26, 504) //Vvarchar
>   fld = BO.createfield( "Cost_Price", 8) //VFloat
>   fld = BO.createfield( "Delete", 2) //VBoolean
>   fld = BO.createfield( "Purchase_Date", 12) //VDate
>   fld = BO.createfield( "Qty", 4) //VShort
> 
> DB.flush

BTW, Chuck,

Here Barney show even one more way to create database and tables.
Without classes but still in program code.

After this we come to case like "db made in VAPP"

You have not classes, but you can access ach object by name or index.


-- 
Best regards,
Ruslan Zasukhin      [ I feel the need...the need for speed ]
-------------------------------------------------------------
e-mail: ruslan at paradigmasoft.com
web: http://www.paradigmasoft.com

To subscribe to the Valentina mail list go to:
http://lists.macserve.net/mailman/listinfo/valentina
-------------------------------------------------------------