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 D.OT macserve.net
> [mailto:valentina-bounces@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 D.OT macserve.net
> > [mailto:valentina-bounces@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 D.OT macserve.net
> > > [mailto:valentina-bounces@lists.macserve.net] On Behalf Of Ruslan
> > > Zasukhin
> > > Sent: 30 April 2006 09:12
> > > To: valentina (at) lists D.OT macserve.net
> > > Subject: Re: Table structure?
> > >
> > > On 4/30/06 5:13 AM, "Joakim Schramm" <joakim@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 D.OT macserve.net
> > > http://lists.macserve.net/mailman/listinfo/valentina
> > >
> >
> > _______________________________________________
> > Valentina mailing list
> > Valentina@lists.macserve.net
> > http://lists.macserve.net/mailman/listinfo/valentina
> >
>
> _______________________________________________
> Valentina mailing list
> Valentina (at) lists D.OT macserve.net
> http://lists.macserve.net/mailman/listinfo/valentina
>
_______________________________________________
Valentina mailing list
Valentina@lists.macserve.net
http://lists.macserve.net/mailman/listinfo/valentina
©2006 Joakim Schramm |
