[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.
SETUP:
* COMPUTER "FREE" with:
--- 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
PROBLEM:
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):
Code:
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")
oConn.Close
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