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

Entradas populares de este blog

Relación de tablas en SQL Server de forma grafica

Uso de la clase "Choice group"

Imagenes dinamicas en Crystal Reports