MANUAL PARA CREAR BASES DE DATOS EN VISUAL

MANUAL PARA CREAR BASES DE DATOS EN VISUAL STUDIO ADO. NET DIRIGIDO A: CJEste 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 txtFech txtinversion btnprimer btnanteri btnsiguiente btnAgregar btnultimo btnguardar btneliminar p 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. nuestro En esta pantalla debemos de cambiar el DataSource, seleccionamos Change para elegir el driver de Microsoft 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 Damos clic en QueryBuilder Aquí agregamos la tabla Datos. Seleccionamos todas las columnas damos clic en Ok: 2 «Datos»). position += 1 Mostrarposicion() Código del botón Anterior BindingContext(DsObras, «Datos»). osition -= 1 Código del botón Ultimo BindingContext(DsObras, «Datos»). position = _ BindingContext(DsObras, – 1 MostrarPosicion() Agregamos a nuestro código el procedimiento de Mostrarposicion Private Sub MostrarPosicion() Dim bmBase As BindingManagerBase – BindingContext(DsObras, «Datos») Dim iTotal As Integer = bmBase. Count total registros Dim iPos As Integer fiTotal=o hen etPosiclon. Text = «No registros» Else iPos bmgase. Position + 1 ‘número (1, 2, de registro ‘Mostrar información en la etiqueta etPosiclon. Text = iPos. ToString & » de » & iTotal. ToStnng End If End Sub Código del botón Agregar Me. xtClave. Text ‘ Me. txtNombre. Text = «» Me. txtFecha. Text = Me. txtInversion. Text = Me. txtClave. Focus() Código del botón 3 DaObras. Fill(DSOBRAS) If (DSOBRAS. HasChanges()) Then DaObras. UPdate(DSOBRAS) MessageBox. Show(«Ongen de datos actualizado») Me. Close() Código del botón eliminar Dim bmBase As BindingManagerBase BindingContext(DSOBRAS, «datos») Dim vistaFilaActual As DataRowView Dim NL As Strng = Environment. NewLine If borrar este registro? » & NL, «Buscar», MessageBox3uttons. YesNo, MessageBoxlcon. Question) = DialogResuIt. Yes) Then vistaFilaActual = bmBase. Current vista FilaActual. Row.

Delete() Código de las cajas de texto en el evento keypress para avanzar con un enter a otra caja de texto. Código de la caja de texto txtclave en el evento keypress If e. KeyChar = Chr(13) Then txtNombre. Focus() Código de la caja de texto txtnombre en el evento keypress txtfecha. Focus() End Código de la caja de 4 7 bmBase. Current vistaFilaActual. Row. Delete() para imprimir a excel debemos de agregar una referencia de la siguiente manera: Agregar las referencias que se encuentran en la carpeta obras. Código del botón imprimir a Excel Dim excelApp As New Excel. Application() Dim excelBook As Excel. Workbook = excelApp.

Workbooks. Add Dim excelWorksheet As Excel. Worksheet = CType(exceIBook. Worksheets(1), Excel. Worksheet) excelApp. Visible = True With excelWorksheet ‘ Set the column headers and desired formatting for the spreadsheet. .Columns(). ColumnWidth = 21. 71 «). Value = «CLAVE» . Range(«A1 «). Font. Bold = True «). value = «NOMBRE» «). Font. Bold = True «). Value = «FECHA» «). value = «INVERSION» ‘ Start the counter on the second row, following the column headers Dim i As Integer = 2 Loop through the Rows collection of the Dataset and write the data ‘ in each row to the cells in Dim dr AS DataRov,/ «Provider=Microsoft. et. oledb. 4. O;data Dim DV0bras AS Dataview Protected Const DEFAULT FILTERAs String = «Nombre like Protected Const DEFAULT _ SORT As String = «Nombre ASC, Nombre DESC» protected const NO_RECORDS FOUND_MESSAGE AS stnng – «No existen registros en ese criterio de busqueda. » Protected Const CAPTION_TITLE As String = «Ordena y filtra en un Dataview» protected const MESSAGE AS string – «No existen registros para ordenar. » Protected Const As MsgBoxStyle = CType(MsgBoxStyle. nformation + MsgBoxStyle.

OkOnly, MsgBoxstyle) Código para realizar consultas en el botón cmdNames Dim strFilter As String ‘Process the row filter criteria based on first character ofthe product name. ‘ if was selected, show all rows in the grid, else show only ‘ those rows beginning with the selected letter. If cboNombres. Text = Then strFilter = «Nombre like ‘ strFilter = «Nombre like «‘ & cboNombres. Text & DVobras. RowFilter = strFilter ‘Display the sorted and filtered View in the datagrid Gridobras. DataSource = DVobras ‘Display the number of rows in the view ‘lblRecords. Text = STATUS_MESSAGE & dvProducts.

Count. ToString ‘lblFilter. text strFilter ‘displav a msebox if no rec und that CAPTION_ICON BUTTON, CAPTION_TITLE) Exit Sub ‘Process the sort criteria selected for the View ‘ construct a sort strng for the primary, secondary sort keys ‘ The Primary sort key is the UnitslnStock column, the ‘ secondary sort key is UnitsOnOrder column f rbtNombresa. Checked = True Then strSort = «Nombre ASC» strSort = «Nombre DESC’ If rbtNombresd. Checked = True Then strSort = strSort & Nombre ASC» strsort = strsort & Nombre DESC» ‘Apply the sort criteria to the dataview DVobras.

Sort = strSort ‘Display the View in the datagrid Me. Gridobras. DataSource = DVobras Código del formulario de consultas en el evento load Dim amigosConnection As New OleDbConnection(conn) Dim productadapter As New OleDbDataAdapter(«SELECT clave, nombre, fecha, inversion from Datos», amigosConnection) Dim dsOBRAS As New DataSet() Dim Cmd As OleDbCommand Dim idrfc As String amigosConnection. Open() productadapter. Fill(dsOBRAS, «DATOS») «create the dataview; use a constructor to specify » the sort, filter criteria for performance purposes DVobras = New DEFAULT_FILTER, DEFAULT DataViewRowState. Orieina