INSERT, UPDATE, DELETE

"Carlos Carrasco D." escribió:
Mostrar la cita

Me podrian ayudar en el sentido al codigo de un recordset para hacer
mantencion a una tabla en SQL:

**************************************** (General declaraciones)
Option Explicit
Dim cnn1 As Connection
Dim WithEvents rs1 As Recordset
**************************************** Esto esta bien ?

Hola, Carlos

Las declaraciones están correctas.

Mostrar la cita

existen botones q permite:

Agregar, Modificar, eliminar.

Cual es el codigo q corresponde

Para añadir un registro
=Private Sub cmdAdd_Click()

' Añadimos un registro
With rs1
.AddNew
!cod_emp = txt_1.Text
!rut_emp = txt_2.Text
!nom_emp = txt_3.Text
.Update
End With

End Sub

Para eliminar un registro
==
En primer lugar, tendrás que especificar el registro que deseas eliminar. El
siguiente código presupone que es el registro actualmente activo:

Private Sub cmdDelete_Click()

Dim iResp As Integer

iResp = MsgBox("¿Deseas eliminar el registro?", vbYesNo, _
"Eliminar registro")

If iResp = vbYes Then
' Eliminamos el registro
rs1.Delete
End If

End Sub

Para modificar un registro

Al igual que lo indicado para eliminar un registro, debes saber de antemano
el registro que deseas actualizar. El siguiente código actualizará el
registro activo:

Private Sub cmdUpdate_Click()

' Modificamos el registro activo
With rs1
!cod_emp = txt_1.Text
!rut_emp = txt_2.Text
!nom_emp = txt_3.Text
.Update
End With

End Sub

Eso es todo. Para más información, consulta en la ayuda de ADO los
siguientes métodos del objeto «Recordset»: «AddNew», «Delete», «Update» y
«Find», éste último para buscar el registro que deseas eliminar o
actualizar.

Un saludo.

Enrique Martínez
[MS MVP - VB]