Base de datos

Fundamentos de programación de bases de datos de visual Basic

Ado-Dc

ActiveX Data Objects (ADO) es uno de los mecanismos que usan los programas de computadoras para comunicarse con las bases de datos, darles órdenes y obtener resultados de ellas.

Con ADO, un programa puede leer, insertar, editar, o borrar, la información contenida en diferentes áreas de almacenamiento dentro de la basede datos llamadas tablas. Además, se puede manipular la propia base de datos para crear nuevas áreas para el almacenamiento de información (tablas), como también alterar o eliminar las ya existentes, entre otras cosas.

Fue desarrollado por Microsoft y es usado en ambientes Windows por lenguajes de programación como Visual Basic, C++, De la phi entre otros, como también en la Web mediante eluso de Active Server Pagés (ASP) y el lenguaje VBScript.

Controles empleados para base de datos

Data grid
Formulario para buscar en un DataGrid mediante un TextBox y Commandbuttons.
El ejemplo para buscar, utiliza el método Find del record set. Para buscar en el DataGrid, se debe indicar que campo se va a tener en cuenta para la búsqueda. Dichos campos se añaden en un control Combo boxNota: así como está hecho el ejemplo, solo se puede buscar y especificar un campo que sea de tipo string, si no dará error en el método Find, por ejemplo si se busca en un campo de tipo Numérico
También hay un CheckBox para indicar de que forma buscar, es decir buscar el registro teniendo en cuanta la palabra completa, o parte de la cadena
 
Formulario
Flexgrid

Módulo para edición de unMsFlexgrid control
 
Este ejemplo que tenía lo coloqué en un Módulo de clase para poder reutilizarlo en forma un poco más óptima si se desea utilizar varios FlexGrid.
El mismo sirve para Editar un Flex simulándolo con un control TextBox que se sitúa en la celda del control.
 
Vista del Formulario

 
Descripción:
Para usar el módulo de clase, primero hay que crear una instancia de laclase, por ejemplo:
-------------------------------------------------
Set oEditFlex = New Class1
 
... Luego tiene una sola función llamada Iniciar que tiene 2 parámetros, el control FlexGrid y el TextBox que se usará asociado al Flex para que se posicione en las celdas correspondientes, por ejemplo para Iniciar sería el siguiente código
-------------------------------------------------
CalloEditFlex.Iniciar (UnControlFlex, UnControlText)

 

Eliminar rango en Grid
Este ejemplo utiliza las propiedades Row y RowSel para averiguar el rango de selección de datos de un grid de tipo flexgrid. Luego en un bucle, al presionar la tecla Delete, se eliminan las filas o celdas seleccionadas.

 
Controles
* Un Flexgrid
* Un botón ( Command1 ) para eliminar la selección
*Un botón ( Command2 ) para agregar ítems y datos
 
Código fuente en el form
Texto plano Copiar código fuente Imprimir
1. Option Explicit  
2.   
3. ' ---------------------------------------------------------------------------------   
4. ' \ -- Descripción : Eliminar rango ( filas seleccionadas ) de un Flexgrid   
5.'    -- Autor       : Luciano Lodola -- http://www.recursosvisualbasic.com.ar/   
6. ' ---------------------------------------------------------------------------------   
7.   
8. Private Sub Command1_Click()   
9.     ' -- Forzar el KeyDown enviando la tecla delete como parámetro   
10.     Call MSFlexGrid1_KeyDown(vbKeyDelete, 0)   
11. End Sub  
12.   
13. Private Sub Command2_Click()   
14.    ' -- Cargar grilla con valores   
15.     Call Fill_Grid   
16. End Sub  
17.   
18. Private Sub Form_Load()   
19.            
20.     MsgBox "Mantener la tecla Shift presionada para seleccionar un rango de filas." & _   
21.            ”Luego presionar el botón Supr para eliminar las celdas. O utilizar los botones", vbInformation   
22.                
23....