MANUAL PARA CREAR BASES DE DATOS EN VISUAL

MANUAL PARA CREAR BASES
DE DATOS EN VISUAL STUDIO

ADO.NET

DIRIGIDO A:
Este manual esta dirigido a

Vamos a crear un sistema para llevar el control de las obras municipales, supongamos
que tenemos el siguiente formulario: Noregistros es una etiqueta llamada etposicion

txtclave
txtNombr
e
txtFech
a
txtinversion

btnprimer
o
btnanteri
or
btnsiguiente

btnAgregar

btnultimo

btnguardarbtneliminar

etposicio
n
GridView1

btnimprimir
btnsalir

Nombres de las cajas de Texto, botones y etiqueta
Txtclave
Txtnombre
Txtinversion
Txtfecha
btnAgregar
btnGuardar
btnImprimir
btnEliminar
btnSalir
etposicion

Lo primero que debemos hacer es nuestra base de datos en acces o sql server
según se necesite, en nuestro caso lo haremos en acces, entramos a acces y
hacemos los siguientespasos:

Guardamos nuestra base de datos, a la cual le ponemos obras en nuestra
carpeta, en este caso se guardo en la carpeta obras en la unidad c.

Crear tabla Obras, damos doble clic en Id y cambiamos el
nombre del campo a clave y cambiamos el tipo de dato de Auto
numérico a numérico.

Agregamos los siguientes campos, nombre, fecha e
inversión:

Para cambiar los tipos de datos es en la pestañamostrada a continuación:
Declaramos Clave auto numérico, nombre texto, fecha texto y inversión de tipo moneda.

Guardamos nuestra tabla y le ponemos el nombre de Datos.

Antes de salir de acces debemos de guardar nuestra base de
datos con compatibilidad de Office 2002-2003

En visual studio hacemos lo siguiente: Buscamos un control llamado OleDbDataAdapter para
hacer la conexión con acces. Si noesta en las herramientas tenemos que agregar el control. Para
agregarlo hacer lo siguiente: clic derecho sobre caja de herramientas y elegir choose items

Seleccionar los siguientes controles para
agregarlos:

Ahora agregamos un OleDbDataAdapter
formulario y seleccionamos New Connection.

a

nuestro

En esta pantalla debemos de cambiar el DataSource,
seleccionamos Change para elegir el driver deMicrosoft
Acces..

Seleccionamos Microsoft Acces Database

Seleccionamos nuestra base de datos y en la siguiente
pantalla damos clic en ok:

Al tener nuestra conexión damos clic en
siguiente:

Seleccionamos use sql statements y damos clic en
siguiente:

Damos clic en QueryBuilder

Aquí agregamos la tabla Datos.

Seleccionamos todas las columnas damos clic
en Ok:

Nos queda la consulta dela siguiente
manera y damos clic en Siguiente:

Damos clic en finalizar

Luego generamos un Dataset y damos
clic en ok.

Debemos de tener en la parte inferior nuestro
Oledbdataadapter,
Oledbconnection
y
dataset11

A continuación vincularemos las cajas de texto con nuestro dataset. Damos clic
derecho a la caja de texto del campo clave y buscamos la propiedad
Databinding, seleccionamos laporpiedad text y seleccionamos la opción como se
muestra en la figura: para cada caja de texto seleccionamos el campo
correspondiente.

Cambiar el nombre a Dataset11 por DsObras
y al OleDbDataAdapter por DaObras

Código del botón Primero donde DsObras es el nombre del
Dataset y Datos es el nombre de la tabla.
BindingContext(DsObras, “Datos").Position = 0
MostrarPosicion()

Código del botón SiguienteBindingContext(DsObras, “Datos").Position += 1
MostrarPosicion()

Código del botón Anterior
BindingContext(DsObras, “Datos").Position -= 1
MostrarPosicion()

Código del botón Ultimo
BindingContext(DsObras, “Datos").Position = _
BindingContext(DsObras, “Datos").Count - 1
MostrarPosicion()

Agregamos a nuestro código el procedimiento de
MostrarPosicion
Private Sub MostrarPosicion()
Dim bmBase AsBindingManagerBase =
BindingContext(DsObras, “Datos")
Dim iTotal As Integer = bmBase.Count 'total registros
Dim iPos As Integer
If iTotal = 0 Then
etPosicion.Text = "No registros"
Else
iPos = bmBase.Position + 1 'número (1, 2, ...) de registro
'Mostrar información en la etiqueta
etPosicion.Text = iPos.ToString & " de " & iTotal.ToString
End If
End Sub

Código del botón Agregar
Me.txtClave.Text =...