Temas

Hola buenas tardes.
Tengo una pregunta.
Tengo 3 clases: Persona, Alumno y Docente.
Docente y Alumno heredan de persona
Quiero crear un array de tipo Persona, ingresar Alumnos y Docentes en cualquier orden y guardarlos en el arrat
No se cuantos alumnos y docentes se desea ingresar, por lo tanto no se el tamaño del array Persona.
Use este codigo pero no funciono.
El error es que array es una referencia a objeto nula

Código [Seleccionar] Expandir


public void Cargar()       
        {
            Persona[] array = null;
           
            array [0] = new Alumno();
            array [1] = new Docente();
            array [2] = new Alumno();
            array [3] = new Docente();

            foreach (Persona p in array )
            {
                p.Caminar();
            }
        }

Si o si debo usar el tipo array, ni listas ni ninguna otra cosa, array
Podrian ayudarme
muchas gracias

Hola no se si es el lugar correcto pero aca va mi pregunta
tengo que elegir entre dos notebook.. una tiene
1) Pentium P6200  y 2gb RAM sistema operativo W7starter
2) Turion P560      y 3gb RAM sistema operativo W7starter

cual me combiene el mejor micro (Intel) o la que tiene mas memoria

muchas gracias

[s]

Hola estoy haciendo una aplicacion basica de 2 tablas Personas y Paises donde c/persona tiene un pais asociado
el problema que tengo surge cuando quiero modificar una persona o agregar una nueva persona (no hay abm de paises) cuando quiero  asociarle su IdPais me da error
el nombre de la propiedad de navegacion en la tabla Personas del modelo entity se llama Pais
Trabajo en capas hay una capa de datos en donde va el codigo que pegue y una capa de objetos con dos clases Personas y Paises
Personas tiene 3 propiedades Id, NombrePersona y IdPais
Pais tiene 2 propiedades IdPais y NombrePais

Código [Seleccionar] Expandir


// este es el codigo para modificar
public void Modificar(CapaObjetos.Personas p)
       {
           using (var modifPersona = new PersonasModelo())
           {
               var modif = from pers in modifPersona.Personas.Include("Pais")
                          where pers.Id == p.Id
                          select pers;

               var reg = modif.FirstOrDefault();    
               reg.Nombre = p.Nombre;
               reg.Pais.IdPais = p.IdPais; //error              
               //reg.IdPais = p.IdPais;   // tambien da error              
               modifPersona.SaveChanges();
             
           }
       }

// este es el codigo para agregar
public void Agregar(CapaObjetos.Personas persona)
       {
           using (var datosPersona = new PersonasModelo())
           {
               CapaDatos.Personas newPersona = new CapaDatos.Personas();                
               newPersona.Id = persona.Id;
               newPersona.Nombre = persona.Nombre;                
               newPersona.Pais.IdPais = persona.IdPais;  //error          
               datosPersona.AddToPersonas(newPersona);
               datosPersona.SaveChanges();
           }
       }


saludos y muchas gracias por su ayuda

Hola a todos tengo un problema no se como hacer para que todos los metodos sepan que existe una variable llamada boton

Código [Seleccionar] Expandir



public partial class ABM : System.Web.UI.Page
{
   string boton;
   int id;
   string nombre;

   protected void Page_Load(object sender, EventArgs e)
   {      
   }

   protected void cmdAceptar_Click(object sender, EventArgs e)
   {
       switch (boton)
       {
           
           case "Modificar":
               
               p.Modificar(id, nombre);
               break;

           case "Eliminar":
               
               p.Eliminar(id);
               break;
       }
       this.RefrescarGrilla();
       Panel1.Visible = false;
   }
 

   protected void cmdModificar_Click(object sender, EventArgs e)
   {
       
       Panel1.Visible = true;
       boton = "Modificar";
   }

   protected void cmdEliminar_Click(object sender, EventArgs e)
   {
       
       Panel1.Visible = true;
       boton = "Eliminar";
   }    

}



lo que quiero es que segun el valor que le doy a boton(modificar eliminar)
y en el metodo cmdAceptar entre por alguno de los case del switch para llamar al metodo de p que corresponda
el problema es que boton trae null luego de salir del metodo cmdEliminar o cmdModificar y me pasa de largo las opciones del switch

espero que alguien me de una mano
la solucion debe ser muy simple pero no me doy cuenta

gracias

Hola deseo saber si hay alguna forma construir una aplicación que reciba el nombre de un mes del año como el parámetro y proporcione su número correspondiente
o sea ingreso "Enero" y obtengo 1  

Código [Seleccionar] Expandir


string mes = Console.ReadLine();
           switch (mes)
           {
               case "enero":
                   Console.WriteLine("{0}---1",mes);
                   break;
               case "febrero":
                   Console.WriteLine("{0}---2",mes);
                   break;
               case "marzo":
                   Console.WriteLine("{0}---3",mes);
                   break;
               case "abril":
                   Console.WriteLine("{0}---4", mes);
                   break;
               case "mayo":
                   Console.WriteLine("{0}---5", mes);
                   break;
         }


lo que me gustaria saber es si hay alguna forma mas directa   usando alguna
funcion propia de C# por que esta es una forma de hacerlo pero C# proporciona alguna funcion para evitar escribir todo este codigo gracias saludos

Hola a todos deseo saber si existe una funcion que me permita saber si hay uno o mas números dentro de una cadena
uso este codigo pero no me sirve

Código [Seleccionar] Expandir


'en el txt ingreso e32er
text1.text = "e32er"
If Is Numeric(text1.text)  then 'esto no me funciona por que da falso por mas
                                                    'que la cadena tenga texto


gracias
saludos

Hola a todos tengo que hacer un programa que envie un mensaje de texto desde mi aplicacion vb 6 a un celular Claro / Personal / Movistar  de Argentina y la verdad no tengo idea de como hacerlo ni que utilisar ???

me pueden ayudar   alguien hizo algo asi  
Muchas Gracias
Saludos

Hola a todos tengo el siguiente problema... tengo que guardar datos en un archivo .bin  (ej : pepe.bin)  en donde cada dato que voy a guardar tiene un nombre, tipo y ocupa cierta cantidad de bytes dentro del archivo ej :
nombre:    tamaño:   tipo de datos:
cantidad   2 bytes    binario LSB-MSB

el problema que me surge es que al leer la cantidad de la BD (tipo de dato integer) lo debo pasar a hexa  luego swapearlo  y guardar esos valores ocupando solo 2 bytes
Pd:  para abrir el archivo y ver como se guardaron los datos guardados uso el UEStudio (UltraEdit)
ej

Código [Seleccionar] Expandir


Private Sub Form_Load()
Dim cantidad As Integer
Dim cantHexa  As String
Dim a As String
Dim b As String

cantidad = 6871             'lo paso a hexa
cantHexa = Hex(6871)  'y da "1AD7" que es un dato de tipo string

'ahora debo guardarlo swapeado y solo ocupando 2 bytes
a = Right(cantHexa, 2)  'D7
b = Left(cantHexa, 2)  '1A

Open "D:\pepe.bin" For Binary As #1
Put #1, 1, a 'D7
Put #1, 2, b '1A
Close #1
End Sub


El problema   que tengo es que este codigo me guarda 44 31 41 en tres bytes (valor hexa de D, el de 1 y el de A el 7 se pisa porque A1 me ocupa 2 bytes ) esto lo veo  usando el UEStudio conmutando a  modo hexa
Lo que yo deseo guardar es D7 (no 44 37) ocupando  un solo byte y 1A (no 31 41) ocupando un solo byte o sea que cuando uso el UeStudio  en modo hexa vea D7 y 1A ocupando solo 2 byte  
Bueno se hizo largo por que trate de ser lo mas claro posible
Espero que se entienda  
Un gran saludo

Hola a todos tengo un problema tengo un Msflexgrid al que le cargo como datos los nombres de archivo que hay en una carpeta.... esto lo hago bien

mi problema es como hacer para que el usuario solo pueda  seleccionar una fila y no varias he buscado en la ayuda de VB 6 y en la web y no encontre ninguna propiedad tal como multiline (la pondria en false) pero esta propiedad no esta en el flex??

he intentado usar True DB Grid pero no se como cargar los datos de los archivos...
si se como cargar datos desde una BD (pero esto no es lo que necesito) tampoco puedo cargar los nombres a una bd y obtenerlos desde alli no por que no sepa sino por que no es mi objetivo

PD tambien me seria util aprender a cargar estos datos en el True DB Grid 

gracias a todos
un saludo

hola a todos tengo que crear una tarea programada para hacer un  backup automatico de una bd ... pero no se como ????

busque info y encontre NetScheduleJobAdd pero no me queda claro como manejarlo
agradezco cualquier ayuda

saludos

Hola a todos deso saber como puedo llenar un TDBGrip Pro 8 OLEDB con los datos obtenidos de una consulta SQL (antes usaba el dte y lo unico que tenisa que hacer es decirle a que campo de la tabla corresponde cada columna de la grilla ) pero ahora trabajo con ADO y no se como decirle que me cargue los datos traidos del recorset
intente algo como esto pero no funciona

Código [Seleccionar] Expandir



Dim rsEquipos As New ADODB.Recordset

rsEquipos.Open "SELECT * FROM EQUIPOS", gCnn, adOpenDynamic, adLockOptimistic
If Not (rsEquipos.BOF) And Not (rsEquipos.EOF) Then
    tdbgEquipos.DataSource = rsEquipos
    rsEquipos.MoveFirst
    Do While Not rsEquipos.EOF
        tdbgEquipos.Columns(0).DataField = rsEquipos(0)
        tdbgEquipos.Columns(1).DataField = rsEquipos(1)
        tdbgEquipos.Columns(2).DataField = Trim(rsEquipos(2))
        rsEquipos.MoveNext
    Loop
    tdbgEquipos.Refresh
End If
End Sub


saludos y gracias

Hola a todos estoy tratando de desactivar y activar el autorun de un pen drive
basicamente lo que quiero hacer es que cuando mi progama este funcionando modificar el registro (o lo que sea ) para que al insertar un pen no funcione el autorun... luego cuando cierro mi programa activar el autorun
el problema es que no se que registro ni que parametros modificar ni como     

agradezco toda ayuda
saludos

Hola a todos tengo un problema no encuentro la forma de desabilitar los botones max button, min button y control box de un formulario MDI y no encuentro estas propiedades en la ventana de propiedades del formulario probe con este codigo y como lo suponia da error

Código [Seleccionar] Expandir


MDIForm1.MaxButton = False
MDIForm1.MinButton = False
MDIForm1.ControlBox = False

en los formularios hijos (propiedad MDIChild = true) los puedo desabilitar  pero en el mdi principal no    se puede hacer lo que yo pido o estos botones no se pueden desabillitar en el mdi principal???

alguna idea 

muchas gracias
saludos

Hola a todos necesito saber cómo se autoajustan las celdas de un TrueDBGrid.    di vueltas por todas las propiedades y no me doy cuenta cual es   

si alguien sabe la respuesta le estaré muy agradecido.

un gran saludo

Hola a todos estoy usando el control true dbgrid pro 8 (OLEBD) con un data environment y sql server 2000
en sql server cree una vista llamada VistaLogIn
en el data environment (dte1) cree la conexión (cn1) y un comando llamado cmdVistaLogIn que posee la siguiente instruccion sql "SELECT * FROM [VistaLogIn];"
en las propiedades de la grilla puse data source dte1 y data member cmdVistaLogIn luego cree las columnas asociando su data field a los datos del cmd
y no cambie ninguna otra propiedad mas....
quiero que me muestra datos cuando aprieto un boton

tengo el siguiente problema..........
cuando cargo el frm la grilla ya me muestra datos sin que yo haga nada y ademas si borro algun campo de la base de datos la grilla no se refresca
uso el siguiente codigo en el boton

Código [Seleccionar] Expandir

sql =
"SELECT * FROM VistaLogIn"
dte1.cn1.Execute sql
TDBGridLog.ReOpen
TDBGridLog.Refresh

pero no hay caso la grilla no se actualiza probe usar update y nada
alguna idea 
gracias
saludos

Hola estoy usando fso.MoveFolder para mover una carpeta de un disco C al disco D pero me da el siguiente eror "error 70 permiso denegado" ya me fije en los permisos de la carpeta y en los permisos de lectura y escritura del rigido (si lo hago en forma manual funciona) pero sigue sin funcionar

probe mover la carpeta de un lugar a otro dentro del disco C y funciono pero cuando el destino es el D u otro dispositivo falla

alguna idea??????????

saludos

Hola a todos alguien sabe como puedo comprimir carpetas y subcarpetas en .CAB
estoy usando COMMKCABLib.MakeCab pero solo puedo comprimir archivos       y lo que yo necesito es comprimir la carpeta,la subcarpeta y el archivo que esta dentro

gracias
saludos 

Hola a todos hay algun codigo de VB 6 que me permita saber si una carpeta esta vacia  yo comosco la ruta de la carpeta a exsaminar y deseo saber si tiene archivos u otras carpetas de contenido

saludos
muchas gracias 

[EDIT:poner titulos descriptivos a los post !!!]

el frm tiene un listbox y dos botones detectar y extraer
el problema surge cuando inserto dos pendrives en ocasiones no muestra los datos en forma correcta o sea el ESN no coincide con la letra y el volumen
codigo del frm

NO LEAN ESTE CODGIGO LEAN EL SEGUNDO

Código [Seleccionar] Expandir



Option Explicit

Dim matriz_Volume(1 To 26, 1 To 26) As String
Dim matriz_ESN(1 To 26) As String


Private Sub cmdExtraer_Click()

If lst1.ListIndex > -1 Then

    EjectDevice (lst1.List(lst1.ListIndex))
    lst1.RemoveItem (lst1.ListIndex)
    lst1.Refresh
Else
    MsgBox "No hay dispositivos USB instalados"
End If


End Sub

Private Sub cmdDetectar_Click()

Call Dame_Unidad_USB
Call Numero_de_Serie
Call Mostrar

End Sub


Public Sub Numero_de_Serie()

    Dim Disco As Object
    Dim cadena As String
    Dim largo As Integer
    Dim contador As Integer
    Dim i As Integer
    Dim posicion As Integer
    Dim resultado As String
    Dim largo_Res As Integer
    Dim contador2 As Integer
    Dim j As Integer
    Dim posicion2 As Integer
    Dim ESN As String
    Dim k As Integer
   
    k = 1
With GetObject("WinMgmts:")

    For Each Disco In .InstancesOf("Win32_DiskDrive") ' 3 objetos 2 usb + ide
   
        If Disco.InterfaceType = "USB" Then ' detecto si son usb

            cadena = Disco.PNPDeviceID 'tiene embebido el ESN
           

            largo = Len(cadena)
            contador = 0
   
            For i = largo To 1 Step -1
       
                posicion = InStr(i, cadena, "\")
                contador = contador + 1
           
                If posicion > 0 Then
                    resultado = Right(cadena, contador - 1)
                    Exit For
               
                End If
            Next
   
            largo_Res = Len(resultado)
            contador2 = 0
       
            For j = largo_Res To 1 Step -1
                posicion2 = InStr(j, resultado, "&")
                contador2 = contador2 + 1
       
                If posicion2 > 0 Then
                    ESN = Left(resultado, largo_Res - contador2)     'resultado2 = Left(resultado, largo_Res - contador2)
                    matriz_ESN(k) = ESN
                    k = k + 1
                    'lst1.AddItem ESN
                    Exit For
                End If
       
            Next
       
    End If ' cierra el primer if el q detecta usb

    Next ' cierra el for q recorre los objetos

End With
       
End Sub



Public Sub Dame_Unidad_USB()

    Dim NumDisco As Integer
    Dim StrDisco As String
    Dim ret As Long
    Dim letra_Unidad As String
    Dim numero_Volume As Long
    Dim bandera As Boolean
    'Dim matriz_Volume(0 To 25, 0 To 25) As String
    Dim i As Integer
   
       
    lst1.Clear
   
    bandera = False
    i = 1
   
    For NumDisco = 0 To 25
       
        StrDisco = Chr(NumDisco + 65) & ":\"   'convierte  a char c/numero del bucle esta es la letra a verificar
        If NumDisco = 0 Then
            ret = GetDriveType(StrDisco)
        ElseIf NumDisco > 0 And GetDriveType(StrDisco) = 2 Then ' si pasa x este if se detecto un USB
            ret = 7
           
            letra_Unidad = StrDisco
            numero_Volume = GetVolumeNumber(StrDisco)    'obtengo el numero de volumen         'lESNUnidad = GetVolumeNumber(StrDisco)
            matriz_Volume(i, 1) = letra_Unidad
            matriz_Volume(i, 2) = Hex(numero_Volume)
            i = i + 1
            'MsgBox matriz_Volume(1, 1) & matriz_Volume(1, 2)
            'lst1.AddItem matriz_Volume(i, 1) & matriz_Volume(i, 2) & matriz_Volume(i, 3)
            'lst1.AddItem letra_Unidad & " " & Hex(numero_Volume)
           
            bandera = True
        ElseIf NumDisco > 0 And GetDriveType(StrDisco) <> 2 Then
            ret = GetDriveType(StrDisco)
        End If
    Next
   
    If bandera = False Then
        MsgBox "No hay dispositivos USB instalados"
    End If


End Sub

Public Sub Mostrar()
Dim i As Integer
For i = 1 To 26
    lst1.AddItem matriz_Volume(i, 1) & " " & matriz_ESN(i) & " " & matriz_Volume(i, 2)
Next
End Sub


Function GetVolumeNumber(strDrive As String) As Long ' obtengo el numero de volumen de la letra q le paso

Dim SerialNum As Long
Dim res As Long
Dim Temp1 As String
Dim Temp2 As String

Temp1 = String$(255, Chr$(0))
Temp2 = String$(255, Chr$(0))

res = GetVolumeInformation(strDrive, Temp1, _
Len(Temp1), SerialNum, 0, 0, Temp2, Len(Temp2))
GetVolumeNumber = SerialNum


End Function



codigo del modulo

Código [Seleccionar] Expandir


Option Explicit

Declare Function GetVolumeInformation Lib "kernel32.dll" Alias _
"GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal _
lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Integer, _
lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, _
lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal _
nFileSystemNameSize As Long) As Long

Public Declare Function GetLogicalDrives Lib "kernel32" () As Long
Public Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long




EDIT:poner titulos descriptivos a los post !!!

Hola a todos estoy tratando de manejar la ventana Dar Formato de Windows  desde VB 6 todo por codigo sin interaccion del usuario para formatear un pen drive
pero tengo dos problemas 

1) el codigo que tengo solo se ejecuta si la ventana Dar Formato esta abierta yo quiero cargarla desde codigo y luego manejarla probe con SHFormatDrive pero carga la ventana y el codigo no sigui su ejecucion

2) con la ventana visible solo logre controlar el boton Iniciar ... no se como controlar la ventana de ADVERTENCIA que aparece a continuacion

Alguna ayuda  muchas gracias!!!

les paso el codigo es un formulario y un boton

Código [Seleccionar] Expandir



Option Explicit
   
' Funciòn APi para buscar Ventanas de Windows
Private Declare Function FindWindow _
    Lib "user32" _
    Alias "FindWindowA" ( _
        ByVal lpClassName As String, _
        ByVal lpWindowName As String) As Long
       
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" _
(ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Integer

Private Declare Function ShowWindow _
        Lib "user32" _
       (ByVal hwnd As Long, _
        ByVal nCmdShow As Long) As Long
       
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _
    ByVal hwnd As Long, _
    ByVal wMsg As Long, _
    ByVal wParam As Long, _
    lParam As Any) As Long
       
     
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
    ByVal bScan As Byte, _
    ByVal dwFlags As Long, _
    ByVal dwExtraInfo As Long)
   
'constantes para SHFormatDrive
Const SHFMT_ID_DEFAULT As Long = 65535

' constantes para las teclas
'Const keyeventf_keyup = &H2
Const KEYEVENTF_KEYUP = &H2
'Const keyeventf_extendedkey = &H1
Const KEYEVENTF_EXTENDEDKEY = &H1
Const VK_RETURN = &HD

Const NOMBRE_VENTANA = "Dar Formato Disco de 3½ (A:)"
       
'constantes para ShowWindow
Const SW_HIDE = 0
Const SW_SHOWNORMAL = 1
Const SW_SHOWMINIMIZED = 2
Const SW_MAXIMIZE = 3
Const SW_SHOWMAXIMIZED = 3
Const SW_SHOWNOACTIVATE = 4
Const SW_SHOW = 5
Const SW_MINIMIZE = 6
Const SW_SHOWMINNOACTIVE = 7
Const SW_SHOWNA = 8
Const SW_RESTORE = 9
Const SW_SHOWDEFAULT = 10
Const SW_MAX = 10

'constantes para SendMessage
Const BM_SETSTATE = &HF3
Const WM_LBUTTONDOWN = &H201 ' botón izquierdo abajo
Const WM_LBUTTONUP = &H202 ' izquierdo arriba
Const BM_CLICK = &HF5


Private Sub Comprobar(ventana As String)
 
    Dim retorno As Long
    Dim boton_iniciar As Long
    Dim boton_cerrar As Long
    Dim boton_aceptar As Long
    Dim retorno2 As Long
       
   
    ' busca la ventana y retorna el Handle
    retorno = FindWindow(vbNullString, ventana) ' aca detecta por el nombre de la ventana
    boton_iniciar = FindWindowEx(retorno, 0, vbNullString, "&Iniciar") 'identifico el boton iniciar
    boton_cerrar = FindWindowEx(retorno, 0, vbNullString, "&Cerrar") 'identifico boton cerrar
       
    ' simulo el click al boton
    Call SendMessage(boton_iniciar, BM_CLICK, 0, 0)
    Call SendMessage(boton_iniciar, BM_CLICK, 0, 0)
    Call SendMessage(boton_iniciar, BM_SETSTATE, 0, ByVal 0&)
             
        'esta parte del codigo no funciona
    boton_aceptar = FindWindowEx(retorno, 0, vbNullString, "Aceptar") 'identifico boton aceptar
    If boton_aceptar <> 0 Then
        Call SendMessage(boton_aceptar, BM_CLICK, 0, 0)
        Call SendMessage(boton_aceptar, BM_CLICK, 0, 0)
        Call SendMessage(boton_aceptar, BM_SETSTATE, 0, ByVal 0&)
    End If
   
       
End Sub
 
Private Sub Command1_Click()
    ' Para comprobar si está abierto el Internet explorer
    Comprobar NOMBRE_VENTANA
End Sub
 



Hola a todos hace varios dias que trato de crear una función que haga lo siguiente:
cuando yo le paso como parametro la letra de cualquier unidad (la letra la cargo en un txt) me devuelva el tipo de dispositivo ej USB IDE SATA etc

ya busque informacion y tambien probe usar GetDriveType pero esto me devulbe si el dispositivo es fijo remobible etc

y tambien probe Win32_DiskDrive InterfaceType = "USB"  pero aca no le puedo pasar la letra como parametro

Alguna idea
PD NO quiero generar letras en forma automatica e ir comprobando

Gracias Saludos

Hola a todos tengo una pregunta estoy buscando la forma de formatear un pendrive con VB 6 sin usar SHFormatDrive que lo unico que hace es abrir la ventana de Windows "Dar Formato"... a ver si me explico se puede formatear un pendrive por codigo sin abrir la ventana de Windows "Dar Formato"

Alguna pista????
Gracias por su ayuda

Hola a todos despues de una larga busqueda no puedo hallar un codigo para obtener el product id y el vendor id de un pen drive
lo que necesito es un codigo que me muestre lo siguiente:
Unidad: F: Product ID: 1A34 Vendor ID: 6H78
Unidad: G: Product ID: 245J Vendor ID: 7E8H
etc
donde unidad son los pen drives detectados

Alguien me puede ayudar 
Se lo agradecere muchisimo
Un saludo

Hola a todos alguien tiene un codigo para detectar el  Product ID y Vendor ID de un Pen Drive con VB 6 por que lo que encontre en la web no me funca o no lo entiendo (soy bastante nuevo en programacion)
muchas gracias
un saludo

Hola a todos necesito un codigo sencillo para descomprimir un archivo .cab (el cual ya compacte con codigo VB)  pero no encuentro la forma de extraerlo
si me pueden ayudar muchas gracias