Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Insert Into

12/07/2006 - 21:48 por JReyes | Informe spam
Ayuda Hacer una pregunta
Como puedo darme cuenta si el registro que estoy grabando no esta en la base
de datos

este es mi codigo:

myConexion.AbrirConexion()
Dim cGrabar As OleDbCommand
cGrabar = New OleDbCommand("INSERT INTO AM_Medicamentos " & _
"(ID_Medicamentos,Medicamentos,Presentacion_Medicamentos,Descripcion_Medicamentos, " & _
"VALUES(@ID,@Nombre,@Presentacion,@Descripcion)", oSQLConn)

cGrabar.Parameters.Add("@ID", OleDbType.Numeric, 10).Value = txtCodigo.Text
cGrabar.Parameters.Add("@Nombre", OleDbType.VarChar, 50).Value =
txtNombre.Text
cGrabar.Parameters.Add("@Presentacion", OleDbType.VarChar, 255).Value =
txtPresentacion.Text
cGrabar.Parameters.Add("@Descripcion", OleDbType.VarChar, 50).Value =
txtDescripcion.Text
Try
cGrabar.ExecuteNonQuery()
myConexion.CerrarConexion()
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
email Siga el debateRespuesta 1 respuestaRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Luis Miguel Blanco
13/07/2006 - 09:04 | Informe spam
Hola JReyes

El método ExecuteNonQuery() devuelve un valor numérico que indica la
cantidad de registros afectados por la operación/sentencia del comando.

En este caso, como estás insertando un registro, puedes comprobar que si te
devuelve el valor 1, el registro se ha añadido correctamente, y que ha habido
un error en caso contrario.

Espero que esto te sirva.
Un saludo
Luis Miguel Blanco
http://www.dotnetmania.com


"JReyes" wrote:

Como puedo darme cuenta si el registro que estoy grabando no esta en la base
de datos

este es mi codigo:

myConexion.AbrirConexion()
Dim cGrabar As OleDbCommand
cGrabar = New OleDbCommand("INSERT INTO AM_Medicamentos " & _
"(ID_Medicamentos,Medicamentos,Presentacion_Medicamentos,Descripcion_Medicamentos, " & _
"VALUES(@ID,@Nombre,@Presentacion,@Descripcion)", oSQLConn)

cGrabar.Parameters.Add("@ID", OleDbType.Numeric, 10).Value = txtCodigo.Text
cGrabar.Parameters.Add("@Nombre", OleDbType.VarChar, 50).Value =
txtNombre.Text
cGrabar.Parameters.Add("@Presentacion", OleDbType.VarChar, 255).Value =
txtPresentacion.Text
cGrabar.Parameters.Add("@Descripcion", OleDbType.VarChar, 50).Value =
txtDescripcion.Text
Try
cGrabar.ExecuteNonQuery()
myConexion.CerrarConexion()
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try

Preguntas similares

 

Busqueda sugerida :