NextRecord and ObjectPtr?

[Joakim Schramm]

Well that wasn't really true either PrevRecord works once then it stays on
same record and doesn't move on.

Joakim 

> -----Original Message-----
> From: valentina-bounces at lists.macserve.net 
> [mailto:valentina-bounces at lists.macserve.net] On Behalf Of 
> Joakim Schramm
> Sent: 30 April 2006 13:18
> To: 'Valentina Developers'
> Subject: RE: NextRecord and ObjectPtr?
> 
> I think NextRecord is broken in COM,
> 
> With Tbl
> .LastRecord
> Do while Not Cbool(.BOF)
> ...
> ...
> .PrevRecord
> Loop
> End With
> 
> Works, but not the other way around. I know the code above 
> misses 1 rec but it's just to show.
> 
> Joakim
> 
> > -----Original Message-----
> > From: valentina-bounces at lists.macserve.net
> > [mailto:valentina-bounces at lists.macserve.net] On Behalf Of Joakim 
> > Schramm
> > Sent: 30 April 2006 13:07
> > To: 'Valentina Developers'
> > Subject: NextRecord and ObjectPtr?
> > 
> >  Hi,
> > 
> > Why does the (VB6) code below not work? NextRecord does't 
> do anything 
> > just stay on same RecId 1, so field references etc.
> > never gets updated etc. does COM object don't work with 
> With ... End 
> > With?
> > Dim IdRec As Long
> > Dim B As Boolean
> > Dim sKey As String
> > Dim fldPtr As VField
> > Dim fldFK As VField
> > Dim fldPK As VField
> > Dim mTblCountry As VTable
> > Dim mTblAlias As VTable
> > 
> > 'prepare binary links
> > 'Set mLinkCA = mDatabase.Link(lnkCountryAlias) Set mTblCountry = 
> > mDatabase.Table(tblCountry & sLang) Set mTblAlias = 
> > mDatabase.Table(tblCountryAlias)
> > 
> > With mTblAlias
> >     Set fldPtr = .Field("PtrAlias")
> >     Set fldFK = .Field("CID")
> >     Set fldPK = mTblCountry.Field("CID")
> >     Call .FirstRecord
> > 
> >     Do While Not .EOF
> >         sKey = Trim$(fldFK.Value)
> >         IdRec = fldPK.FindSingle(sKey)
> > 
> >         If IdRec <> 0 Then
> >             fldPtr.Value = IdRec
> >             .UpdateRecord
> >         Else
> >             MsgBox "No " & sKey
> >         End If
> > 
> >        B = .NextRecord
> >     Loop
> > 
> > End With
> > 
> > Only part working is
> > 
> >         sKey = Trim$(fldFK.Value)
> >         IdRec = fldPK.FindSingle(sKey)
> > 
> >         If IdRec <> 0 Then
> >             fldPtr.Value = IdRec
> >             .UpdateRecord
> >         Else
> >             MsgBox "No " & sKey
> >         End If
> > 
> > What am I doing wrong?
> > 
> > Regards,
> > 
> > Joakim
> > > -----Original Message-----
> > > From: valentina-bounces at lists.macserve.net
> > > [mailto:valentina-bounces at lists.macserve.net] On Behalf Of Ruslan 
> > > Zasukhin
> > > Sent: 30 April 2006 09:12
> > > To: valentina at lists.macserve.net
> > > Subject: Re: Table structure?
> > > 
> > > On 4/30/06 5:13 AM, "Joakim Schramm" <joakim at astrocalc.com> wrote:
> > > 
> > > > Not really me either, I removed keys and imported and it
> > > dropped from
> > > > 500+ to 42Mb, I added keys again and now only 75Mb instead
> > > of 500+ -
> > > > very strange. There must have been some big baloon of air
> > > somewere in
> > > > memory/cache maybe? I noticed when doing 500+ Mb db it
> > didn't flush
> > > > until it was ready, if it can say something. I have big
> > > memory 2GB so
> > > > maybe Valentina felt too comfortable :-)
> > > 
> > > No, flush, cache, RAM do not affect size of db.
> > > 
> > > Strange
> > > 
> > > --
> > > 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
> > > 
> > 
> > _______________________________________________
> > Valentina mailing list
> > Valentina at lists.macserve.net
> > http://lists.macserve.net/mailman/listinfo/valentina
> > 
> 
> _______________________________________________
> Valentina mailing list
> Valentina at lists.macserve.net
> http://lists.macserve.net/mailman/listinfo/valentina
>