Progress 10 - ADODB connection using VB6 doesn't update decimal values correctly

[arora_anjali]

:shrug:
did anybody see this before ??
I AM USING ODBC CONNECTION using Progress OpendEdge 10.1A driver.

Following is my VB6 code wherein I try to update a decimal value with the value 1.3. It goes through fine without any errors but when I look at the the database - the value is now 130.00.
so if I try to put it a value of 12.34, the value that actually gets updated with is 1234.00
if I try to put it a value of 23, the value that actually gets updated with is 2300.00.

this happens only with Progress ver 10 database - the same code works well with Progress 9 database.

Public Sub testODBC()
Dim rsSnLoc As New ADODB.Recordset
Dim sql As String

' ' ---------- Create part_loc_sn records --------------------------
sql = "SELECT * FROM pub.part_loc_sn WHERE partno = 'BAC1676-67905' and serial_no = '1'"
rsSnLoc.CursorType = adOpenStatic
rsSnLoc.LockType = adLockOptimistic
rsSnLoc.Open sql, conn_parts, , , adCmdText
rsSnLoc!Qty_onhand = 1.3
rsSnLoc.Update
rsSnLoc.Close
Set rsSnLoc = Nothing

End Sub

 

[terry9636]

I am encountering the same issue on a OE 10.1 database using a 4gl application. Data type = decimal with 4 positions. Initial Value = 100.0000. When add-record fires, the field-value is all ?????????.

When the record is viewed in the DB, it is 1000000.0000.