Convertir a moneda

[fero]

Esto permite introducir un registro en la tabla NorthwindCS de Access (SQL Server), donde el campo UnitPrice está definido como money.
Supongo que para UPDATE será lo mismo.

Private Sub Command1_Click()

Dim con As ADODB.Connection
Dim rst As ADODB.Recordset

Dim stprecio As String

Set con = New ADODB.Connection
Set rst = New ADODB.Recordset

Dim sConString As String
Dim sSQLString As String

sConString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;" _
& "Persist Security Info=False;Initial Catalog=NorthwindCS;" _
& "Data Source=FP-5GK6908Y5SOV"

con.Open sConString
Debug.Print "Connection opened."

stprecio = "CONVERT(money, '" & Text1.Text & "')"
sSQLString = "INSERT INTO Products (ProductName, SupplierID, CategoryID," _
& "QuantityPerUnit, UnitPrice) VALUES ('producto', 12, 2, '15', " & stprecio & ")"
Debug.Print sSQLString

Set rst = con.Execute(sSQLString)

con.Close
End Sub

Fijate que el separador decimal de mi sistema es la coma (,), y el separador de miles el punto. Pero para que esto funcione, el separador decimal en el textbox debe ser el punto.