INFOPRO: Formulario en VB .NET

VB .NET

Pasos para hacer un formulario, Grafica, Reporte

Paso1 (Crear la tabla en la base de datos Access)

1. Creamos una tabla llamada Encuestaex.

2. Clic derecho/Vista diseño, crearemos la tabla como se visualiza en la siguiente imagen.

Paso 2 (Crear el proyecto)

1. Hacer un nuevo proyecto en este caso llamare a mi proyecto Encuesta.

2. Luego clic derecho en Encuesta/Agregar/Nuevo Carpeta “Formulario”.

Form1/clic derecho/cambiar nombre/frmEncuesta.

Paso 3 (Hacer el entorno ó Origen de datos)

1. Encuesta/clic derecho/Agregar/Control de Usuario/nombre

= Entorno.

3. Menú/Clic en Ver/ Clic en Cuadro de Herramientas.

Menú/Clic en Ver/ Clic en Ventana de propiedades.

4. Cuadro de Herramientas/Datos/Elegir Elementos/Filtro: Oldb.

5. Luego hacemos clic en OledbConnection y OledbDataAdapter.

6. En oldbConnection/propiedades/Name/oConexión.

7. oldbConnection/Propiedades/ConnectionString/Agregar conexión.

8. En OledbDataAdapter/Propiedades/daEncuesta.

9. Clic derecho en daEncuesta/Configurar Adaptador de datos/Nueva Conexión/Cambiar/Archivo de base de datos/Aceptar.

10. Examinar/Encuesta/Abrir/Aceptar.

11. Siguiente/No/Siguiente/Generador de Consulta.

12. Tablas/Encuesta/Agregar/Siguiente/Finalizar.

Otra forma de crear la conexion:

Menú/Datos/Agregar nuevo origen de datos

Clic en base de datos/siguiente

Clic en conjunto de datos/siguiente/Nueva conexión.

Clic en Cambiar/clic en Examinar/Aceptar

Clic en siguiente/clic en No/siguiente

Clic en tabla/finalizar.

1. Agregar tabla/Encuesta/Agregar/Datos/Conjunto de datos.

2. Encuesta/seleccionar todas las columnas/Aceptar.

3. dataAdapter/propiedades/name/daEncuesta.

4. daEncuesta/Clic derecho/Propiedades.

Delete command/command text/delete from/Clic

Intruccion Delete:

Delete from Encuesta
Where (idEncuesta=?)

Update command/command text/Update from/Clic

Instruccion Update:

Update Encuesta

Where (idEncuesta=?)

Modificamos estas instrucciones ya que el delete y update pueden hacer cambios o eliminar todo los campos de un registro, ecepto el id ya que es autonumerico no se puede realizar nada sobre el.

Paso 4(Programar el Entorno)

1. Public Class entorno

Public Shared Datos As New entorno

Public Sub Conectar()

If oConexion.State <> ConnectionState.Open Then

oConexion.Open()

End If

End Sub

2. Public Function ObtenerDatos() As DataSet

Dim ds As New DataSet

Conectar()

daEncuesta.Fill(ds, "encuestaex")

oConexion.Close()

Return ds

End Function

3. Public Sub salvarencuesta(ByRef ds As DataSet)

Conectar()

daEncuesta.Update(ds)

oConexion.Close()

End Sub

Private Sub entorno_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub oConexion_InfoMessage(ByVal sender As System.Object, ByVal e As System.Data.OleDb.OleDbInfoMessageEventArgs) Handles oConexion.InfoMessage

End Sub

End Class

1. Hacemos la conexión, donde abriremos la oConexion.

2. Para Obtener los datos del dataSet, declaramos con Dim una variable que llamaremos ds donde aremos nuevo dataSet y conectaremos.

3. luego con el daEncuesta(DataAdapterEncuesta)lo que hacemos es llenar el dataset, en este caso llamado encuestaex cerramos la conexión.

Salvarencuesta, vamos a conectar los datos del dataset,donde el daEncuesta.Update(ds) nos modifica el dataset y cierramos la conexión.

Paso 5(Colocar los controles al formulario)

1. Nos vamos al formulario, luego a sus propiedades/text/Encuesta.

2. Propiedades/starPosition/center screen.

3. Luego Opciones de menú/Datos/Mostrar Orígenes de datos/dsEncuesta/encuestaex.

4. Cambiaremos el idEncuesta/Clic en la fleca/Ninguno.

5. Cambiaremos los demás controles ya que son de encuestas cerrada/Clic en la flecha/combobox.

6. Cuadro de Herramientas/Binding Source/Name/EncuestaexBindingSource.

7. Cuadro Herramientas/ErrorProvider/name/Err

8. Cuadro de Herramientas/BindingNavigator/Name/EncuestaexBindingNavigator.

9. Cuadro de Herramientas/Datos/DataSet/Aceptar.

Nota: Los campos en la tabla no pueden ir con espacios en blanco, ya que generara error.

Paso 7 (Programar el formulario)

1. Guardaremos los datos con el botón saveItem, Usaremos una condición (if) para el validar, donde mediante la condición sea verdadera se ejecutara los códigos 1, 2,3.

Luego el err es el que nos enviara una advertencia si faltara algún dato o sea incorrecto en el formulario cuando lo ejecutas.

2. Eliminaremos los datos ya almacenados con el botón deleteItem, lo que queremos entender en este código el msgboxStyle muestra los botones si y no cuando se ejecuta el msgbox.

3. Nuevo datos con el botón NewItem donde aplicamos los cambios pendientes con el EndEdit a el bindingsource luego agregaremos nuevos elementos al bingdingsource con el Addnew, luego obtenemos los indixes preestablecidos esto lo hacemos con el Selectindex.

Imports Encuesta_ex.entorno

Public Class Form1

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

DsEncuesta.Merge(Datos.ObtenerDatos, False)

End Sub

Private Sub EncuestaexBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EncuestaexBindingNavigatorSaveItem.Click

If validar() = True Then

1. EncuestaexBindingSource.EndEdit()

2. Datos.salvarencuesta(DsEncuesta)

3. DsEncuesta.AcceptChanges()

MsgBox("Los datos se han almacenado correctamente", MsgBoxStyle.Information, "salvar")

Pregunta1ComboBox.Focus()

End If

End Sub

Private Function validar() As Boolean

If Pregunta1ComboBox.Text = "" Then

Err.SetError(Pregunta1ComboBox, "debe seleccionar una respuesta")

Return False

End If

If Pregunta2ComboBox.Text = "" Then

Err.SetError(Pregunta2ComboBox, "debe seleccionar una respuesta")

Return False

End If

If Pregunta3ComboBox.Text = "" Then

Err.SetError(Pregunta3ComboBox, "debe seleccionar una respuesta")

Return False

End If

Return True

End Function

Private Sub EncuestaexBindingNavigator_RefreshItems(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EncuestaexBindingNavigator.RefreshItems

End Sub

Private Sub BindingNavigatorDeleteItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorDeleteItem.Click

If MsgBox("Desea eliminar este registro", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Eliminar") = MsgBoxResult.Yes Then

EncuestaexBindingSource.EndEdit()

EncuestaexBindingSource.RemoveCurrent()

Datos.salvarencuesta(DsEncuesta)

DsEncuesta.AcceptChanges()

MsgBox("El registro se ha eliminado de manera permanente", MsgBoxStyle.Information, "confirmado")

Pregunta1ComboBox.Focus()

End If

End Sub

Private Sub BindingNavigatorAddNewItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorAddNewItem.Click

EncuestaexBindingSource.EndEdit()

EncuestaexBindingSource.AddNew()

Pregunta1ComboBox.Focus()

Pregunta1ComboBox.SelectedIndex = -1

Pregunta2ComboBox.SelectedIndex = -1

Pregunta3ComboBox.SelectedIndex = -1

Pregunta4ComboBox.SelectedIndex = -1

Pregunta5ComboBox.SelectedIndex = -1

Pregunta6ComboBox.SelectedIndex = -1

Pregunta7ComboBox.SelectedIndex = -1

Pregunta8ComboBox.SelectedIndex = -1

Pregunta9ComboBox.SelectedIndex = -1

Pregunta10ComboBox.SelectedIndex = -1

Pregunta11ComboBox.SelectedIndex = -1

Pregunta12ComboBox.SelectedIndex = -1

End Sub

End Class

Pasos para crear la grafica

Paso 1

1. Clic derecho a mi proyecto/Agregar/Nuevo Elemento/Form/Nombre/Grafica

2. Cuadro de Herramientas/Datos/Chart.

3. Chart/Propiedades/name/oGrafico

4. Cuadro de Herramientas/Buton.

5. Buton/Propiedades/text Actualizar/Name cmdActualizar.

Pasos para hacer el Reporte

Paso 1

1. Clic derecho/Agregar/Nuevo Elemento/Elementos comunes/Reporting

2. Cuadros de Herramientas/Lista.

3. Cuadro de Herramientas/Cuadro de texto.

Código para la creación de mi reporte:

Colocamos un cuadro de herramientas, lo llamaremos «Expr», luego clic derecho/Propiedades de Cuadro de texto/General/Valor/fx.

Escribimos dentro de fx el siguiente código:

="Encuesta # " & Fields!Idencuesta.Value.ToString

1. Hacemos los cuadro necesarios en mi caso son 12 cuadros de preguntas y cada una de ellas lleva 4 cuadros, pero antes de mis preguntas hice 2 cuadros como se los había mostrado anteriormente donde programamos uno de ellos.

2. Luego de colocar los cuadros, en los cuadros a) y b) en todo el reporte se programaran, porque lo que queremos es visualizar los registros almacenados en la base de datos y tener cuales son las repuesta en el reporte.

3.Lo que hacemos es dar clic derecho sobre el cuadro “a)” seleccionamos propiedades de cuadro de texto/visibilidad/fx

4. Ahora les mostrare como programar los cuadros a) y b), en este caso será una condición y es de la siguiente manera:

=not(Fields!Pregunta1.Value="Si")