Delphi 5E Update Pack# 1 - TADOQuery.Post produces newest error in ADO2.5

[Toan N]

ADO Friends,

I am running Delphi App compiled with Delphi 5E, Update Pack#1, TADOQuery
via MS/MDAC_TYP 2.5.
Just a plain C/S model, no 3rd tier involved. I am using MS/SQL7 on an NT
4.sp6 box. I have the following error:

"Multiple-Step operation Generated Errors. Check each status value!"

This error is inconsistent, sometimes it displayed and other time not.

Here below are steps tookplace in the app:

1. TADOQuery.Edit
2. User changes a field
3. TADOQUery.Post
4. The above error is displayed.

5. TADOQuery.Cancel
6. TADOQuery.Edit
7. User changes a field
8. TADOQUery.Post
9. The above error disappeared, and the record is saved OK

Thanks for your help,

Toan

[Fegyverneki Janos]

Hi!

I am also looking for a solution for this without success, yet.

For me the exception is raised on this line:
Recordset.Fields[FieldNo-1].Value := Data;

Here is the environment:

procedure TCustomADODataSet.InternalPost;
procedure UpdateData;
var
I: Integer;
FieldData: PVariantList;
Data: OleVariant;
begin
FieldData := PVariantList(ActiveBuffer + SizeOf(TRecInfo));
for I := 0 to FModifiedFields.Count - 1 do
with TField(FModifiedFields[I]) do
if not ReadOnly then
begin
Data := FieldData[Index];
if not VarIsEmpty(Data) then
Recordset.Fields[FieldNo-1].Value := Data;
end;
if (Recordset.EditMode * (adEditInProgress + adEditAdd)) <> 0 then
Recordset.Update(EmptyParam, EmptyParam);
end;

"Toan N" <Toan_...@Fws.Gov> wrote in message
news:89k7ma$m8...@bornews.borland.com...

[Fegyverneki Janos]

I just found it.

For me it was because of a Numeric(2) field. I tried to put 114 into it but
it accepts max 99.
I don't know what the hell is this error message, but sql server gived a
understandable error message in query analyzer.
Even BDE told: Value out of bounds.

Jani

[Toan N]

Jani

Thanks for your reply. I inventoried all my data types based on your hint:
They are VarChar of no more than 80 bytes long, DateTime, Bit, Integer,
Money, Numerci(6,2), and Text (in separate table).

My workflow is very simple: User requests to open a new record. I perform
the following Inserts on two tables: Master and Memo tables. Once user
finish inputting his data, he/she then hit the "Save" button. I then issue
the "POST" command for both tables, one 1 a time base on their "State".

The problem is that I cannot reproduce the same error consistently. It has
been working for the whole week now without any red-x.

Toan

Fegyverneki Janos <ja...@freemail.hu> wrote in message
news:89s1c5$sd...@bornews.borland.com...

[Toan N]

ADO Friends,

It seems that the mysterious problem went away for good now! I applied the
latest changes, on top of the Delphi 5E UP1, from Mark Edison's ADO Patch
from the code central database.

Toan