benchmark

[Joakim Schramm]

> -----Original Message-----
> From: valentina-bounces at lists.macserve.net 
> [mailto:valentina-bounces at lists.macserve.net] On Behalf Of 
> Ruslan Zasukhin
> Sent: 13 December 2006 10:14
> To: valentina at lists.macserve.net
> Subject: Re: benchmark
> 
> On 12/06/13 3:28 AM, "Joakim Schramm" <joakim at astrocalc.com> wrote:
> 
> >> I did this and added one record into db with my program, 
> close app. 
> >> Then open Vstudio to look and it was interesting.
> >> I open Data Browser with left table in top. I select the ObjectPtr 
> >> link and in list below it shows 1 record correct.
> 
> You not describe how you have made a link of records
> 
Well usual way,

I have originally created in VStudio db, 2 tables "tGroups", "tCharts". Db
also have other tables but they are not used her or connected with these
tables in any way. 

tGroup has 1 VarChar field only, tCharts has many fields (3 VarChar, 3
DateTime, several Byte and Short)

I made Binary link 1:M between above.

I Add 2 Records into tGroups in VStudio. I have then (as I don't trust
Vstudio here due to crashes) in code created a XML Dump of this.

When I run app I check if DB exist, if not (always first time) I create it
from Dump.

Now in my app I add 1 records to tCharts, variables below not Dim are Global
defied elsewere

Sub SaveChart(ByVal nGroup As Long)
Dim lnk     As VLink2
Dim nChart As Long

Set lnk = db.Link("lnkGroupChart")

With tCharts
.SetBlank forAdd
...
'setting values to fields here
...
nChart = .AddRecord
End With

lnk.LinkRecords nGroup, nChart

Later when calling this

Dim objVSet as Vset

Set objVSet = lnk.FindLinked(nGroup, tGroups, tCharts)

Result of objVSet.Count is 3

A note, I have other db with Binary link and records and these show correct
BUT these records was added earlier and recreated with dump as above (whole
db). I have not tested that part of my app yet, adding records from code.

/Joakim
> --
> Best regards,
> 
> Ruslan Zasukhin
> VP Engineering and New Technology
> Paradigma Software, Inc
> 
> Valentina - Joining Worlds of Information http://www.paradigmasoft.com
> 
> [I feel the need: the need for speed]
> 
> 
> _______________________________________________
> Valentina mailing list
> Valentina at lists.macserve.net
> http://lists.macserve.net/mailman/listinfo/valentina
>