Re: Problem updating a record containing a negative Value

From: Val Mazur (group51a_at_hotmail.com)
Date: 09/02/04 

Date: Wed, 1 Sep 2004 22:03:50 -0400

Hi,

Like for me it looks like a bug in a driver, because it does not make any
sense and code looks fine. What you could try to do is to use Fields
collection to assign value to the field, bit it should work with your syntax
as well. try to use next kind of code

rec.Fields("Test2").Value = 42 

-- 
Val Mazur
Microsoft MVP
"R. Lowke" <rolf_at_work@lycos.de> wrote in message 
news:1094052733.19090.0@nnrp-t71-02.news.clara.net...
> Hello,
>
> I use an ADO recordset in Visual Basic to connect to an iSeries-table via
> ODBC (Client Access ODBC Driver) and have to update some records. This 
> works
> fine until I want to update a record that contains a negative value. Then 
> I
> get the error message "Row cannot be located for update...". The table has 
> a
> primary key and i can update if the current record contains no negative
> values. It does not matter which numeric field contains the negative 
> value.
> I can update even rows with negative values if I use SQL (UPDATE) 
> directly,
> but that's no acceptable solution. Here is an example code snippet. Test1
> and Test2 are decimal values, if Test1 contains a negative value the
> mentioned error occurs.
>
> Set cnn = New ADODB.Connection
> With cnn
>   .CursorLocation = adUseServer
>   .ConnectionString = "DSN=Test"
>   Call .Open
> End With
>
> Set rec = New ADODB.Recordset
> With rec
>   .ActiveConnection = cnn
>   .CursorLocation = adUseServer
>   .LockType = adLockOptimistic
>   .CursorType = adOpenDynamic
>   .Source = "TEST.TEST"
>   Call rec.Open(Options:=adCmdTable)
>   If .State = adStateOpen Then
>      Do While Not rec.EOF
>         rec!Test2 = 42
>         Call rec.Update
>         Call rec.MoveNext
>         DoEvents
>      Loop
>   End If
> End With
>
> Can anyone help me, please!?
>
>

Relevant Pages

  • Problem updating a record containing a negative Value
    ... ODBC (Client Access ODBC Driver) and have to update some records. ... Set cnn = New ADODB.Connection ... .CursorLocation = adUseServer ... Set rec = New ADODB.Recordset ...
    (microsoft.public.data.ado)
  • Re: Problem with Update via Client Access ODBC/ADO if record contains a negative value
    ... Set cnn = New ADODB.Connection ... .CursorLocation = adUseServer ... Set rec = New ADODB.Recordset ...
    (comp.sys.ibm.as400.misc)
  • Re: naive question
    ... You could use the ODBC Text Driver. ... To open a connection that uses the ODBC Text Driver, your connection string needs to at minimum specify the name of the driver itself, and the path to the folder the data files are in: ... Dim cnn: Set cnn = OpenTextDb ...
    (microsoft.public.scripting.vbscript)
  • Re: naive question
    ... You could use the ODBC Text Driver. ... To open a connection that uses the ODBC Text Driver, ... Dim cnn: Set cnn = OpenTextDb ...
    (microsoft.public.scripting.vbscript)
  • Re: Using TADODataset with DB2
    ... TADODataset component to something simple, ... Does DB2 support the notion of server side cursors? ... What driver are you using? ...
    (borland.public.delphi.database.ado)
Quantcast