Insertar o modificar un registro
Insertar o modificar un registro
Es codigo sirve para insertar un registro o modificar datos del mismo como ejemplo pongo la tabla de usuarios donde se modifica el registro por medio de el campo usuario como llave primaria. Aqui el codigo de ejemplo:
Dim cnSQL As SqlConnection
Dim cmSQL As SqlCommand
Dim sSQL As String
Dim sCadenaConexion As String = "Data Source=(local);Initial Catalog=Prueba;Integrated Security=True"
cnSQL = New SqlConnection(sCadenaConexion)
cnSQL.Open()
If Not btnNuevo.Enabled Then
sSQL = "INSERT INTO Usuarios (usuario, nombre, clave, tipo) " & _
"VALUES ('" & txtUsuario.Text & "','" & txtNombre.Text & "'.'" & txtClave.Text & "','" & cboTipo.Text & "')"
Else
sSQL = "UPDATE Usuarios Set Usuario='" & txtUsuario.Text & "',nombre='" & txtUsuario.Text & "', " & _
"clave='" & txtClave.Text & "',tipo='" & cboTipo.Text & "'"
End If
cmSQL = New SqlCommand(sSQL, cnSQL)
cmSQL.ExecuteNonQuery()
cnSQL.Close()
MessageBox.Show("Informacion actualizada exitosamente.....")
btnNuevo.Enabled = True : btnGuardar.Enabled = True : btnEliminar.Enabled = True
Comentarios
Publicar un comentario