Poner condicion en el ingreso

"Marco Elgueta" escribió:

mi idea es que solo ingrese multiplos de 500 a mi base
de datos pero mi duda es como lo puedo hacer.

Hola, Marco:

Puedes ejecutar una consulta SQL de datos añadidos o de actualización,
dependiendo si vas añadir un nuevo registro a la tabla, o actualizar uno ya
existente.

Por ejemplo, una vez que sepas que el número es múltiplo de 500, ejecutarías
lo siguiente, si tu intención es añadir un nuevo registro.

Imports System.Data.OleDb

Dim cnn As New OleDbConnection

cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=Bd1.mdb"

Try
Dim numero As Integer = 1000

' Construimos la consulta SQL para añadir una nueva fila
Dim sql As String = _
"INSERT INTO Tabla1(Campo1) VALUES (" & numero.ToString & ")"

' Creamos un objeto Command
Dim cmd As New OleDbCommand(sql, cnn)

' Abrimos la conexión
cnn.Open()

' Ejecutamos el comando
cmd.ExecuteNonQuery()

Catch ex As OleDbException
MessageBox.Show(ex.Errors(0).Message)

Catch ex As Exception
MessageBox.Show(ex.Message)

Finally
' Cerramos la conexión
cnn.Close()
cnn = Nothing

End Try


Un saludo

Enrique Martínez
[MS MVP - VB]

Nota informativa: La información contenida en este mensaje, así como el
código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin
garantías de ninguna clase, y no otorga derecho alguno. Usted asume
cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado o
sugerido en el presente mensaje.

Mi duda no es como guardarlo, si no como condiciono para que acepte solo
multiplos de 500.



"SoftJaén" wrote:

"Marco Elgueta" escribió:

> mi idea es que solo ingrese multiplos de 500 a mi base
> de datos pero mi duda es como lo puedo hacer.

Hola, Marco:

Puedes ejecutar una consulta SQL de datos añadidos o de actualización,
dependiendo si vas añadir un nuevo registro a la tabla, o actualizar uno ya
existente.

Por ejemplo, una vez que sepas que el número es múltiplo de 500, ejecutarías
lo siguiente, si tu intención es añadir un nuevo registro.

Imports System.Data.OleDb

Dim cnn As New OleDbConnection

cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=Bd1.mdb"

Try
Dim numero As Integer = 1000

' Construimos la consulta SQL para añadir una nueva fila
Dim sql As String = _
"INSERT INTO Tabla1(Campo1) VALUES (" & numero.ToString & ")"

' Creamos un objeto Command
Dim cmd As New OleDbCommand(sql, cnn)

' Abrimos la conexión
cnn.Open()

' Ejecutamos el comando
cmd.ExecuteNonQuery()

Catch ex As OleDbException
MessageBox.Show(ex.Errors(0).Message)

Catch ex As Exception
MessageBox.Show(ex.Message)

Finally
' Cerramos la conexión
cnn.Close()
cnn = Nothing

End Try


Un saludo

Enrique Martínez
[MS MVP - VB]

Nota informativa: La información contenida en este mensaje, así como el
código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin
garantías de ninguna clase, y no otorga derecho alguno. Usted asume
cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado o
sugerido en el presente mensaje.

"Marco Elgueta" escribió:

Mi duda no es como guardarlo, si no como condiciono para
que acepte solo multiplos de 500.

¿Desconoces cómo averiguar si un número es múltiplo de 500?

Enrique Martínez
[MS MVP - VB]

Nota informativa: La información contenida en este mensaje, así como el
código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin
garantías de ninguna clase, y no otorga derecho alguno. Usted asume
cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado o
sugerido en el presente mensaje.

Un número (N) es múltiplo de 500 si es divisible por 500; es decir, que el
resto de la división sea cero: N / 500 = 0.

Puedes conocer el resto de la división mediante el operador «Mod» de Visual
Basic:

Do
Dim s As String = InputBox("Introduzca un número")
If s = "" Then Exit Do

' Obtenemos el resto de la división
Dim resto As Integer = Convert.ToInt32(s) Mod 500

If resto = 0 Then
MessageBox.Show("Es múltiplo de 500." & vbCrLf & _
"Resto: " & resto.ToString)
Else
MessageBox.Show("No es múltiplo de 500." & vbCrLf & _
"Resto: " & resto.ToString)
End If

Loop

Enrique Martínez
[MS MVP - VB]

Nota informativa: La información contenida en este mensaje, así como el
código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin
garantías de ninguna clase, y no otorga derecho alguno. Usted asume
cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado o
sugerido en el presente mensaje.

Beuno la opcion para validar si un numero es multiplo de 500 es qe al dividir
este por 500 el residuo sea cero, la funcion en .NET que hacer esto es mod

seria algo asi:

Private Sub validar_e_insertar(ByVal valor_a_insertar As Double)
Dim residuo As Double
residuo = valor_a_insertar Mod 500
If residuo = 0 Then
'insertar en la bd valor_a_insertar
Else
'no se inserto el registro
Exit Sub
End If

End Sub


"Marco Elgueta" wrote:

Mi duda no es como guardarlo, si no como condiciono para que acepte solo
multiplos de 500.



"SoftJaén" wrote:

> "Marco Elgueta" escribió:
>
> > mi idea es que solo ingrese multiplos de 500 a mi base
> > de datos pero mi duda es como lo puedo hacer.
>
> Hola, Marco:
>
> Puedes ejecutar una consulta SQL de datos añadidos o de actualización,
> dependiendo si vas añadir un nuevo registro a la tabla, o actualizar uno ya
> existente.
>
> Por ejemplo, una vez que sepas que el número es múltiplo de 500, ejecutarías
> lo siguiente, si tu intención es añadir un nuevo registro.
>
> Imports System.Data.OleDb
>
> Dim cnn As New OleDbConnection
>
> cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
> "Data Source=Bd1.mdb"
>
> Try
> Dim numero As Integer = 1000
>
> ' Construimos la consulta SQL para añadir una nueva fila
> Dim sql As String = _
> "INSERT INTO Tabla1(Campo1) VALUES (" & numero.ToString & ")"
>
> ' Creamos un objeto Command
> Dim cmd As New OleDbCommand(sql, cnn)
>
> ' Abrimos la conexión
> cnn.Open()
>
> ' Ejecutamos el comando
> cmd.ExecuteNonQuery()
>
> Catch ex As OleDbException
> MessageBox.Show(ex.Errors(0).Message)
>
> Catch ex As Exception
> MessageBox.Show(ex.Message)
>
> Finally
> ' Cerramos la conexión
> cnn.Close()
> cnn = Nothing
>
> End Try
>
>
> Un saludo
>
> Enrique Martínez
> [MS MVP - VB]
>
> Nota informativa: La información contenida en este mensaje, así como el
> código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin
> garantías de ninguna clase, y no otorga derecho alguno. Usted asume
> cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado o
> sugerido en el presente mensaje.
>
>
>
>