GUÍA DE ESTUDIO

VISUAL STUDIO 2012 (VISUAL BASIC)

ING. MILLÁN M. NELSYMAR C. ESP.

El propósito de la presente guía, es servir como recurso de apoyo a estudiantes-investigadores que

apliquen en el área de la Programación Orientada a Objeto, para la obtención de nuevos
conocimientos mediante aplicaciones como programas destinados para tal fin. En ese sentido, se
enfatiza en Visual Basic fin de realizar programas, sistemas, aplicaciones empleadas o utilizadas
en cada estudio y otorgarles la debida rigurosidad dentro de los ámbitos estudiantil como
empresarial.

Para dar inicio, es primordial contar con el programa ya previamente instalado.

0.- Ir al menú inicio ubicar Microsoft Visual Studio 2012,

dar click.
De igual modo, se puede tener un acceso directo en el
escritorio de la computadora para ser más eficiente y
rápido el proceso.

1.- Al abrir el programa aparece la

pantalla mostrada del lado izquierdo,
allí aparece un sub menú, donde se
presiona click en donde dice Nuevo
Proyecto.

2.- Luego se mostrará una ventana

en el cual se visualiza las
aplicaciones instaladas como una
breve descripción de las funciones
que realizan. La cual se muestra en
la siguiente figura:
GUÍA DE ESTUDIO
VISUAL STUDIO 2012 (VISUAL BASIC)
ING. MILLÁN M. NELSYMAR C. ESP.

3.- Siguiendo
se procede a
ubicar el
punto Otros
Lenguajes,
donde se
presiona
para dar
click,
desglosando
un sub menú
donde se
ubica Visual
Basic.

4.- En el cual
se selecciona
Visual Basic, seguidamente en el visor se mostrarán las aplicaciones que requiere para utilizar el
programa seleccionado

5.- Donde, se selecciona Aplicación de

Windows Forms, procede a dar click en
Aceptar.

6.- Luego se abre una nueva ventana en

el cual se da inicio a la interfaz gráfica
amigable del programa, presentada a
continuación, la cual cuenta con lo
siguiente:

a) Espacio del Form para su Diseño: En

el cual se diseña la aplicación según
desee el programador.
b) Cuadro de Herramientas: son los objetos, controles o botones a usar por el programador.
c) Cuadro de Propiedades: en él se visualiza una breve descripción de cada objetos, controles
o botones
d) Explorador de aplicaciones: se visualiza las aplicaciones abiertas dentro del proyecto.
GUÍA DE ESTUDIO
VISUAL STUDIO 2012 (VISUAL BASIC)
ING. MILLÁN M. NELSYMAR C. ESP.

a
d b

De esta manera, dada la breve introducción al inicio del programa como familiarizarse con la
ventada para desarrollar los sistemas:

¡COMENCEMOS A PROGRAMAR!
En primer lugar, es importante que el usuario o programador, ajuste el formulario como desee
trabajar, el mismo lo puede realizar de dos formas:

1.- La forma tradicional, seleccionar el Form, dar click en una de la esquina permitiendo
arrastrar hasta el tamaño deseado.

2.- Ubicar en el cuadro de propiedades, la característica SIZE, la cual permite colocar el

tamaño a través de los números mediante la siguiente estructura: XXX; XXX, dando enter para
que el programa ajuste el formulario.
GUÍA DE ESTUDIO
VISUAL STUDIO 2012 (VISUAL BASIC)
ING. MILLÁN M. NELSYMAR C. ESP.
Ahora bien, se debe colocar dentro del formulario los botones deseados para la programación para
ello con el siguiente ejemplo comenzaremos el primer programa en Visual Basic.

1.- Para insertar los controles es necesario tener visible el cuadro de herramientas, donde se
pueden emplear tres métodos:
a) Dando doble click en el control deseado.
b) Seleccionándolo en el cuadro herramientas, presionar manteniéndolo de esa forma,
arrastrándolo hasta el formulario dando la ubicación requerida.
c) Si se desean más controles u objetos del mismo modelo, permítase copiar y pegar uno que
ya se encuentre en el formulario.

2.- Ingresado los controles deseados, se procede a programar, para ello se requiere hacer doble
click en el control que vaya a realizar la función. Donde se apertura la siguiente ventana

a b
c

3.- En esa ventana, se visualiza lo siguiente:

a) Los controles ingresados en la parte de diseño.
b) Los eventos que se desean realizar con el control seleccionado.
c) El área de colocar métodos, algoritmo, permitiendo la funcionalidad del control.
GUÍA DE ESTUDIO
VISUAL STUDIO 2012 (VISUAL BASIC)
ING. MILLÁN M. NELSYMAR C. ESP.

4.- Se procede a programar, de la siguiente manera: en el espacio donde aparece el cursor se debe
comenzar colocando el nombre del control, seguido de un punto, en el cual se desglosará una lista
de eventos que permitirá seleccionar el adecuado para el momento.

NOTA: Al igual que con el cuadro de propiedades, al momento de desglosar la lista en el cual se
visualiza el funcionamiento de las misma.

5.- Luego de haber codificado se procede a realizar las pruebas necesarias del programa, a través
de la ejecución. Dando click en el botón INICIAR que se ubica en la barra de herramientas principal.

6.- En el cual se muestra el ejecutable:

7.- ¡FELICIDADES!
Se ha realizado el primer programa ejecutado en
Visual Basic Studio.
GUÍA DE ESTUDIO
VISUAL STUDIO 2012 (VISUAL BASIC)
ING. MILLÁN M. NELSYMAR C. ESP.
Por otra parte, es importante resaltar que para programar en dicho lenguaje es importante coordinar
y organizar la codificación dentro de los controles o herramientas que se deseen manipular como
la información que se desee expresar.

Dando continuidad, se establecen las estructuras de control, en relación a ello, se muestran los
siguientes ejemplos, donde se visualizan las funciones que realizan.-

Calculadora.-

Public Class Form1

Private Sub Form1_Load(sender As Object, e As EventArgs)

Handles [Link]
Cb_operador.SelectedItem = Cb_operador.[Link](0)
End Sub

Private Sub Btresultado_Click(sender As Object, e As

EventArgs) Handles [Link]
Dim value1, value2 As Double
Dim result As Double = 0
Dim mioperador As String = Cb_operador.SelectedItem
//Realizan la declaración de Variables
value1 = Val([Link])
value2 = Val([Link])

//Se emplea una estructura de selección doble, enfocada en el

control ComboBox, donde se desglosan las operaciones
aritméticas a ejecutar.

If ([Link]("+")) Then
result = value1 + value2
ElseIf ([Link]("-")) Then
result = value1 - value2
ElseIf ([Link]("*")) Then
result = value1 * value2
ElseIf ([Link]("/")) Then
result = value1 / value2
End If

[Link] = result
lb_resultados.[Link](result)

End Sub

Private Sub bt_clear_Click(sender As Object, e As EventArgs) Handles bt_clear.Click

lb_resultados.[Link]()
[Link] = ""
[Link] = ""
[Link] = ""
MsgBox("Has limpiado la lista con éxito")
End Sub
End Class
GUÍA DE ESTUDIO
VISUAL STUDIO 2012 (VISUAL BASIC)
ING. MILLÁN M. NELSYMAR C. ESP.
Otro Ejemplo.- Reproductor de Imágenes empleando la estructura Case

Public Class Form2

Dim selector As Integer = 0
Dim cantidadImagenes As Integer = 6

Private Sub Cambiar_Imagen(siguiente As Boolean)

If (siguiente) Then
selector = (selector + 1) Mod cantidadImagenes
Else
If (selector = 0) Then
selector = (cantidadImagenes - 1)
Else
selector = (selector - 1) Mod cantidadImagenes
End If
End If

Select Case (selector)

Case 0
Pb_Principal.Image = [Link].Boku_no_Hero_Academia_All_Might_2
Case 1
Pb_Principal.Image = [Link].BokuNoHERO01
Case 2
Pb_Principal.Image = [Link].Fire_Emblem_Super_Smash_Bros_Ultimate_3
Case 3
Pb_Principal.Image = [Link].Ichigo_vs_Ulquiorra
Case 4
Pb_Principal.Image = [Link].Ike__Radiant_Dawn_Super_Smash_Bros_Ultimate
Case 5
Pb_Principal.Image = [Link].Naruto_y_Minato
End Select

[Link] = selector
End Sub

Private Sub btn_siguiente_Click(sender As Object, e As EventArgs) Handles btn_siguiente.Click

Cambiar_Imagen(True)
End Sub

Private Sub btn_atras_Click(sender As Object, e As EventArgs) Handles btn_atras.Click

Cambiar_Imagen(False)
End Sub

Private Sub Form2_Load(sender As Object, e As EventArgs) Handles [Link]

End Sub

End Class

La cual a medida que se presionan los botones de la flecha, cambia la imagen a mostrar. Asi como
también muestra el número de la imagen mostrada.
GUÍA DE ESTUDIO
VISUAL STUDIO 2012 (VISUAL BASIC)
ING. MILLÁN M. NELSYMAR C. ESP.

Otra manera de ejecutar una calculadora con estructuras de control

ublic Class Calculadora2

Dim var1 As Double = 0.0
Dim var2 As Double = 0.0
Private signo As String

'--NUMEROS--'
Private Sub btn0_Click(sender As Object, e As EventArgs) Handles [Link]
[Link] = [Link] & "0"
End Sub

Private Sub btn1_Click(sender As Object, e As EventArgs) Handles [Link]

[Link] = [Link] & "1"
End Sub

Private Sub btn2_Click(sender As Object, e As EventArgs) Handles [Link]

[Link] = [Link] & "2"
End Sub

Private Sub btn3_Click(sender As Object, e As EventArgs) Handles [Link]

[Link] = [Link] & "3"
End Sub

Private Sub btn4_Click(sender As Object, e As EventArgs) Handles [Link]

[Link] = [Link] & "4"
End Sub

Private Sub btn5_Click(sender As Object, e As EventArgs) Handles [Link]

[Link] = [Link] & "5"
End Sub

Private Sub btn6_Click(sender As Object, e As EventArgs) Handles [Link]

[Link] = [Link] & "6"
End Sub

Private Sub btn7_Click(sender As Object, e As EventArgs) Handles [Link]

[Link] = [Link] & "7"
End Sub

Private Sub btn8_Click(sender As Object, e As EventArgs) Handles [Link]

[Link] = [Link] & "8"
End Sub

Private Sub btn9_Click(sender As Object, e As EventArgs) Handles [Link]

[Link] = [Link] & "9"
End Sub
GUÍA DE ESTUDIO
VISUAL STUDIO 2012 (VISUAL BASIC)
ING. MILLÁN M. NELSYMAR C. ESP.

'SIGNOS'
Private Sub btnMas_Click(sender As Object, e As EventArgs) Handles [Link]
var1 = Val([Link])
signo = "+"
[Link]()
End Sub

Private Sub btnMenos_Click(sender As Object, e As EventArgs) Handles [Link]

var1 = Val([Link])
signo = "-"
[Link]()
End Sub

Private Sub btnPor_Click(sender As Object, e As EventArgs) Handles [Link]

var1 = Val([Link])
signo = "X"
[Link]()
End Sub

Private Sub btnEntre_Click(sender As Object, e As EventArgs) Handles [Link]

var1 = Val([Link])
signo = "/"
[Link]()
End Sub

Private Sub btnBorrar_Click(sender As Object, e As EventArgs) Handles [Link]

[Link]()
var1 = Nothing
var2 = Nothing
signo = [Link]
End Sub

Private Sub btnMasmenos_Click(sender As Object, e As EventArgs) Handles [Link]

[Link] = [Link] * (-1)
End Sub

Private Sub calculadora()

Select Case signo
Case "+"
[Link] = var1 + var2
Case "-"
[Link] = var1 - var2
Case "/"
[Link] = var1 / var2
Case "X"
[Link] = var1 * var2
Case Else
MsgBox("Error")
End Select
End Sub

Private Sub btnIgual_Click(sender As Object, e As EventArgs) Handles [Link]

var2 = [Link]
calculadora()
[Link]([Link])
End Sub
GUÍA DE ESTUDIO
VISUAL STUDIO 2012 (VISUAL BASIC)
ING. MILLÁN M. NELSYMAR C. ESP.
Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles [Link]
[Link]()
[Link] = True
End Sub

Private Sub btnBorrarH_Click(sender As Object, e As EventArgs) Handles [Link]

[Link]()
End Sub
End Class

Ejercicio N° 3

Public Class LoginForm1

' TODO: inserte el código para realizar autenticación personalizada usando el nombre de usuario
y la contraseña proporcionada
' (Consulte [Link]
' El objeto principal personalizado se puede adjuntar al objeto principal del subproceso actual
como se indica a continuación:
' [Link] = CustomPrincipal
' donde CustomPrincipal es la implementación de IPrincipal utilizada para realizar la
autenticación.
' Posteriormente, [Link] devolverá la información de identidad encapsulada en el objeto
CustomPrincipal
' como el nombre de usuario, nombre para mostrar, etc.

Private Sub OK_Click(ByVal sender As [Link], ByVal e As [Link]) Handles

[Link]
If [Link] = "Username" And [Link] = "Password" Then
[Link]()
[Link]()
Else
GUÍA DE ESTUDIO
VISUAL STUDIO 2012 (VISUAL BASIC)
ING. MILLÁN M. NELSYMAR C. ESP.
MsgBox("Lo siento pero los datos que ingresaste son incorrectos", [Link],
"invalido")
End If
End Sub

Private Sub Cancel_Click(ByVal sender As [Link], ByVal e As [Link]) Handles

[Link]
[Link]()
End Sub
End Class

Public Class Form1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles [Link]

[Link]()
[Link]()
End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles [Link]

[Link]()
[Link]()
MsgBox("Las identidades trigonometricas y las raizes se manejan solo con el 1 valor
solamente")
End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles [Link]

[Link]()
[Link]()
End Sub

Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles [Link]

End Sub
End Class
GUÍA DE ESTUDIO
VISUAL STUDIO 2012 (VISUAL BASIC)
ING. MILLÁN M. NELSYMAR C. ESP.

Public Class Form2

Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles

[Link]
If [Link] = "Visual Basic" Then
[Link] = "Visual Basic es un lenguaje de programacón ubicado en Visual Studio
capaz de combinar una interfaz con algoritmos programables para crear programas ejecutables con una
interfaz amigable."
End If
If [Link] = "Cpu" Then
[Link] = "CPU o Central Process Unit es considerado el cerebro del
computador, realizando operaciones aritmética-lógicas y permitiendo computar las actividades
dándoles velocidad."
End If
If [Link] = "Disco Duro" Then
[Link] = "El Disco Duro es una unidad de almacenamiento donde se aloja la
información para ser ejecutada en un computador y ser mostrada. Esta información se mantiene al
reiniciarse el computador."
End If
If [Link] = "Computador" Then
[Link] = "Un computador es un equipo capaz de mostrar mediante algoritmos
programados una serie de informaciones. Actualmente, estos códigos programados dan lugar a una
interfaz moderna y son usados para muchas actividades en la vida cotidiana."
End If
If [Link] = "RAM" Then
[Link] = "La memoria RAM o Random Access Memory es una unidad de
almacenamiento de información aleatoria que es suprimida una vez el computador es reiniciado. Esta
unidad permite almacenar la información de los programas y ejecutarlos."
End If
End Sub

Private Sub Label1_Click(sender As Object, e As EventArgs) Handles [Link]

[Link]()
[Link]()
End Sub
End Class
GUÍA DE ESTUDIO
VISUAL STUDIO 2012 (VISUAL BASIC)
ING. MILLÁN M. NELSYMAR C. ESP.

Public Class Form3

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles [Link]

If [Link] = "" Or [Link] = "" Then
MsgBox("Falta el 1er o el 2do valor")
Else
[Link] = Val([Link]) + Val([Link])
End If
End Sub

Private Sub Multiplicacion_Click(sender As Object, e As EventArgs) Handles [Link]

If [Link] = "" Or [Link] = "" Then
MsgBox("Falta el 1er o el 2do valor")
Else
[Link] = Val([Link]) * Val([Link])
End If
End Sub

Private Sub Resta_Click(sender As Object, e As EventArgs) Handles [Link]

If [Link] = "" Or [Link] = "" Then
MsgBox("Falta el 1er o el 2do valor")
Else
[Link] = Val([Link]) - Val([Link])
End If
End Sub

Private Sub Division_Click(sender As Object, e As EventArgs) Handles [Link]

If [Link] = "" Or [Link] = "" Then
MsgBox("Falta el 1er o el 2do valor")
Else
[Link] = Val([Link]) / Val([Link])
End If
End Sub

Private Sub Pow_Click(sender As Object, e As EventArgs) Handles [Link]

If [Link] = "" Or [Link] = "" Then
MsgBox("Falta el 1er o el 2do valor")
Else
[Link] = Val([Link](x:=[Link], y:=[Link]))
End If
End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles [Link]

If [Link] = "" Then
GUÍA DE ESTUDIO
VISUAL STUDIO 2012 (VISUAL BASIC)
ING. MILLÁN M. NELSYMAR C. ESP.
MsgBox("Falta el 1er o el 2do valor")
Else
[Link] = Val([Link]([Link]))
End If
End Sub

Private Sub Coseno_Click(sender As Object, e As EventArgs) Handles [Link]

If [Link] = "" Then
MsgBox("Falta el 1er o el 2do valor")
Else
[Link] = Val([Link]([Link]))
End If
End Sub

Private Sub Seno_Click(sender As Object, e As EventArgs) Handles [Link]

If [Link] = "" Then
MsgBox("Falta el 1er valor")
Else
[Link] = Val([Link]([Link]))
End If
End Sub

Private Sub Tangente_Click(sender As Object, e As EventArgs) Handles [Link]

If [Link] = "" Then
MsgBox("Falta el 1er valor")
Else
[Link] = Val([Link]([Link]))
End If
End Sub
Private Sub Resultado_TextChanged(sender As Object, e As EventArgs) Handles
[Link]

End Sub

Private Sub Volver_Click(sender As Object, e As EventArgs) Handles [Link]

[Link]()
[Link]()
End Sub

Private Sub Form3_Load(sender As Object, e As EventArgs) Handles [Link]

End Sub
End Class
GUÍA DE ESTUDIO
VISUAL STUDIO 2012 (VISUAL BASIC)
ING. MILLÁN M. NELSYMAR C. ESP.
Public Class Form4

Private Sub Label1_Click(sender As Object, e As EventArgs) Handles [Link]

End Sub

Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles [Link]

End Sub

Private Sub CheckBox6_CheckedChanged(sender As Object, e As EventArgs) Handles

[Link]

End Sub

Private Sub CheckBox11_CheckedChanged(sender As Object, e As EventArgs) Handles

[Link]

End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles [Link]

Dim total As String = ""
Dim valor1 As Integer
Dim valor2 As Integer
Dim valor3 As Integer
Dim valor4 As Integer
Dim valor5 As Integer
Dim valor6 As Integer
Dim valor7 As Integer
Dim valor8 As Integer
Dim valor9 As Integer
Dim valor10 As Integer
Dim valor11 As Integer
Dim valor12 As Integer
Dim valor13 As Integer
Dim valor14 As Integer
Dim valor15 As Integer
If [Link] = True Then
valor1 = 70
[Link] = True
Else
valor1 = 0
[Link] = False
End If
If [Link] = True Then
valor2 = 100
[Link] = True
Else
valor2 = 0
[Link] = False
End If
If [Link] = True Then
valor3 = 86
[Link] = True
Else
valor3 = 0
[Link] = False
End If
If [Link] = True Then
valor4 = 50
GUÍA DE ESTUDIO
VISUAL STUDIO 2012 (VISUAL BASIC)
ING. MILLÁN M. NELSYMAR C. ESP.
[Link] = True
Else
valor4 = 0
[Link] = False
End If
If [Link] = True Then
valor5 = 100
[Link] = True
Else
valor5 = 0
[Link] = False
End If
If [Link] = True Then
valor6 = 150
[Link] = True
Else
valor6 = 0
[Link] = False
End If
If [Link] = True Then
valor7 = 240
[Link] = True
Else
valor7 = 0
[Link] = False
End If
If [Link] = True Then
valor8 = 75
[Link] = True
Else
valor8 = 0
[Link] = False
End If
If [Link] = True Then
valor9 = 160
[Link] = True
Else
valor9 = 0
[Link] = False
End If
If [Link] = True Then
valor10 = 240
[Link] = True
Else
valor10 = 0
[Link] = False
End If
If [Link] = True Then
valor11 = 70
[Link] = True
Else
valor11 =
[Link] = False
End If
If [Link] = True Then
valor12 = 200
[Link] = True
Else
valor12 = 0
[Link] = False
GUÍA DE ESTUDIO
VISUAL STUDIO 2012 (VISUAL BASIC)
ING. MILLÁN M. NELSYMAR C. ESP.
End If
If [Link] = True Then
valor13 = 140
[Link] = True
Else
valor13 = 0
[Link] = False
End If
If [Link] = True Then
valor14 = 234
[Link] = True
Else
valor14 = 0
[Link] = False
End If
If [Link] = True Then
valor15 = 113
[Link] = True
Else
valor15 = 0
[Link] = False
End If
total = Val(valor1) + Val(valor2) + Val(valor3) + Val(valor4) + Val(valor5) + Val(valor6) +
Val(valor7) + Val(valor8) + Val(valor9) + Val(valor10) + Val(valor11) + Val(valor12) + Val(valor13)
+ Val(valor14) + Val(valor15)
[Link] = "Su compra hace en total " & total & "$"
End Sub

Private Sub Label18_Click(sender As Object, e As EventArgs) Handles [Link]

[Link]()
[Link]()
End Sub
End Class

UNIDAD III INTRODUCCION A LA CONEXIÓN DE LA BASES DE DATOS

Para llevar a cabo la siguiente unidad, es pertinente conocer o crear un base de datos en
Microsoft Access, dicho programa se encuentra en la paquetería de ofimática office.
Al abrir la aplicación se muestra la siguiente pantalla en blanco
GUÍA DE ESTUDIO
VISUAL STUDIO 2012 (VISUAL BASIC)
ING. MILLÁN M. NELSYMAR C. ESP.
Para comenzar a la creación deben ir a la barra menú, hacer clic en tipo de vista, colocar la
vista diseño.

Se apertura una ventana con el siguiente mensaje:

Donde se coloca el nombre de la tabla a crear, y das click en

Aceptar. Donde mostrara la siguiente ventana.-

En la cual se colocaran los nombres de los campos, y el tipo de datos que será utilizado. Luego
en la misma barra menú para cambiar la vista a la tabla creada, emitirá un mensaje de guardar
tabla, y mostrara la ventana siguiente:
GUÍA DE ESTUDIO
VISUAL STUDIO 2012 (VISUAL BASIC)
ING. MILLÁN M. NELSYMAR C. ESP.

Finalizada la creación de la tabla, se guarda la base de datos en Access, acá en este punto
debe estar muy pendiente donde o en que carpeta se guardó la misma, pues será el punto de
partida para el enlace con Visual Basic Studio.
En relación a ello, teniendo abierta la aplicación de Visual Basic
Crear un conjunto de información para un archivo. accdb
Conéctese a las bases de datos creadas con Office 365, Access 2013, Access 2010 o Access 2007
mediante el procedimiento siguiente.
Abra un proyecto de aplicación de Windows Forms o WPF en Visual Studio.
Para abrir la ventana orígenes de datos , en el menú Ver , seleccione otras ventanas > orígenes de
datos.

En la ventana Orígenes de datos , seleccione Agregar nuevo origen de datos.

Se abrirá el Asistente para configuración de orígenes de datos.
Seleccione base de datos en la página elegir un tipo de origen de datos y, a continuación,
seleccione siguiente.
Seleccione conjunto de datos en la página elegir un modelo de base de datos y, a continuación,
seleccione siguiente.
En la página Elegir la conexión de datos, seleccione Nueva conexión para configurar una nueva
conexión de datos.
Se abrirá el cuadro de diálogo Agregar conexión.
GUÍA DE ESTUDIO
VISUAL STUDIO 2012 (VISUAL BASIC)
ING. MILLÁN M. NELSYMAR C. ESP.
Si el origen de datos no está establecido en el archivo de base de datos de Microsoft Access (OLE
DB) , seleccione el botón cambiar .
Se abrirá el cuadro de diálogo cambiar origen de datos . En la lista de orígenes de datos, elija Archivo
de base de datos de Microsoft Access. En el menú desplegable proveedor de datos , seleccione .NET
Framework proveedor de datos para OLE DBy, después, elija Aceptar.
Elija examinar junto a nombre de archivo de base de datosy, a continuación, navegue hasta el archivo .
accdb y elija abrir.
Escriba un nombre de usuario y una contraseña (si es necesario) y, a continuación, elija Aceptar.
Seleccione siguiente en la página elegir la conexión de datos .
Es posible que aparezca un cuadro de diálogo que le indica que el archivo de datos no está en el
proyecto actual. Seleccione Sí o No.
Seleccione siguiente en la página Guardar cadena de conexión en el archivo de configuración de la
aplicación .
Expanda el nodo Tablas en la página Elija los objetos de base de datos.
Seleccione las tablas o vistas que desea incluir en el conjunto de DataSet y, a continuación,
seleccione Finalizar.
El conjunto de datos se agrega al proyecto y las tablas y las vistas aparecen en la ventana Orígenes
de datos.
Crear un conjunto de archivos para un archivo. mdb
Conéctese a las bases de datos creadas con Access 2000-2003 mediante el procedimiento siguiente.
Abra un proyecto de aplicación de Windows Forms o WPF en Visual Studio.

En el menú Ver , seleccione otras ventanas > orígenes de datos.

En la ventana Orígenes de datos , seleccione Agregar nuevo origen de datos.
Se abrirá el Asistente para configuración de orígenes de datos.
Seleccione base de datos en la página elegir un tipo de origen de datos y, a continuación,
seleccione siguiente.
Seleccione conjunto de datos en la página elegir un modelo de base de datos y, a continuación,
seleccione siguiente.
En la página Elegir la conexión de datos, seleccione Nueva conexión para configurar una nueva
conexión de datos.
GUÍA DE ESTUDIO
VISUAL STUDIO 2012 (VISUAL BASIC)
ING. MILLÁN M. NELSYMAR C. ESP.
Si el origen de datos no es un archivo de base de datos de Microsoft Access (OLE DB) ,
seleccione cambiar para abrir el cuadro de diálogo cambiar origen de datos y seleccione Archivo de base de
datos de Microsoft Accessy, a continuación, seleccione Aceptar.
En el nombre del archivo de base de datos, especifique la ruta de acceso y el nombre del archivo .
mdb al que desea conectarse y, a continuación, seleccione Aceptar.

Seleccione siguiente en la página elegir la conexión de datos .

Seleccione siguiente en la página Guardar cadena de conexión en el archivo de configuración de la
aplicación .
Expanda el nodo Tablas en la página Elija los objetos de base de datos.
Seleccione las tablas o vistas que desee en el conjunto de DataSet y, a continuación,
seleccione Finalizar.
El conjunto de datos se agrega al proyecto y las tablas y las vistas aparecen en la ventana Orígenes
de datos.
Otra opción sería la siguiente.-
El código para conectarme al base de datos es el siguiente:

1. Private Sub Conexion()

2. Dim UrlDatabBase As String
3. Dim appPath As String = [Link]
4.
5. UrlDatabBase = appPath & "\Db\[Link]"
6. Dim MiConexion As New OleDbConnection("Provider=[Link].12.0;Data Source=" & UrlDatabBase &
";Jet OLEDB:Database Password=1qazxsw2")
7.
8. Dim MiAdaptador As New OleDbDataAdapter("SELECT * FROM tblClientes", MiConexion)
9.
10. Dim MiDataSet As New DataSet()
GUÍA DE ESTUDIO
VISUAL STUDIO 2012 (VISUAL BASIC)
ING. MILLÁN M. NELSYMAR C. ESP.
11.
12. [Link](MiDataSet)
13.
14. [Link] = [Link](0).DefaultView
15.
16. End Sub

La primera linea es una variable llamada UrlDatabBase de tipo String donde almacenare la ubicación
de la base de datos.

La segunda linea es una variable llamada appPath de tipo String que le asigno una función que me
trae la ubicación actual de la aplicación. Un ejemplo de de lo que retorna es el siguiente:

C:\Users\Fernando\source\repos\PruebaConexionAccess\EjemploConexionMysql\EjemploConexionM
ysql\bin\Debug

Lo que hay que tener en cuenta es que al ejecutar la aplicación Visual Studio crea un .exe dentro de
bin\Debug de la carpeta del proyecto y es hay donde debemos tener la base de datos, en mi caso yo
la he colocado dentro de una carpeta llamada Db.

Por esta razón agrego al la ubicación de la db la carpeta y el nombre de la base de datos:

1. UrlDatabBase = appPath & "\Db\[Link]"

Siendo así la ubicación de la base datos quedaría asi:

C:\Users\Fernando\source\repos\PruebaConexionAccess\EjemploConexionMysql\EjemploConexionM
ysql\bin\Debug\Db\[Link]

La linea que sigue es crear la variable de conexion y asignarle la conexión usando el

OleDbConnection y pasando los mismos parámetros que usamos en VB6

1. Dim MiConexion As New OleDbConnection("Provider=[Link].12.0;Data Source=" & UrlDatabBase &

";Jet OLEDB:Database Password=1qazxsw2")
Provider= seria el proveedor de base de datos en este caso [Link].12.0 que es para
las bases de datos después de la 97

Data Source= ubicación de la base de datos

Jet OLEDB:Database Password= aquí le pasamos el password de la base de datos

La siguiente linea creamos una variable asignándole un nuevo adaptador OleDbDataAdapter al cual le
pasamos una consulta SQL y la conexión usada

1. Dim MiAdaptador As New OleDbDataAdapter("SELECT * FROM tblClientes", MiConexion)

Luego se crear un DataSet para poderlo llenar y asignárselo al Data Grid View
GUÍA DE ESTUDIO
VISUAL STUDIO 2012 (VISUAL BASIC)
ING. MILLÁN M. NELSYMAR C. ESP.
1. Dim MiDataSet As New DataSet()
Se llena el DataSet con el resultado de la consulta que esta alojada en el
Adaptador MiAdaptador usando la propiedad Fill

1. [Link](MiDataSet)
Y por ultimo llenar el Data Grid View usando su propiedad DataSource al cual se le asigna el DataSet
de la siguiente manera

1. [Link] = [Link](0).DefaultView
Y solo nos queda llamar a este procedimiento desde el botón btnconectar

1. Private Sub btnConectar_Click(sender As Object, e As EventArgs) Handles [Link]

2. Conexion()
3. End Sub