VB对Mysql的导出访问在货币格式上失败

Access 2003上的以下VBA脚本将所有表和数据导出到MySQL。 除了货币数据之外，其他一切都可以工作，它们被转换成整数而不是浮点数。浮动被正确导出

在Access 2003中

price : 1,22 € (currency format)
VAT : 1,115 (float)

在mysql中变为：

price : 1
VAT : 1.115

以下是脚本：

Option Compare Database

Private Sub Détail_Click()

End Sub

Private Sub export_mysql_Click()
    On Error GoTo Err_export_mysql_Click

        Dim sTblNm As String
        Dim sTypExprt As String
        Dim sCnxnStr As String, vStTime As Variant
        Dim db As Database, tbldef As DAO.TableDef

        On Error GoTo ExportTbls_Error

        sTypExprt = "ODBC"
        'sCnxnStr = "ODBC;DSN=DSNname;UID=userOnServer;PWD=pwdOnServer"
        sCnxnStr = "ODBC;DSN=exporteau;UID=exporteau;PWD=xxxxxxxxxxx" 'Create the connection string
        vStTime = Timer
        Application.Echo False, "Visual Basic code is executing."

        Set db = CurrentDb()

        For Each tbldef In db.TableDefs
        Debug.Print tbldef.Name
        sTblNm = tbldef.Name
        DoCmd.TransferDatabase acExport, sTypExprt, sCnxnStr, acTable, sTblNm, sTblNm
        Next tbldef

        MsgBox "Exportation terminée"
        On Error GoTo 0
SmoothExit_ExportTbls:
        Set db = Nothing
        Application.Echo True
        Exit Sub

ExportTbls_Error:
        MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure ExportTblsODST"
        Resume SmoothExit_ExportTbls

Exit_export_mysql_Click:
            Exit Sub

Err_export_mysql_Click:
            MsgBox Err.Description
            Resume Exit_export_mysql_Click

End Sub

Private Sub export_mysql_DblClick(Cancel As Integer)

End Sub

---

MS Access 2002对货币使用系统区域设置

一旦设置为用

而不是

分隔小数，

我就得到了我的数字