Pues lo dicho, tengo una conexión ODBC y estoy intentando realizar un INSERT INTO con un valor DOUBLE en VB en un valor INT en una base de datos SQL tal como así:
Public Function crearCabeceraBono(BONO As Double) As Boolean
Dim strSql As String
On Error GoTo salir_mal
strSql = ""
strSql = " INSERT INTO TC_BONO(CODEMP,BONO,OPERAC,PUESTO,BonoCerrado)" & _
" VALUES (" & _
"'" & getemp() & "'," & _
BONO & "," & _
"'500001'," & _
"'501'," & _
"'N')"
cntDirecto.Execute strSql
crearCabeceraBono = True
Exit Function
salir_mal:
crearCabeceraBono = False
End Function
Nunca se inserta, cuando en otras funciones si que funciona.
¿Qué puede estar mal?
Gracias
