[Wine] WINE + MSSQL 2000 + VB6 -> Numbers are rounded in recordset

Razorwings18 wineforum-user at winehq.org
Fri Jan 8 15:12:20 CST 2010

Hi all,

I've got a "straightforward" database querying problem with a Visual Basic 6 application that happens on Debian (+WINE), but not on Windows XP.

--- DEBIAN Lenny (Lang: Spanish)
--- unixODBC + FreeTDS for ODBC conectivity to remote MSSQL2000 (tested, working)
--- WINE 1.1.33
--- MDAC 2.8 (for channelling the ODBC connection through to unixODBC)

* COMPUTER "M$" with:
--- Windows XP (Lang: Spanish)
--- MSSQL Server 2000
--- MDAC 2.8

I create an ODBC connection to MSSQL2000 on VB6, and query a field (Numeric 9,2) into an ADODB.Recordset.
On Windows, the program returns the complete field numeric value (2.44), but on Debian it rounds the number (2.00).

On Debian, channelling the Query through isql properly returns 2.44, so it's most likely a WINE or VB6+WINE issue.

LITTLE VB6 TEST PROGRAM CODE (returns 2.44 on Windows XP, but 2.00 on Debian):


Private oConn As ADODB.Connection

Private Sub Command1_Click()
    Dim oRS As ADODB.Recordset
    Set oConn = New ADODB.Connection
    oConn.Open "DSN=myODBCDSN; UID=username; PWD=password;"
    Set oRS = New ADODB.Recordset
    oRS.Open "SELECT Price FROM GOODS WHERE idGoods = 10", oConn, adOpenDynamic
    MsgBox oRS("Price")
    Set oRS = Nothing
    Set oConn = Nothing
End Sub

The line oRS("Price") is where the problem is.

Any pointers will be most welcome.

More information about the wine-users mailing list