fOLLETO DE BASE DE DATOS 2 CLASE 6

Manual de Visual Basic Parte II 2012
CONSULTAS CON SQL EN VISUAL BASIC
Para hacer una consulta desde Visual Studio a una base de datos hacemos:
 Primero creamos una tabla Estudiantes en Sql Sever Managament
 Pasamos los registros de los alumnos en un documento Csv (separado por comas),
ejecutando la siguiente consulta:
use Asistencia_Semana_Sistémica
bulk
insert dbo.PARTICIPANTES
from 'I:\alumnos2.csv'
with
(
fieldterminator=',', --separa a los campos, cambia de campo
rowterminator='\n' -- cambia de filas por el enter
)
2
CREAMOS UN FORMULARIO EN VISUAL STUDIO
 Ponemos la cabecera que funcionaría como una biblioteca: Imports

System.Data.SqlClient
 Realizamos la conexión a la Base de Datos creando el objeto conex (conex es un objeto
que guarda la ubicación de la base de datos ya sabe dónde está, es un camino)
Dim conex As New SqlConnection("server=.;database=Northwind;trusted_connection=true")
 Hacemos una consulta con SQLDataAadapter

Dim datos As New SqlDataAdapter("select* from EMPLOYEES", conex)
 Creamos un objeto DataSet

Dim ds As New Data.DataSet
 Llenamos los registros obtenidos por la consulta en un DataGridView
datos.Fill(ds, "Alumnos")
DGV1.DataSource = ds.Tables("Alumnos")
 El código en Visual Studio es:
3
Ejemplo:
 Mostrar el registro de la tabla estudiantes:
Imports System.Data.SqlClient
Public Class Form1
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles

MyBase.Load
Dim conex As New
SqlConnection("server=MIK3\io;database=Northwind1;trusted_connection=true") 'conex es un
objeto que guarda la ubicacion de la base de datos ya sabe donde esta, es un camino
Dim datos As New SqlDataAdapter("select* from Estudiante", conex)
DGV1.DataSource = ds.Tables("Alumnos")
End Sub
End Class
4
 Realizar el ejercicio anterior en una página web:
1° Creamos un nuevo proyecto y escogemos en planillas instaladas la opción Web:
5
2° Escogemos la opción Aplicación web ASP.NET:
3° Se observa el entorno así:
4° Agregamos un nuevo elemento un (Formulario):
6
Escogemos un DataGridView y lo arrastramos sobre el formulario:
Escribimos el código:
7
Cargó:
 Buscar un alumno filtrado por su código con Radio button:
Consulta SQL:
create proc buscar_alumnos

@id char(10)
as
select *
from Estudiante
where Id_estudiante=@id
Public Class Form1
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles
Button1.Click
Dim conex As New
SqlConnection("server=.;database=Northwind;trusted_connection=true")
Dim datos As New SqlDataAdapter("buscar_alumnos", conex)
Estrada Aguilar, Karen Johana | PROGRAMACIÓN APLICADA I

8
datos.SelectCommand.CommandType = CommandType.StoredProcedure '***
datos.SelectCommand.Parameters.Add("@id", SqlDbType.Char, 10).Value =
TextBox1.Text
datos.Fill(ds, "alumnitos")
DGV.DataSource = ds.Tables("Alumnitos")
End Sub
End Class
Diseño del formulario:
9
 Buscar un alumno filtrado por su código con Enter en el Textbox:
En el evento keypress del textbox hacemos la conexión y el código:
Public Class Form2
Private Sub TextBox1_KeyPress(sender As Object, e As

System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If e.KeyChar = Chr(13) Then

Dim conex As New
SqlConnection("server=.;database=Northwind;trusted_connection=true")
Dim datos As New SqlDataAdapter("buscar_alumnos", conex)
datos.SelectCommand.CommandType = CommandType.StoredProcedure
datos.SelectCommand.Parameters.Add("@id", SqlDbType.Char, 10).Value =
TextBox1.Text
datos.Fill(ds, "alumnitos")
DGV.DataSource = ds.Tables("Alumnitos")
TextBox1.Text = ""
TextBox1.Focus()
End If
End Sub
10
Private Sub Form2_Load(sender As System.Object, e As System.EventArgs) Handles
MyBase.Load
TextBox1.Focus()
End Sub
Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs)

Handles TextBox1.TextChanged
TextBox1.Focus()
End Sub
End Class
Filtrar alumno por apellido:
Public Class Form4
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If e.KeyChar = Chr(13) Then
Dim conex As New
SqlConnection("server=MIK3\io;database=Northwind1;trusted_connection=true")
Dim datos As New SqlDataAdapter("apell", conex) ' "selec * from Estudiante where
Id_estudiante=@id" (la linea *** no seria)
11
datos.SelectCommand.Parameters.Add("@ape", SqlDbType.Char, 10).Value =
TextBox1.Text
datos.Fill(ds, "alumnitos") 'ejecuta el data adapter, que abre la conexion
DGV.DataSource = ds.Tables("alumnitos")
TextBox1.Text = ""
TextBox1.Focus()
End If
End Sub
End Class
 Mostrar alumnos o alumnas con radios button
Dim conex1 As New

SqlConnection("server=MIK3\io;database=Northwind1;trusted_connection=true")
If RadioButton1.Checked = True Then
Dim datos As New SqlDataAdapter("sexo", conex1)
datos.SelectCommand.Parameters.Add("@sex", SqlDbType.Char, 1).Value = 1
DGV.DataSource = ds.Tables("Alumnos")
ElseIf RadioButton2.Checked = True Then
Dim datos1 As New SqlDataAdapter("sexo", conex1)

Dim ds1 As New Data.DataSet
datos1.SelectCommand.CommandType = CommandType.StoredProcedure '***
datos1.SelectCommand.Parameters.Add("@sex", SqlDbType.Char, 1).Value = 2
datos1.Fill(ds1, "Alumnos")
DGV.DataSource = ds1.Tables("Alumnos")
End If
12
Estrada Aguilar, Karen Johana | PROGRAMACIÓN APLICADA I
13
En un sistema realizar el mantenimiento en consultas:
14

fOLLETO DE BASE DE DATOS 2 CLASE 6

Cargado por

Copyright:

Formatos disponibles

fOLLETO DE BASE DE DATOS 2 CLASE 6

Cargado por

Información del documento

Derechos de autor

Formatos disponibles

Compartir este documento

Compartir o incrustar documentos

Opciones para compartir

¿Le pareció útil este documento?

¿Este contenido es inapropiado?

Copyright:

Formatos disponibles

fOLLETO DE BASE DE DATOS 2 CLASE 6

Cargado por

Copyright:

Formatos disponibles

Manual de Visual Basic Parte II 2012

CONSULTAS CON SQL EN VISUAL BASIC

 Primero creamos una tabla Estudiantes en Sql Sever Managament

 Ponemos la cabecera que funcionaría como una biblioteca: Imports

Dim conex As New SqlConnection("server=.;database=Northwind;trusted_connection=true")

 Hacemos una consulta con SQLDataAadapter

 Creamos un objeto DataSet

 Llenamos los registros obtenidos por la consulta en un DataGridView

 El código en Visual Studio es:

 Mostrar el registro de la tabla estudiantes:

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles

 Realizar el ejercicio anterior en una página web:

1° Creamos un nuevo proyecto y escogemos en planillas instaladas la opción Web:

3° Se observa el entorno así:

4° Agregamos un nuevo elemento un (Formulario):

 Buscar un alumno filtrado por su código con Radio button:

create proc buscar_alumnos

Estrada Aguilar, Karen Johana | PROGRAMACIÓN APLICADA I

Diseño del formulario:

En el evento keypress del textbox hacemos la conexión y el código:

Private Sub TextBox1_KeyPress(sender As Object, e As

If e.KeyChar = Chr(13) Then

Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs)

Filtrar alumno por apellido:

 Mostrar alumnos o alumnas con radios button

Dim conex1 As New

Dim datos1 As New SqlDataAdapter("sexo", conex1)

También podría gustarte

Pfad - The Proxy pFad of © 2024 Garber Painting. All rights reserved.