Postgres Pro
Downloads
Home   >   mailing lists

Thread: Bug with ADORecordSet.Update

Bug with ADORecordSet.Update

From
Keith Gray
Date:
The "bug" is when I update the table
(described below) all fields with a common "OwnerID" get updated
simultaneously. OwnerID is used to cascade Ledger sub accounts.

CREATE TABLE GeneralLedger (
        AccountSequence integer,
        AccountLevel integer,
        AccountFunction integer,
        Movement varchar(1),
        Postings varchar(1),
        AccountCode varchar(10),
        OwnerID integer,
        Description varchar(255),
        OBalPer0 float,
        PBalPer0 float,
        CBalPer0 float,
        OBalPer1 float,
        PBalPer1 float,
        CBalPer1 float,
        OBalPer2 float,
        PBalPer2 float,
        CBalPer2 float,
        OBalPer3 float,
        PBalPer3 float,
        CBalPer3 float
)

...in VB


Do While mLevel <> 2
    SQL = "SELECT CBalPer0, PBalPer0, OwnerID FROM GeneralLedger " & _
          "WHERE AccountSequence=" & Cstr(mLevel)
    Set Rec = OpenDynamic(SQL)
    mLevel = Rec!OwnerID
    Rec!PBalPer0 = Rec!PBalPer0 + Amount
    Rec!cBalPer0 = Rec!cBalPer0 + Amount
    Rec.Update
  Loop
End Sub

...for now I fixed this by

"SELECT * FROM GeneralLedger WHERE AccountSequence=" & Cstr(mLevel)

Is this a known bug?
Is it caused by no cursor control?



--
Keith Gray

Technical Development Manager
Heart Consulting Services P/L
mailto:keith@heart.com.au

Re: Bug with ADORecordSet.Update

From
"Hiroshi Inoue"
Date:
> -----Original Message-----
> From: Keith Gray
>
> The "bug" is when I update the table
> (described below) all fields with a common "OwnerID" get updated
> simultaneously. OwnerID is used to cascade Ledger sub accounts.
>
> CREATE TABLE GeneralLedger (
>         AccountSequence integer,
>         AccountLevel integer,
>         AccountFunction integer,
>         Movement varchar(1),
>         Postings varchar(1),
>         AccountCode varchar(10),
>         OwnerID integer,
>         Description varchar(255),
>         OBalPer0 float,
>         PBalPer0 float,
>         CBalPer0 float,
>         OBalPer1 float,
>         PBalPer1 float,
>         CBalPer1 float,
>         OBalPer2 float,
>         PBalPer2 float,
>         CBalPer2 float,
>         OBalPer3 float,
>         PBalPer3 float,
>         CBalPer3 float
> )
>
> ...in VB
>
>
> Do While mLevel <> 2
>     SQL = "SELECT CBalPer0, PBalPer0, OwnerID FROM GeneralLedger " & _
>           "WHERE AccountSequence=" & Cstr(mLevel)
>     Set Rec = OpenDynamic(SQL)
>     mLevel = Rec!OwnerID
>     Rec!PBalPer0 = Rec!PBalPer0 + Amount
>     Rec!cBalPer0 = Rec!cBalPer0 + Amount
>     Rec.Update
>   Loop
> End Sub
>
> ...for now I fixed this by
>
> "SELECT * FROM GeneralLedger WHERE AccountSequence=" & Cstr(mLevel)
>
> Is this a known bug?
> Is it caused by no cursor control?

Maybe.
You seem to have to specify items so that they distiguish individual rows.

regards,
Hiroshi Inoue