MANTENIMIENTO REGISTROS - ADO .NET CON ACCESS

Para observar bien, sólo pulsa clic sobre la imagen.

* Observa bien el cuerpo principal del código.



* Observa el código dentro del evento FORM.LOAD


1.  INSERTAR REGISTROS


* Insertar el código dentro del Botón - GUARDAR


2.  ACTUALIZAR REGISTROS



* Insertar el código dentro del Botón - ACTUALIZAR


3.  ELIMINAR REGISTROS



* Insertar el código dentro del Botón - VER



* Insertar el código dentro del Botón - ELIMINACION


4.  LISTAR REGISTROS


* Insertar el código dentro del Botón - LISTAR


Consulta usando Procedimiento Almacenado

ESTRUCTURA DE LA BASE DE DATOS
create database matriculas

use matriculas
create table alumnos
(cod varchar(2) primary key,
nom varchar(10),
ape varchar(10),
dir varchar(20),
)


insert into
alumnos values ('01','Luis','Castro','Callao')insert into alumnos values ('02','Diana','Montes','Olivos')insert into alumnos values ('03','Carlos','Perez','Cercado')insert into alumnos values ('04','Sofia','Valderrama','Olivos')insert into alumnos values ('05','Miguel','Osorio','Surco')

select * from
alumnos

/*CREACION DEL PRIMER PROCEDIMIENTO ALMACENADO*/
create procedure codigos1
as
select cod
from
alumnos

/* EJECUTA PROCEDIMIENTO*/
exec
codigos1

/*CREACION DEL SEGUNDO PROCEDIMIENTO ALMACENADO*/
create procedure codigos
@xcod varchar(5)

as
select nom, ape, dir
from
alumnos
where cod = @xcod

/* EJECUTA PROCEDIMIENTO*/
exec codigos '04'


APLICACION EN VISUAL .NET


Imports System.Data.SqlClient

Public Class Form1
Dim cn As New SqlConnection
Dim cadena As String = "Data Source=TALLER-106\SQLEXPRESS; Initial Catalog=Matriculas; Integrated Security=True"

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) H...
cn.ConnectionString = cadena
Dim cmd As New SqlCommand
cmd.Connection = cn

Dim da As New SqlDataAdapter
da.SelectCommand = cmd
Dim ds As New DataSet

'CARGA LOS CODIGOS COMBOBOX1
Dim cmd1 As New SqlCommand("CODIGOS1", cn)
With cmd1
.CommandType = CommandType.StoredProcedure
Dim da1 As New SqlDataAdapter(cmd1)
Dim dt1 As New DataTable
da1.Fill(dt1)
ComboBox1.DataSource = dt1
ComboBox1.DisplayMember = "COD"
End With

End Sub


Private Sub ComboBox1_SelectedValueChanged(ByVal sender As Object, ByVal ....
Dim cmd2 As New SqlCommand("CODIGOS", cn)
TextBox1.DataBindings.Clear()
TextBox2.DataBindings.Clear()
TextBox3.DataBindings.Clear()
With cmd2
.CommandType = CommandType.StoredProcedure
.Parameters.Add(New SqlParameter("@xcod", ComboBox1.Text))

Dim da2 As New SqlDataAdapter(cmd2)
Dim dt2 As New DataTable

da2.Fill(dt2)
TextBox1.DataBindings.Add(New Binding("Text",
dt2, "NOM"))
TextBox2.DataBindings.Add(New
Binding("Text", dt2, "APE"))
TextBox3.DataBindings.Add(New
Binding("Text", dt2, "DIR"))
End With

End Sub

End Class

NOTAS:

* Recuerda modificar por tu conexión local.

Data Source=TALLER-106\SQLEXPRESS

CREACION DE TRIGGERS

* CREAR LA NUEVA BASE DE DATOS DEMO3

* PROCEDER A CREAR NUESTRO PRIMER TRIGGER


* AL INSERTAR UN DATO EN NUESTRA TABLA ALUMNOS SE ACTIVA EL TRIGGER Y NOS MUESTRA EL SIGUIENTE MENSAJE.


* PROCEDER A CREAR NUESTRA TABLA NOTAS, QUE USAREMOS EN NUESTRO SEGUNDO EJEMPLO DE TRIGGER.

* CREACION DE NUESTRO SEGUNDO TRIGGER.

AL INSERTAR DATOS EN NUESTRA TABLA ALUMNOS, SE INSERTAN ASU VEZ
REGISTROS EN NUESTRA TABLA NOTAS.

* CONSULTA DE NUESTRA SEGUNDA TABLA

* Cualquier consulta, postela aquí. Gracias.

APLICACION USANDO PROCEDIMIENTO ALMACENADO

Esta aplicación Usa dos Procedimientos almacenados :

1. Combobox1 : dónde llama al procedimiento llamado AREAS

2. DATAGRID21 : dónde llama al procedimiento llamado LISTAS







PROCEDIMIENTOS ALMACENADOS

CREAR LA SIGUIENTE BASE DE DATOS:




LUEGO CREAR LOS SIGUIENTES 2 PROCEDIMIENTOS ALMACENADOS:


DATARELATION




SQL



CREATE DATABASE DBDEMO

USE DBDEMO

CREATE TABLE DOCENTES
(COD INT Primary key,
NOM varchar(15),
APE varchar(15),
CODESP int,
)


insert into DOCENTES values(1, 'Juan','Perez',1)
insert into DOCENTES values(2, 'Diana','Campos',1) insert into DOCENTES values(3, 'Mirian','Suarez',2) insert into DOCENTES values(4, 'David','Altamirano',3) insert into DOCENTES values(5, 'Angel','Montes',4)

Select * From DOCENTES

CREATE TABLE ESPECIALIDAD
(CODESP INT Primary key,
DES varchar(15),
)

insert into ESPECIALIDAD values(1, 'Ing. Sistemas')
insert into ESPECIALIDAD values(2, 'Administrador') insert into ESPECIALIDAD values(3, 'Contabilidad') insert into ESPECIALIDAD values(4, 'Economía')
Select * From ESPECIALIDAD




CODIGO VISUAL BASIC .NET



Imports System.Data
Imports System.Data.SqlClient

Public Class Form1
Private Sub Form1_Load

Dim cn As New SqlConnection
Dim cadena As String
cadena = "Data Source='localhost'; Initial Catalog=DBDEMO; Integrated Security=True"
cn.ConnectionString = cadena

Dim cmd As New SqlCommand
cmd.Connection = cn

Dim da As New SqlDataAdapter
da.SelectCommand = cmd

Dim ds As New DataSet

'CARGA DATOS TABLA ESPECIALIDAD
cmd.CommandText = "Select * from ESPECIALIDAD order by des"
da.Fill(ds, "ESPECIALIDAD")

DataGridView1.DataSource = ds.Tables("ESPECIALIDAD")

'CARGA DATOS TABLA DOCENTE
cmd.CommandText = "Select * from DOCENTES order by nom"
da.Fill(ds, "DOCENTES")

DataGridView2.DataSource = ds.Tables("DOCENTES")

'CREA LAS RELACIONES
Dim relacion As DataRelation
Dim principal, secundario As DataColumn

principal = ds.Tables("ESPECIALIDAD").Columns("CODESP")
secundario = ds.Tables("DOCENTES").Columns("CODESP")

relacion = New DataRelation("RELACION1", principal, secundario)

ds.Relations.Add(relacion)

DataGridView3.DataSource = ds

End Sub
End Class