mysql - 在 VBA 中保留小数点分隔符

Question

我正在尝试将 Excel 中的表格上传到 MySQL。我将 Excel 中的小数点分隔符更改为“.”我表中的所有数字都是小数点。但是，当我使用 INSERT INTO 函数将此数据上传到 MySQL 时，小数点分隔符在 MySQL 中变为“,”。谁能帮帮我？

trSQL = "CREATE TABLE IF NOT EXISTS `" & table1 & "` (`" _
         & field1 & "` " & "varchar(12)" & ",`" _
         & field2 & "` " & "varchar(3)" & ",`" _
         & field3 & "` " & "varchar(4)" & ",`" _
         & field4 & "` " & "varchar(3)" _
         & ")"

conn.Execute strSQL

For i = 1 To 31
val1 = ThisWorkbook.Worksheets("test").Cells(i + 38, 1).Value
val2 = ThisWorkbook.Worksheets("test").Cells(i + 38, 2).Value
val3 = ThisWorkbook.Worksheets("test").Cells(i + 38, 3).Value
val4 = ThisWorkbook.Worksheets("test").Cells(i + 38, 4).Value

stSQL = "INSERT INTO testing (Date, test1 , test2 , test3)"
stSQL = stSQL & "VALUES ('" & val1 & " ',' " & val2 & "','" & val3 & "','" & val4 & "')"
ThisWorkbook.Worksheets("test").Cells(i + 38, 7).Value = edf

                conn.Execute stSQL

谢谢!

Answer 1

您可以使用 .Text 而不是 .Value。值返回系统默认的小数点分隔符。

val1 = ThisWorkbook.Worksheets("test").Cells(i + 38, 1).Text