1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40
| Private Sub myTest()
Dim dbl As Double = 4.44
Dim dcl As Decimal = 3.33
Dim reqSql As String = ""
'reqSql = "INSERT INTO SqlTest023 (dcl1, dcl2, flt1, flt2, mny1, mny2) VALUES (@dbl, @dcl, @dbl, @dcl, @dbl, @dcl) "
'reqSql = "INSERT INTO SqlTest023 (dcl1, dcl2, flt1, flt2, mny1, mny2) VALUES (CAST(@dbl AS decimal(18, 4)), CAST(@dcl AS decimal(18, 4)), CAST(@dbl AS float), CAST(@dcl AS float), CAST(@dbl AS money), CAST(@dcl AS money)) "
'reqSql = "INSERT INTO SqlTest023 (dcl1, dcl2, flt1, flt2, mny1, mny2) VALUES (CAST('@dbl' AS decimal(18, 4)), CAST('@dcl' AS decimal(18, 4)), CAST('@dbl' AS float), CAST('@dcl' AS float), CAST('@dbl' AS money), CAST('@dcl' AS money)) "
'reqSql = "INSERT INTO SqlTest023 (dcl1, dcl2, flt1, flt2, mny1, mny2) VALUES (CAST('" & dbl & "' AS decimal(18, 4)), CAST('" & dcl & "' AS decimal(18, 4)), CAST('" & dbl & "' AS float), CAST('" & dcl & "' AS float), CAST('" & dbl & "' AS money), CAST('" & dcl & "' AS money)) "
'reqSql = "INSERT INTO SqlTest023 (dcl1, dcl2, flt1, flt2, mny1, mny2) VALUES (CAST('" & Replace(dbl, ",", ".") & "' AS decimal(18, 4)), CAST('" & Replace(dcl, ",", ".") & "' AS decimal(18, 4)), CAST('" & Replace(dbl, ",", ".") & "' AS float), CAST('" & Replace(dcl, ",", ".") & "' AS float), '" & Replace(dbl, ",", ".") & "', '" & Replace(dcl, ",", ".") & "') "
'reqSql = "INSERT INTO SqlTest023 (dcl1) VALUES (CAST(@dbl AS decimal(18, 4))) "
'reqSql = "INSERT INTO SqlTest023 (dcl2) VALUES (CAST(@dcl AS decimal(18, 4))) "
'reqSql = "INSERT INTO SqlTest023 (flt1) VALUES (CAST(@dbl AS float)) "
'reqSql = "INSERT INTO SqlTest023 (flt2) VALUES (CAST(@dcl AS float)) "
'reqSql = "INSERT INTO SqlTest023 (mny1) VALUES (CAST(@dbl AS money)) "
'reqSql = "INSERT INTO SqlTest023 (mny2) VALUES (CAST(@dcl AS money)) "
Dim statement As String = "---"
If reqSql <> "" Then
Dim db As New DAL_SQL
db.AddParam("@dbl", dbl)
db.AddParam("@dcl", dcl)
Try
db.ExecuteNonQuery(reqSql)
statement = "isOk"
Catch ex As Exception
statement = ex.ToString
End Try
db = Nothing
Else
statement = "reqSql isEmpty"
End If
litRslt.Text = statement
End Sub |
Partager