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.O.T 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.O.T macserve.net
> > [mailto:valentina-bounces@lists.macserve.net] On Behalf Of Ruslan
> > Zasukhin
> > Sent: 30 April 2006 09:12
> > To: valentina (AT) lists D.O.T 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.O.T 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.O.T macserve.net
http://lists.macserve.net/mailman/listinfo/valentina
©2006 Joakim Schramm |
