none
Bloqueo de aplicacion RRS feed

  • Pregunta

  • Muy buenas, tengo una aplicacion que conecta a un webservices, al cual solicito que me busque un producto por una referencia, pero si el producto tiene un id muy largo como 300 la aplicacion de bloquea, sin embargo si voy debugueando funciona sin problemas, no se porque puede ser, les dejo el codigo:

      Private Function ReadRecord(ByVal TableName As String, ByVal UniqueID As String) As String
            Try
                Dim RequestURL As String = WebService_URL & "/" & TableName & "/" & UniqueID
                Dim webRequest As HttpWebRequest = DirectCast(System.Net.WebRequest.Create(RequestURL), HttpWebRequest)
                webRequest.Method = CRUDMethod.Read
                webRequest.ContentType = "application/xml"
                webRequest.Credentials = New NetworkCredential(WebService_LoginName, WebService_Password)
                webRequest.Timeout = 2000

                Dim response As HttpWebResponse = DirectCast(webRequest.GetResponse(), HttpWebResponse)
                Dim reader As StreamReader = New StreamReader(response.GetResponseStream())
                Dim strData As String = reader.ReadToEnd()

                reader.Close()

                Return strData

            Catch ex As Exception

                Return ""
            End Try
        End Function

     

    Try
                Dim i As Integer
                Dim respuesta As String

                For i = 0 To 600

                    ' si existe me cargas el xml, cojo su codigo

                    respuesta = ReadRecord("products", i)

                    'si el producto no existe

                    If respuesta = "" Then


                    Else


                        Dim xmlElem = XElement.Parse(respuesta)


                        For Each producto In From element In xmlElem.<product>.<reference>

                            Dim refencia As String
                            refencia = producto.Value


                            If refencia = textboxid.Text Then
                                MsgBox("Referencia encontrada en el producto" & i)
                                Exit Sub
                            Else

                            End If
                        Next

                    End If

                Next


            Catch ex As Exception

            End Try


    • Editado Adm1990 miércoles, 28 de mayo de 2014 10:15
    • Cambiado Enrique M. Montejo viernes, 30 de mayo de 2014 6:49 Desarrollo web
    miércoles, 28 de mayo de 2014 10:14

Todas las respuestas

  • que tal

    leyendo tus comentarios como que no me queda muy claro

    dices que cuando tienes un Id de 300?

    el Id para mi es un identificador en una tabla, no sera que te refieres que tu consulta regresa mas de 300 lineas?

    eso si tu Servicio regresa como resultado una tabla.

    otra. cuando debugues es con el mismo ejemplo que cuando corres el exe?

    saludos

    JC Velazquez Traveceras

    IT GDL MX

    miércoles, 28 de mayo de 2014 23:00
  • Gracias por responder, perdon si no me explique bien, el id corresponde al identificador de cada producto, que a su vez es la posicon que ocupa en la tabla, el funcionamiento es:

    Introduzco Referencia.............. busca el id correspondiente a esa referencia.......... accedo al xml del registro que coincide.......... y muestro su stock.

    Pero si el producto tiene una id muy alta (la posicion que ocupa es muy alto), tarda muchisimo o se queda bloqueada.

    Y si si es el mismo ejemplo.

    Gracias

    jueves, 29 de mayo de 2014 8:45