Guía

7 1

Facultad: Ingeniería.
Escuela: Biomédica.
Asignatura: Informática Médica.

FrontEnd para SQL Server desde Visual Studio Parte I.

Objetivos

 Crear FrontEnd para la base de datos Centro Medico.

 Efectuar consultas a la base de datos y presentarlos en el FrontEnd.

Recomendaciones

 Tenga orden y aseo para trabajar.

 Al finalizar el laboratorio se debe dejar en la misma o mejor condición en
que se encontró (Asegúrese de apagar el equipo y ordenar los asientos
antes de retirarse).

Materiales y equipos

 Computadora.
 SQL Server 2012.
 Visual Studio 2010 o superior.
 Guía
7 2

Introducción Teórica

Visual estudio es un conjunto completo de herramientas de desarrollo para la

generación de aplicaciones web ASP.NET, Servicios Web XML, aplicaciones de
escritorio y aplicaciones móviles. Visual Basic, Visual C# y Visual C++ utilizan
todos el mismo entorno de desarrollo integrado (IDE), que habilita el uso
compartido de herramientas y facilita la creación de soluciones en varios
lenguajes. Asimismo, dichos lenguajes utilizan las funciones de .NET Framework,
las cuales ofrecen acceso a tecnologías clave para simplificar el desarrollo de
aplicaciones web ASP y Servicios Web XML.

Programas para el entorno Windows

Visual Basic está orientado a la realización de programas para Windows, pudiendo

incorporar todos los elementos de este entorno informático: ventanas, botones,
cajas de diálogo y de texto, botones de opción y de selección, barras de
desplazamiento, gráficos, menús, etc. Prácticamente todos los elementos de
interacción con el usuario de los que dispone Windows 95/98/NT/XP pueden ser
programados en Visual Basic de un modo muy sencillo. En ocasiones bastan unas
pocas operaciones con el ratón y la introducción a través del teclado de algunas
sentencias para disponer de aplicaciones con todas las características de
Windows 95/98/NT/XP.

Modo de Diseño y Modo de Ejecución

La aplicación Visual Basic de Microsoft puede trabajar de dos modos distintos: en

modo de diseño y en modo de ejecución. En modo de diseño el usuario construye
interactivamente la aplicación, colocando controles en el formulario, definiendo sus
propiedades, y desarrollando funciones para gestionar los eventos.
La aplicación se prueba en modo de ejecución. En ese caso el usuario actúa sobre
el programa (introduce eventos) y prueba cómo responde el programa. Hay
algunas propiedades de los controles que deben establecerse en modo de diseño,
pero muchas otras pueden cambiarse en tiempo de ejecución desde el programa
escrito en Visual Basic.

Formularios y Controles

Cada uno de los elementos gráficos que pueden formar parte de una aplicación
típica de Windows 95/98/NT/XP es un tipo de control: los botones, las cajas de
 Guía
7 3

diálogo y de texto, las cajas de selección desplegables, los botones de opción y de

selección, las barras de desplazamiento horizontales y verticales, los gráficos, los
menús, y muchos otros tipos de elementos son controles para Visual Basic. Cada
control debe tener un nombre a través del cual se puede hacer referencia a él en
el programa. Visual Basic proporciona nombres por defecto que el usuario puede
modificar.
En la terminología de Visual Basic se llama formulario (form) a una ventana. Un
formulario puede ser considerado como una especie de contenedor para los
controles. Una aplicación puede tener varios formularios, pero un único formulario
puede ser suficiente para las aplicaciones más sencillas. Los formularios deben
también tener un nombre, que puede crearse siguiendo las mismas reglas que
para los controles.

Objetos y Propiedades

Los formularios y los distintos tipos de controles son entidades genéricas de las
que puede haber varios ejemplares concretos en cada programa. En
programación orientada a objetos (más bien basada en objetos, habría que decir)
se llama clase a estas entidades genéricas, mientras que se llama objeto a cada
ejemplar de una clase determinada. Por ejemplo, en un programa puede haber
varios botones, cada uno de los cuales es un objeto del tipo de control command
button, que sería la clase.

Cada formulario y cada tipo de control tienen un conjunto de propiedades que

definen su aspecto gráfico (tamaño, color, posición en la ventana, tipo y tamaño de
letra, etc.) y su forma de responder a las acciones del usuario (si está activo o no,
por ejemplo). Cada propiedad tiene un nombre que viene ya definido por el
lenguaje.

Nombres de objetos

En principio cada objeto de Visual Basic debe tener un nombre, por medio del cual
se hace referencia a dicho objeto. El nombre puede ser el que el usuario desee, e
incluso Visual Basic proporciona nombres por defecto para los diversos controles.
Estos nombres por defecto hacen referencia al tipo de control y van seguidos de
un número que se incrementa a medida que se van introduciendo más controles
de ese tipo en el formulario. Los nombres por defecto no son adecuados porque
hacen referencia al tipo de control, pero no al uso, que de dicho control está
haciendo el programador. Por ejemplo, si se utiliza un botón para abrir un
formulario que contenga los pacientes en un centro médico, conviene que su
 Guía
7 4

nombre haga referencia a la palabra pacientes, y así cuando haya que utilizar ese
nombre se sabrá exactamente a qué control corresponde.

Eventos

Ya se ha dicho que las acciones del usuario sobre el programa se llaman eventos.
Son eventos típicos el dar clic sobre un botón, el hacer doble clic sobre el nombre
de un fichero para abrirlo, el arrastrar un icono, el pulsar una tecla o combinación
de teclas, el elegir una opción de un menú, el escribir en una caja de texto, o
simplemente mover el ratón.
Cada vez que se produce un evento sobre un determinado tipo de control, Visual
Basic arranca una determinada función o procedimiento que realiza la acción
programada por el usuario para ese evento concreto. Estos procedimientos se
llaman con un nombre que se forma a partir del nombre del objeto y el nombre del
evento, separados por el carácter “_”, como por ejemplo txtBox_click, que es el
nombre del procedimiento que se ocupará de responder al evento click en el
objeto txtBox.

Proyectos y ficheros

Cada aplicación que se empieza a desarrollar en Visual Basic es un nuevo

proyecto. Un proyecto comprende otras componentes más sencillas, como por
ejemplo los formularios (que son las ventanas de la interface de usuario de la
nueva aplicación) y los módulos (que son conjuntos de funciones y procedimientos
sin interface gráfica de usuario).

¿Cómo se guarda un proyecto en el disco? Un proyecto se compone siempre de

varios ficheros (al menos de dos) y hay que preocuparse de guardar cada uno de
ellos en el adecuado y con el nombre adecuado. Existe siempre un fichero con
extensión *.vbp (Visual Basic Project) que se crea con el comando File/Save
Project As. El fichero del proyecto contiene toda la información de conjunto.
Además hay que crear un fichero por cada formulario y por cada módulo que
tenga el proyecto. Los ficheros de los formularios se crean con File/Save Filename
As teniendo como extensión *.frm. Los ficheros de código o módulos se guardan
también con el comando File/Save Filename As y tienen como extensión *.bas si
se trata de un módulo estándar o *.cls si se trata de un módulo de clase (class
module).
 Guía
7 5

Procedimiento

Para efectos de la práctica de laboratorio, se continuará trabajando en la

aplicación “Centro Médico”.

Parte I: Creación de proyecto y crear conexión a SQL Server.

1) Abrir la aplicación Visual Studio.
2) Crear un nuevo proyecto, Archivo -> Nuevo -> Proyecto.
3) En plantillas buscar plantillas de Windows en visual Basic y seleccionar
“Windows Form Application”, como se observa en Fig 1.
4) Usar como nombre de proyecto Centro_Medico_App.

Fig. 1 Creación de nuevo proyecto.

5) Para crear la conexión a SQL Server hacer doble clic en “Mi proyecto” en el
explorador de soluciones y diríjase a soluciones, como se observa en Fig. 2

Fig. 2 Configuraciones del proyecto desde el explorador de soluciones.

6) En nombre reemplace configuración por conexión, en tipo elija Cadena de

conexión (Connection String) y finalmente en alcance (scope) seleccione
aplicación.
 Guía
7 6

7) Indicar los valores para el establecimiento de conexión, haga clic en el

campo valor y luego en el botón de “…”, lo cual abrirá una ventana como se
muestra en Fig. 3.

Fig. 3 Selección del origen del contenido.

8) En Selección del origen del contenido y en la ventana de propiedades de
conexión indique los parámetros tal como se muestra en Fig. 3 y 4.

Fig. 4 Propiedades de conexión.

9) Haga clic en prueba de conexión, la prueba debe ser exitosa de no ser así
consulte a su docente.
 Guía
7 7

Parte II: Creación de Menú y Formularios de Consultas.

1) Cambie el nombre de propiedad al Objecto Formulario (Form1.vb) de

“form1” a “menú”, para ello debe hacer doble clic en Form1.vb y
seleccionar “form1” desde el espacio de trabajo, hacer los cambios
como se muestra en Fig. 5.

Fig. 5 Propiedades del objeto formulario.

2) Cree dos nuevos formularios, Proyecto -> Agregar Formularios de

Windows. Cambie los nombres del primer formulario a Texto:
“Pacientes” y nombre de diseño: “consultaPacientes”; y en el segundo
formulario, Texto: “Consultas” y nombre de diseño: “consultaConsultas”.

Nota: El texto indica el mensaje a mostrar en el objeto, y el

nombre de diseño es el nombre del objeto al cual se hace
referencia para realizar diferentes tipos de acciones, por
ejemplo acceder a su contenido.

3) Agregue los botones: Nuevo Paciente, Nueva Consulta y Registro de

Pacientes, asegurar que el nombre de diseño empiece con Button o Btn,
es una buena práctica indicar en el nombre de diseño el tipo de objeto,
lo que facilita su manipulación.
a. Para agregar los botones diríjase a ToolBox(lado izquierdo) del
área de trabajo, y seleccione botón(Button) en controles
comunes(Commons Controls) tal como se muestra en Fig. 6.
 Guía
7 8

Fig. 6 Menú de la aplicación.

4) Agregar una etiqueta(label) con texto: “paciente” y nombre de diseño:
“labelPaciente” al formulario consultaPacientes, las etiquetas se
encuentran en Herramientas(ToolBox)-> Controles Comunes (Common
controls). Donde el formulario de consulta pacientes les debe de quedar
como se muestra en Fig. 7

Fig. 7 Formulario Pacientes.

5) Agregar una caja de texto con nombre: “TextBoxPaciente” al formulario
“consultaPacientes”, las cajas de texto se encuentran en Herramientas
(ToolBox) -> Controles Comunes (Common controls).

6) Agregar un control “DataGridView” con nombre:

“DataGridViewPacientes” al formulario “consultaPacientes”, el control
DataGridView se encuentra en (Herramientas)ToolBox -> Datos (Data).

7) Agregar las etiquetas, cajas de texo y el control DataGridView de tal

manera que el formulario consultaConsultas se encuentre como se
muestra en Fig. 8.
 Guía
7 9

Fig. 8 Formulario Consultas.

8) Asegurar que los nombres de las cajas de textos correspondan a:
TextBoxNombre, TextBoxApellidos, TextBoxNumeroTelefonico,
TextBoxCorreoElectronico, TextBoxDireccion y TextBoxCiudad.

9) Asegurar que el control DataGridView para el formulario consultas sea

DataGridViewConsultas.

Parte III: Personalización de Formularios Pacientes y Consultas.

1) Diríjase al formulario paciente y haga clic derecho en el control

DataGridView y seleccione editar columnas, tal como se muestra en Fig. 9.

Fig. 9 Control DataGridView.

 Guía
7 10

2) Agregue la columna “nombre” con las propiedades que se muestra en Fig.

10.

Fig. 10 Agregar nuevas columnas.

3) Agregue las columnas “apellidos” y “teléfono”.

4) Agregue una columna con el nombre “ver consultas” y tipo

“DataGridViewButtonColumn”.

5) Agregue una columna con el nombre “idPaciente”, tipo

“DataGridViewTextBoxColumn” y deseleccione la opción visible.

6) Modificar las propiedades de las columnas de Nombre,Apellidos,Telefono y

idPaciente de manera que “DataPropertyName” sea: “nombres”, “apellidos”,
“teléfono” y “idpaciente” respectivamente, tal como se muestra en fig. 11.

Nota: “DataPropertyName” indica el origen de la información que se

agregara a estas columnas, por lo que no debe olvidar el nombre
asignado porque se utilizara para agregar los registros obtenidos de
la consulta realizada a la base de datos.

7) Modificar las propiedades de la columna “Ver Consultas” de manera tal que

la propiedad Text sea “Ver Consultas” y la propiedad
“UseColumnTextForButtonValue” sea “true”.
 Guía
7 11

Fig. 11 Propiedades de Columnas.

8) Ahora diríjase al formulario consultas y agregue las columnas: fecha,
médico y diagnóstico de tipo “DataGridViewTextBoxColumn”, asegurar que
DataPropertyName sea “fecha”, “medico” y “diagnostico” respectivamente.

9) El resultado de sus formularios debería ser simular a como se muestra en

Fig. 12.

Fig. 12 Formularios Pacientes y Consultas

Parte IV: Preparación para la conexión de la base de datos y los
formularios.

1) Primeramente nos aseguraremos que al cargar la aplicación lo primero que

cargue sea el menú.
2) Haga doble clic en “My Project” en el explorador de soluciones, luego
diríjase a aplicaciones y asegurarse que en “Startup form” sea el formulario
del menú.
3) Ahora nos aseguraremos que al presionar el botón “Registro de Pacientes”
cargue el formulario de Pacientes, haga doble clic en el botón “Registro de
Pacientes”.
 Guía
7 12

a. Dentro de la función que ha cargado asegúrese de escribir:

consultaPacientes.show(), tal como se muestra a continuación:

Public Class menu

Private Sub ButtonRegistrodePacientes_Click(sender As Object, e As EventArgs)
Handles ButtonRegistrodePacientes.Click
consultaPacientes.Show()'La función show abre los formularios indicados
End Sub
End Class

4) Ahora Crearemos una clase para variable globales, la cual utilizaremos

para compartir datos entre formularios.
a. Agregue una nueva clase con nombre VariablesGlobales, Add
Project -> add Class.
b. Crea la variable Global idPacienteGlobal dentro de la clase
VariablesGlobales, como se muestra a continuación.

Public Class VariableGlobales

Public Shared idPacienteGlobal As Integer
End Class

5) Ahora Definiremos la acción que tendrá el botón ver consultas,

primeramente haga clic al botón consultas para ir al editor de códigos.

6) Dentro de la función agregue la siguiente sintaxis:

If e.ColumnIndex = 4 Then
VariableGlobales.idPacienteGlobal =
DataGridViewPacientes.Rows(e.RowIndex).Cells("idpaciente").Value
consultaConsultas.Show()
End If

Nota: e.ColumnIdex = 4, verifica que el botón presionado corresponda a la

columna de ver consulta, este número corresponde a como están
ordenadas las columnas cuando las creo, empezando desde la numero
cero. Y en la segunda línea se guarda en la variable global el id del
paciente, correspondiente a la fila que se realizó clic al botón.

El código completo de este paso se muestra a continuación:

Private Sub DataGridViewPacientes_CellContentClick(sender As Object, e As
DataGridViewCellEventArgs) Handles DataGridViewPacientes.CellContentClick
If e.ColumnIndex = 4 Then
VariableGlobales.idPacienteGlobal =
DataGridViewPacientes.Rows(e.RowIndex).Cells("idpaciente").Value
consultaConsultas.Show()
End If
End Sub
 Guía
7 13

Parte V: Conexión del formulario Pacientes a la base de datos.

1) Entre al editor de códigos de visual basic y la función del cuadro de texto

“TextBoxPaciente” haciendo doble clic al cuadro de texto.

2) Agregue la librería de SQL cliente, antes de la clase “consultaPacientes”.

Imports System.Data.SqlClient

3) Dentro de la función de la caja de texto, cree las siguientes variables:

a. Parámetro de conexión:
Dim con As New SqlConnection(My.Settings.conexion)
b. Comando de consulta:
Dim sql As String = "SELECT idpaciente as idpaciente, nombres as
nombres,apellidos as apellidos,telefono as telefono FROM Pacientes
WHERE apellidos like " & Chr(39) & "%" & TextBoxPaciente.Text & "%" &
Chr(39)
c. Unir los parámetros de conexión y los comandos de consulta:
Dim cmd As New SqlCommand(sql, con)

4) Establezca el capturador de error por si hay problemas en la conexión:

Try 'Capturador de Errores por si hay un problema en la conexión
'Código que se desea ejecutar.
Catch ex As Exception
MsgBox(ex.Message) 'Mensaje que indica el error presentado.
End Try

5) Cree las siguientes variables dentro de try.

a. Adaptador de datos SQL:
Dim da As New SqlDataAdapter(cmd)
b. Tabla
Dim dt As New DataTable

6) Haga la consulta a la base de datos

da.Fill(dt)

7) Asigne el resultado de la base de datos al controlador

DataGridViewPacientes.
Me.DataGridViewPacientes.DataSource = dt

8) Ejecute la aplicación haciendo clic en el botón “start” o presionando la

combinación de teclas “ctrl + F5” y pruebe su menú en conjunto al
formulario pacientes.
 Guía
7 14

Parte VI: : Conexión del formulario Consultas a la base de datos.

1) Entre a la línea de comandos de visual basic del formulario Consultas

haciendo doble clic a un espacio vacío del formulario.

2) Agregue la librería de SQL cliente, antes de la clase “consultaConsultas”.

Imports System.Data.SqlClient

3) Dentro de la función de la caja de texto, cree las siguientes variables:

a. Parámetro de conexión:
Dim con As New SqlConnection(My.Settings.conexion)
b. Comando de consulta:
Dim sql As String = "SELECT
nombres,apellidos,direccion,ciudad,telefono,correo_electronico FROM
Pacientes WHERE idpaciente =" & VariableGlobales.idPacienteGlobal
c. Unir los parámetros de conexión y los comandos de consulta:
Dim cmd As New SqlCommand(sql, con)

4) Establezca el capturador de error por si hay problemas en la conexión:

Try 'Capturador de Errores por si hay un problema en la conexión
'Código que se desea ejecutar.
Catch ex As Exception
MsgBox(ex.Message) 'Mensaje que indica el error presentado.
End Try

5) Cree las siguientes variables dentro de try.

a. Adaptador de datos SQL:
Dim da As New SqlDataAdapter(cmd)
b. Tabla
Dim dt As New DataTable

6) Haga la consulta a la base de datos

da.Fill(dt)

7) Asigne el resultado de la base de datos a cada uno de los cuadros de texto:

TextBoxNombre.Text = dt.Rows(0).Item("nombres").ToString
TextBoxApellidos.Text = dt.Rows(0).Item("apellidos").ToString
TextBoxCiudad.Text = dt.Rows(0).Item("ciudad").ToString
TextBoxDireccion.Text = dt.Rows(0).Item("direccion").ToString
TextBoxNumeroTelefonico.Text = dt.Rows(0).Item("telefono").ToString
TextBoxCorreoElectronico.Text = dt.Rows(0).Item("correo_electronico").ToString.
 Guía
7 15

8) Modifique las variables para que pueda crear una segunda consulta y esta
vez referida a los registros de las consultas.
a. Comando de consulta:
sql = "SELECT c.fecha as fecha ,d.medico as medico ,d.diagnostico as
diagnostico FROM consultas c INNER JOIN diagnostico d ON c.idconsulta
= d.idconsulta WHERE c.idpaciente = " &
VariableGlobales.idPacienteGlobal
b. Unir los parámetros de conexión y los comandos de consulta:
cmd = New SqlCommand(sql, con)
c. Adaptador de datos SQL:
da = New SqlDataAdapter(cmd)
d. Tabla
da = New SqlDataAdapter(cmd)

9) Haga la consulta a la base de datos

da.Fill(dt)

10) Asigne el resultado de la base de datos al controlador

DataGridViewConsultas.
Me.DataGridViewConsultas.DataSource = dt

11) Ejecute la aplicación.

 Guía
7 16

Ejercicios.

 Modifique la aplicación para que la base de datos utilizada no sea la que

usted creo, debe usar la base de datos que se encuentra en la
computadora de alguno de sus compañeros.
 Modifique la aplicación para que el cargar el formulario Pacientes muestre
el registro de la base de datos, sin esperar hasta que usted escribar el
apellido de uno de los pacientes.

Investigación complementaria.

 Cómo utilizar el DataTimePicker.

 Cómo utilizar ListBox.
 Cómo utilizar CheckBox.
 Cómo utilizar RadioButton.

Bibliografía.

 Rahul Batra, A Primer on SQL, third Edition.

 Adrienne Watt, Nelson Eng. Database Design, second Edition.
 Peter Rob, Carlos Coronel, SISTEMAS DE BASE DE DATOS, THOMSON,
México, 2006.
 Thomas Connolly, Carolyn Begg, SISTEMAS DE BASE DE DATOS,
PERSON, España, 2007.
 Ross Mistry and Stacia Misner, Introducing Microsoft SQL Server 2012,
Microsoft Press. Disponible digitalmente en Recursos electrónicos de la
biblioteca en Google Académico.
 Francisco Ceballos, Enciclopedia de Microsoft Visual Basic, Alfaomega,
México, 2010.
 Felipe Ramirez, Aprenda Practicando Visual Basic 2005: Usando Visual
Studio 2005, PEARSON, México, 2007.
 Guía
7 17

ANEXO A: CREACIÓN DE BASE DE DATOS CENTRO MEDICO.

CREATE DATABASE Centro_Medico

GO

USE Centro_Medico
GO

CREATE TABLE Pacientes(

idpaciente INT IDENTITY(1,1),
nombres varchar(30)null,
apellidos varchar(30)null,
direccion varchar(30)null,
ciudad varchar(20)null,
telefono varchar(9)null,
correo_electronico varchar(40)null,
CONSTRAINT idPaciente PRIMARY KEY(idpaciente)
)
GO

CREATE TABLE consultas(

idconsulta INT IDENTITY(1,1),
idpaciente int,
fecha date,
CONSTRAINT idConsulta PRIMARY KEY(idconsulta),
CONSTRAINT rela_idpaciente FOREIGN KEY(idpaciente) REFERENCES
Pacientes(idpaciente)
)
GO

CREATE TABLE diagnostico(

iddiagnostico INT IDENTITY(1,1),
idconsulta int,
medico varchar(30),
diagnostico varchar(200),
CONSTRAINT iddiagnostico PRIMARY KEY(iddiagnostico),
CONSTRAINT rela_idconsulta FOREIGN KEY(idconsulta) REFERENCES
consultas(idconsulta)
)
GO
 Guía
7 18

ANEXO B: CLASE VARIABLES GLOBALES.

Public Class VariableGlobales
Public Shared idPacienteGlobal As Integer
End Class
 Guía
7 19

ANEXO C: CODIGO FORMULARIO PACIENTES.

Imports System.Data.SqlClient
Public Class consultaPacientes

Private Sub TextBoxPaciente_TextChanged(sender As Object, e As EventArgs) Handles TextBoxPaciente.TextChanged

Dim con As New SqlConnection(My.Settings.conexion) 'Parámetros para establer la conexión a la base de datos, los
parámetros estan en conexión
Dim sql As String = "SELECT idpaciente as idpaciente, nombres as nombres,apellidos as apellidos,telefono as telefono
FROM Pacientes WHERE apellidos like " & Chr(39) & "%" & TextBoxPaciente.Text & "%" & Chr(39) 'Comando de consulta para el
servidor
Dim cmd As New SqlCommand(sql, con) 'Se cree un solo comando donde se indica la consulta a realizar y la base de
datos a conectar

Try 'Capturador de Errores por si hay un problema en la conexión

Dim da As New SqlDataAdapter(cmd) 'Adaptador de datos SQL, la conexión respectiva (Puente para guardar y
recuperar datos entre DataSet y SQL Server)
Dim dt As New DataTable '
da.Fill(dt) 'Con el metodo Fill rellenamos el dataset
Me.DataGridViewPacientes.DataSource = dt
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub

Private Sub DataGridViewPacientes_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles

DataGridViewPacientes.CellContentClick
If e.ColumnIndex = 4 Then
VariableGlobales.idPacienteGlobal = DataGridViewPacientes.Rows(e.RowIndex).Cells("idpaciente").Value
consultaConsultas.Show()
End If
End Sub
End Class
 Guía
7 20

ANEXO D: CODIGO FORMULARIO CONSULTAS.

Imports System.Data.SqlClient
Public Class consultaConsultas

Private Sub consultaConsultas_Load(sender As Object, e As EventArgs) Handles MyBase.Load

Dim con As New SqlConnection(My.Settings.conexion) 'Parámetros para establer la conexión a la base de datos, los
parámetros estan en conexión
Dim sql As String = "SELECT nombres,apellidos,direccion,ciudad,telefono,correo_electronico FROM Pacientes WHERE
idpaciente =" & VariableGlobales.idPacienteGlobal 'Comando de consulta para el servidor
Dim cmd As New SqlCommand(sql, con) 'Se cree un solo comando donde se indica la consulta a realizar y la base de
datos a conectar

Try 'Capturador de Errores por si hay un problema en la conexión

Dim da As New SqlDataAdapter(cmd) 'Adaptador de datos SQL, la conexión respectiva (Puente para guardar y
recuperar datos entre DataSet y SQL Server)
Dim dt As New DataTable '

da.Fill(dt) 'Con el metodo Fill rellenamos el dataset

TextBoxNombre.Text = dt.Rows(0).Item("nombres").ToString
TextBoxApellidos.Text = dt.Rows(0).Item("apellidos").ToString
TextBoxCiudad.Text = dt.Rows(0).Item("ciudad").ToString
TextBoxDireccion.Text = dt.Rows(0).Item("direccion").ToString
TextBoxNumeroTelefonico.Text = dt.Rows(0).Item("telefono").ToString
TextBoxCorreoElectronico.Text = dt.Rows(0).Item("correo_electronico").ToString

sql = "SELECT c.fecha as fecha ,d.medico as medico ,d.diagnostico as diagnostico FROM consultas c INNER JOIN
diagnostico d ON c.idconsulta = d.idconsulta WHERE c.idpaciente = " & VariableGlobales.idPacienteGlobal
cmd = New SqlCommand(sql, con)
da = New SqlDataAdapter(cmd)
dt = New DataTable
da.Fill(dt)
Me.DataGridViewConsultas.DataSource = dt

Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
End Class