S = VBO.VFld.Getstring() ?

[Ruslan Zasukhin]

On 7/5/04 2:34 AM, "Barney" <barney at custombased.com> wrote:

Hi Barney,

> I am just trying to access a fields data using...
> 
> BaseObject.Field.Getstring()
> 
> Below I am writing to a text file all the data inside a database just so on
> Windows I can quickly see what's happening inside.
> 
> It writes everything properly except the data. the line...
> 
> S = S + Fld.Name + " = " + Fld.GetString() + tb
> 
> is not getting the data from the field.
> 
> What am I doing wrong here ?

You do not manimulate with records.
 
I do not see calls BaseObject.firstRecord, BaseObject.NextRecord

> Thank you.
> 
> Barney
> 
> 
> 
> 
> Dim BO as VBaseObject
> Dim Fld as VField
> Dim I,Z,BOCount,FieldCount as Integer
> Dim S,T as string
> Dim BR,Tb as String
> Dim D as Date
> Dim F as Folderitem
> Dim TOut as TextOutputStream
> 
> 
> #If TargetWin32 then
>   BR = chr(13) + chr(10)
> #Else
>   BR = chr(13)
> #Endif
> 
> D = New Date
> Tb = chr(9)
> 
> S = "Examination of database " + D.LongDate + " : " + D.LongTime + "|||"
> 
> 
> For BOCount = 1 to App.DB.BaseObjectsCount
>   
>   BO = App.DB.BaseObject(BOCount)
>   S = S + "Base Object " + str(BOCount) + "Name : " + BO.Name + "||"
>   
>   For Z = 1 to BO.RecordCount
>     For FieldCount = 1 to BO.FieldCount
>       Fld = BO.field(FieldCount)
>       S = S + Fld.Name + " = " + Fld.GetString() + tb
>     Next
>     S = S + "|"
>   Next
>   
>   S = S + "|||"
>   
> Next
> 
> S = ReplaceAll(S,"|",BR)
> 
> F = GetFolderItem("Database Data.txt")
> TOut = F.CreateTextFile
> TOut.Write S
> 
> _______________________________________________
> Valentina mailing list
> Valentina at lists.macserve.net
> http://lists.macserve.net/mailman/listinfo/valentina

-- 
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
-------------------------------------------------------------