none
Ayuda con el método FindBy de una Tabla DataSet RRS feed

  • Pregunta

  • Hola a todos/as. 

    Estoy intentando manejar datos de una Tabla de un DataSet mediante el método "FindBy" en Visual Basic 2008, a pesar de ver algunos ejemplos de MSDN (poca cosa) no logro que me funcione ni tampoco llego a entender del todo esta función. Soy nuevo en el manejo de VB2008 pero buena experiencia en VB6.0
     

    Option Explicit Off ' No requiere que se declaren las variables
    
    
    
    Module CalculoDXCC
    
    
    
        Public Function CalcDXCC(ByVal Indicativo As String) As String
    
            
    
            Dim record As New PegasusLOGDataSet1.DXCCDataTable
    
            myrecord = record.FindByPREFIJO("EA")
    
    
    
            If myrecord IsNot Nothing Then
    
                record.CompanyName = "Updated Company Name"
    
                record.City = "Seattle"
    
            End If
    
    
    
        End Public
    
    
    
    End Module
    
    
    
    


    Si alguien sabe de esto y me puede ayudar se lo agradezco.
    Saludos

    • Editado Juan Rivero jueves, 19 de noviembre de 2009 19:41 Mejora
    jueves, 19 de noviembre de 2009 19:38

Respuestas

  • Gracias por tu tutorial Leandro, he terminado dejándolo así:

    Dim suppliersAdapter As New PegasusLOGDataSet1TableAdapters.DXCCTableAdapter
            Dim suppliers As PegasusLOGDataSet1.DXCCDataTable
            Dim supplier As PegasusLOGDataSet1.DXCCRow
    
            suppliers = suppliersAdapter.GetData()
            supplier = suppliers.FindByPREFIJO(Indicativo)
    
            If supplier IsNot Nothing Then
                Dim mydxcc As DXCC
                With myDXCC
                    .Contin = supplier.CONTIN
                    .CQ = supplier.CQ
                    .ITU = supplier.ITU
                    .Latitud = supplier.LATITUD
                    .Longitud = supplier.LATITUD
                    .NomArea = supplier.AREA
                    .Prefijo = supplier.PREFIJO
                End With
            End If
    • Marcado como respuesta Juan Rivero sábado, 21 de noviembre de 2009 18:10
    sábado, 21 de noviembre de 2009 18:09

Todas las respuestas