Dim count As Integer = Convert.ToInt32(cmd.ExecuteScalar())
Esa es la única rara, será esa?.
Esa es la única rara, será esa?.
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú
Dim comprobar As String
Dim monto As Double
comprobar = TxtMonto.Text
If IsNumeric(comprobar) <> True Then
lblMonto.ForeColor = Color.Red
lblMonto.Text = "Dato Incorrecto"
btnGuardarDatos.Enabled = False
Else
btnGuardarDatos.Enabled = True
lblMonto.Text = ""
'Actualización
monto = CDbl(comprobar)
TxtMonto.Text = monto.ToString("###,###,###.##")
End If
monto = CDbl(TxtMonto.Text)
cmd = New OleDb.OleDbCommand("insert into xxx1(xxx) values ('" & monto & "')" , conn)