[SOLUCIONADO] Dato de un aspx a otro aspx al darle a un boton

[maialenlopez]

Hola,
Como siempre que escribo aquí, necesito de vuestra ayuda. Os explico:
Esoty programando en vb.net y tengo un hoja1.aspx y un hoja2.aspx. En hoja1.aspx tengo un textbox y un botón. Y en el hoja2.aspx tengo diferentes textbox.
En el textbox que tengo en hoja1.aspx introduzco un numero, este valida que existe en la base de datos y un vez que compruebe y no de ningún error se le da al botón.
Lo que quiero es que al darle al botón a parte de abrir la hoja2.aspx (que eso se hace mediante un Response.Redirect("hoja2.aspx")) quiero que se le pase el numero que se ha introducido en el textbox para que así al acceder a hoja2.aspx me cargue información sobre ese numero.
No se si me e explicado bien sobre lo que quiero. Si no lo he echo decirme e intentare ponerlo de otra forma.

Gracias

[thanos]

Hola, yo no tengo mucha idea así que no sé si podré ayudarte. Prueba a almacenar el valor del textbox de la hoja1 en una variable global y luego usa esa variable para cargar los datos en la hoja2. Espero te sirva de algo. Un saludo.

[maialenlopez]

He leído que para crear una variable global tengo que crear un modulo y hay declararla como publica.

Código vb.net:

Module modulo
 
        public variableGlobas As String
 
End Module
 

Pero sigo teniendo una duda, yo al comprobar el textbox, si todo es correcto, guardo lo que he introducido en el textbox en la variableGlobal. Pero esta variable como se la paso al otro aspx?

[thanos]

Lo de crear un módulo no lo sé, porque no estoy muy puesto de vb pero sí has de declararla pública. Luego, imagina que quieres igualar un textbox de la hoja2 a la variable global, pues para recuperar el valor sería textbox.Text=hoja1.variableglobal.
Si vas a recuperar datos de una bd recuerda hacer la conversión de tipo de datos si es necesario.

[Malenko]

Hay opciones más limpias que una variable global, como pasar el valor en una variable de sesión o pasarlo como parametro en la redirección (via post o get).

Dale un vistazo a esto:
http://msdn.microsoft.com/es-es/libr...=vs.80%29.aspx

[maialenlopez]

Iniciado por thanos

Lo de crear un módulo no lo sé, porque no estoy muy puesto de vb pero sí has de declararla pública. Luego, imagina que quieres igualar un textbox de la hoja2 a la variable global, pues para recuperar el valor sería textbox.Text=hoja1.variableglobal.
Si vas a recuperar datos de una bd recuerda hacer la conversión de tipo de datos si es necesario.

Hola he comprobado tal y como has indicado. hacer un modulo en el que introduzco la variable global

Código vb.net:

Module modulo1
     public variableglobal as String
End Module
 

Una vez echo esto he indicado en el page_load de la hoja.aspx.vb

Código vb.net:

texbox.text = hoja1.variableglobal
 

y me indica variableglobal no es miembro de hoja1

[Malenko]

Iniciado por maialenlopez

Hola he comprobado tal y como has indicado. hacer un modulo en el que introduzco la variable global

Código vb.net:

Module modulo1
     public variableglobal as String
End Module
 

Una vez echo esto he indicado en el page_load de la hoja.aspx.vb

Código vb.net:

texbox.text = hoja1.variableglobal
 

y me indica variableglobal no es miembro de hoja1

Es que cada aspx es una clase parcial, por lo que al ser instancias diferentes no puedes hacer lo que tu quieres. Mirate el tema de las variables de sesión que te comenté antes ;)

[Aquaventus]

Hola maialenlopez, aqui tengo unos ejemplos de lo que pides. Comunicar WebForms. Saludos!.

[maialenlopez]

No me sale, me he ido guiando de lo que me has mandado pero no lo consigo

en Identificador.aspx.vb tengo lo siguiente:

Código vb.net:

Public Class Identificador
    Inherits System.Web.UI.Page
 
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
 
    End Sub
 
    Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim numeroIdentificador As String
        If TxtIdNumIdentificador.Text = "" Then
            ValidacionAsterisco23.Text = "*"
            validacion4.Text = "Identificador incorrecto"
        Else
            'Dependiendo del identificador, Me carga una pagin u otra
            numeroIdentificador = TxtIdNumIdentificador.text
            Response.Redirect("VRHojaLiquidacionGastos.aspx")
        End If
    End Sub
End Class
 

Y en VRHojaLiquidacionGastos.aspx.vb tengo lo siguiente

Código vb.net:

Public Class VRHojaLiquidacionGastos
    Inherits System.Web.UI.Page
 
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
 
        Dim numHoja As String
        
        [B]numHoja = Identificador.numeroIdentificador [/B]
    End Sub
End Class
 

Lo que esta en negrita no me lo reconoce, no se como hacerlo.

[Aquaventus]

De lo que te eh pasado, hay 4 tipos de comunicación. Revisalo bien. lo que has hecho no está en ninguno de los 4. El form inicial es WebFormOrigen.aspx.

[maialenlopez]

Ahora creo que si se parece a lo tuyo pero tengo un problema.
Escribo el código de cada aspx.vb y luego comento lo que me pasa:

Identificador.aspx.vb:

Código vb.net:

Public Class Identificador
    Inherits System.Web.UI.Page
 
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
 
    End Sub
 
#Region "Propiedades"
    Public ReadOnly Property Numero() As String
        Get
            Return Me.TxtIdNumIdentificador.Text
        End Get
    End Property
#End Region
 
    Public Property MyProperty() As Integer
        Get
            Return m_MyProperty
        End Get
        Set(ByVal value As Integer)
            m_MyProperty = Value
        End Set
    End Property
 
    Private m_MyProperty As Integer
 
    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        If TxtIdNumIdentificador.Text = "" Then
            ValidacionAsterisco23.Text = "*"
            validacion4.Text = "Identificador incorrecto"
        Else
            'Dependiendo del identificador, Me carga una pagin u otra
            Response.Redirect("VRHojaLiquidacionGastos.aspx")
        End If
    End Sub
End Class
 

VRHojaLiquidacionGastos.aspx.vb:

Código vb.net:

Public Class VRHojaLiquidacionGastos
    Inherits System.Web.UI.Page
 
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
 
        Dim numHoja As String
 
        If PreviousPage IsNot Nothing Then
            numHoja = String.Format([B]PreviousPage.Numero[/B])
        End If
    End Sub
 
End Class
 

Pero lo que he puesto en negrita dentro del codigo me sale subrayado indicando que: 'Numero' no es miembro de System.Web.UI.Page

[Aquaventus]

Veo que solo usaste la 2da... por previouspage, eso se redirecciona con el server.trasfer y no con el response redirect, la idea es que revises y sépas interpretar y solo hacerle copy-paste para que lo puedas adaptar a tu necesidad :
identificador.aspx :

Código vb:

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        If TxtIdNumIdentificador.Text = "" Then
            ValidacionAsterisco23.Text = "*"
            validacion4.Text = "Identificador incorrecto"
        Else
            'Dependiendo del identificador, Me carga una pagin u otra
            Response.Redirect(string.Format("VRHojaLiquidacionGastos.aspx?number={0}",TxtIdNumIdentificador.Text))
        End If
    End Sub
 

VRHojaLiquidacionGastos.aspx:

Código vb:

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
 
        Dim numHoja As String = Request.QueryString("number")
 
    End Sub
 

Saludos!.

[maialenlopez]

Iniciado por Aquaventus

Veo que solo usaste la 2da... por previouspage, eso se redirecciona con el server.trasfer y no con el response redirect, la idea es que revises y sépas interpretar y solo hacerle copy-paste para que lo puedas adaptar a tu necesidad :
identificador.aspx :

Código vb:

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        If TxtIdNumIdentificador.Text = "" Then
            ValidacionAsterisco23.Text = "*"
            validacion4.Text = "Identificador incorrecto"
        Else
            'Dependiendo del identificador, Me carga una pagin u otra
            Response.Redirect(string.Format("VRHojaLiquidacionGastos.aspx?number={0}",TxtIdNumIdentificador.Text))
        End If
    End Sub
 

VRHojaLiquidacionGastos.aspx:

Código vb:

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
 
        Dim numHoja As String = Request.QueryString("number")
 
    End Sub
 

Saludos!.

Si he usado la segunda ya que a la VRHojaLiquidacionGastos.aspx solo puedo acceder a traves de la Indentificador.aspx.

Gracias por todo, Ahora me va perfecto. Justo lo recojo lo que necesito.