Codigicacion para Guardar, Eliminar y Modificar en SQL.
'*
'*
'*
'* Ejemplo que contiene el código para accesar a una base de
'* dato desde una sola forma.
'*
'* Insertar, Actualizar, Borrar y Seleccionar Registros
'*
'* Es Necesario tener la referencia para accesar a la BD
'* la cual se asigna de la siguiente manera:
'* Menú Principal:
'*Proyecto --> Referencias |--> Microsoft DAO 3.6 Object Library
'*
'* Algunos conceptos
'* ==================
'* Recordset= Objeto que sirve para manipular los registros seleccionados
'* de la base de datos
'* SQL= Structure Query Lenguage (Lenguaje Estructurado de Consulta)
'* Me= cuando se coloca en el código 'Me.' es que se hace referencia a la forma
'* en la cual estamostrabajando, cuando ponemos 'Me.' es como si pusieramos
'* frmAcceso.
'* Ejemplo== Me.txtClave.Text=2
'* es igual a poner
'* frmAcceso.txtClave.Text=2
'* =========================================================================
'*********************************************************************************
' dbAcceso es una variable queinidica que se va a tratar de una BD
Dim dbAcceso As Database
' Variable de tipo texto(cadena) que recibe las sentecias SQL
Dim SQL As String
' Variable tipo Recordser que manipula ls registros seleccionados de la BD
Dim rsNombres As Recordset
Private Sub cmdActualizar_Click()
' Este botón va a realizar la actualización de datos del registro de la clave que
' se indique en la caja detexto de la clave
'Primero hay que verificar que hayan escritos algo en la caja de texto txtClave
If Trim(Me.txtClave.Text) = "" Then
MsgBox "Favor de Proporcionar una Clave a Borrar", vbExclamation, "Error"
Me.txtClave.SetFocus
Exit Sub
End If
SQL = "Select * From Nombres Where Clave = " & Me.txtClave.Text
Set rsNombres = dbAcceso.OpenRecordset(SQL)
If Not(rsNombres.BOF And rsNombres.EOF) Then
'UPDATE es la instrucción que sirve para actualizar los datos de los
' registros de la bd
' Su sintaxis es:
' UPDATE [Tabla de Origen de los Datos]
' SET [Los campos que se desean Actualizar] = [EL Valor de Actualización]
' en este caso cuando son muchos 2 o más campos
' al final del valor de actualizaciónse pone una coma (,)
' excepto al ultimo valor de actualización antes del WHERE
' WHERE [La condición para actualizar los registros]
' En el Where comunmente se pone como condición el campo clave de la tabla,
' ya que la clave es el identificador de cada registro y no se
' debe ni se puede actualizar.
' Cuando no se pone elWhere se actualizan los campos que se indicaron
' pero de todos los registros de la tabla que se indico
' Este código se ejecuta cuando hay registros en la tabla en la bd
' lo que quiere decir que se encontró la clave que se indico
' y se puede actualizar el registro
SQL = "UPDATE Nombres" & _
" SET Nombres ='" &Me.txtNombres.Text & "'," & _
" Apellidos='" & Me.txtApellidos.Text & "'" & _
" Where Clave = " & Me.txtClave.Text
dbAcceso.Execute (SQL)
MsgBox "Los Datos del Registro ha sido Actualizados", vbInformation, "Información"
'El registro ha sido actualizado
Else
MsgBox "No se encontró el registro que se busca", vbExclamation,"Error"
' MSGBOX "Mensaje", Icono del mensaje, "Titulo del mensaje"
' se invia el foco o cursor al text box clave
Me.txtClave.SetFocus
End If
End Sub
Private Sub cmdBorrar_Click()
' Este botón va a realizar el borrado del registro de la clave que
' se indique en la caja de texto de la clave
'Primero hay que verificar que hayan escritos algo en la caja de texto...
Regístrate para leer el documento completo.