Sección de códigos , trucos y ejemplos para visual basic

83 - Cargar datos de un campo de una base de datos en un menú PopUp

Este ejemplo simple muestra como cargar datos de un campo de una base de datos Access, en un menú Popup en forma dinámica usando DAO.

Descargar código fuente del proyecto

El Formulario y los controles

Para el ejemplo seguir los siguientes pasos:

Crear un menú PopUp llamado MnuPopUp. ( Colocarle la propiedad Visible en False)
Añadir un subMenu al Menú popup anterior , y en la propiedad Name colocarle como nombre SubMenu.
Especificar en la propiedad Index, del SubMenu creado anteriormente, el valor 0, para formar de esta manera un Array y poder crear los demás subMenu en tiempo de ejcución con Load

Vista del editor de menú de Visual basic

Ahora añadir como muestra la primer imagen, un textBox llamado txt_Path (para indicar la ruta de la base de datos)

Agregar un CommandButton para cargar

Por último indicar desde el menú de Referencias de visual basic, Microsoft DAO

Nota: en este enlace hay un ejemplo pero usando Ado : Cargar menú en forma dinámica con Ado

Código fuente en el formulario

Option Explicit ' \\ -- Autor: Luciano Lodola -- http://www.recursosvisualbasic.com.ar/ ' -- Nota: Indicar la referencia a DAO ' ---------------------------------------------------------------------------------------- Private Declare Function SetErrorMode Lib "kernel32" (ByVal wMode As Long) As Long Private Declare Sub InitCommonControls Lib "Comctl32" () ' ---------------------------------------------------------------------------------------- ' \\ -- Subrutina para cargar en forma dinámica el menú de opciones ' ---------------------------------------------------------------------------------------- Private Sub Cargar_Menu( _ El_SubMenu As Object, _ SQL As String, _ Campo As String, _ Path_Bd As String) On Error GoTo error_Handler Dim i As Integer ' -- Variable para la base de datos y el recordset Dim dbs As Database Dim rst As Recordset ' -- Abrir la base de datos Set dbs = OpenDatabase(Path_Bd) ' -- Llenar el recordset Set rst = dbs.OpenRecordset(SQL) ' -- Ir al primer registro rst.MoveFirst ' -- Por si hay Submenu cargados, los descarga a todos For i = 1 To El_SubMenu.Count - 1 Unload El_SubMenu(i) Next ' -- Recorre el recordset Do While Not rst.EOF ' -- Establecer el caption del primer SubMenu El_SubMenu(El_SubMenu.Count - 1).Caption = rst.Fields(Campo) ' -- Crear otro menú dinamicamente mediante Load Load El_SubMenu(El_SubMenu.Count) ' -- Movemos el recordset al Siguiente registro rst.MoveNext Loop Call Liberar(dbs, rst) Exit Sub ' -- Error error_Handler: Call Liberar(dbs, rst) MsgBox Err.Description, vbCritical End Sub Private Sub Liberar(dbs As Database, rst As Recordset) ' -- Cerrar las conexiones rst.Close dbs.Close ' -- Descargar las variables de objetos para liberar recursos ' -- Descargamos las variables ( recordset y base de datos ) If Not rst Is Nothing Then Set rst = Nothing If Not dbs Is Nothing Then Set dbs = Nothing End Sub ' --------------------------------------------------------------------------------------- ' \\ -- Botón para cargar los registros en el menú ' --------------------------------------------------------------------------------------- Private Sub Command1_Click() Call Cargar_Menu(SubMenu, "Select [NombreCategoría] FROM [Categorías]", "NombreCategoría", txt_path) End Sub ' --------------------------------------------------------------------------------------- ' \\ -- Evento de los menú ' --------------------------------------------------------------------------------------- Private Sub SubMenu_Click(Index As Integer) MsgBox SubMenu(Index).Caption, vbInformation End Sub ' --------------------------------------------------------------------------------------- ' \\ -- Inicio ' --------------------------------------------------------------------------------------- Private Sub Form_Initialize() Call SetErrorMode(2) Call InitCommonControls End Sub Private Sub Form_Load() ' -- Path de la base de datos txt_path = "C:\Archivos de programa\Microsoft Visual Studio\VB98\nwind.mdb" Command1.Caption = " Cargar Menú PopUp " End Sub Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) ' -- Mostrar el menu popup al presionar el botón derecho del mouse If Button = vbRightButton And SubMenu.Count > 1 Then Me.PopupMenu MnuPopUp End Sub Private Sub Frame1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) ' -- Mostrar el menu popup al presionar el botón derecho del mouse If Button = vbRightButton And SubMenu.Count > 1 Then Me.PopupMenu MnuPopUp End Sub

Recursos Visual basic 6.0 - enlaces

Buscar en Recursos vb