Ver Mensaje Individual
  #4 (permalink)  
Antiguo 11/01/2016, 17:33
ale_mary17
 
Fecha de Ingreso: enero-2016
Mensajes: 7
Antigüedad: 8 años, 4 meses
Puntos: 0
Respuesta: Como cargar registros a otro formulario de otra página

Hola les compartire la solución que encontre por si alguien busca lo mismo.

Antes que todo abran el diseñador, deben dar clic en una flechita en la esquina superior derecha del gridview y les desplegara varias opciones tienen que marcar la opción "Show select check box" para que les aparezca a la par de cada fila de su gridview y puedan seleccionar.

*****Primero el código que va en el botón modificar (Cree un botón modificar para actualizar los campos del grid, ustedes pueden solo extraerlos igual es el mismo procedimiento):

Public Sub ASPxButton2_Click(sender As Object, e As EventArgs) Handles ASPxButton2.Click
conexion.ConnectionString = "Aqui colocan su conexión a la base de datos"
comando.Connection = conexion


' Declaramos un SqlCommand a partir del nombre del procedimiento y la conexión que hemos creado.
Dim command As New SqlClient.SqlCommand("Nombre del procedimiento almacenado", conexion)

' Indicamos que vamos a ejecutar un procedimiento almacenado
command.CommandType = CommandType.StoredProcedure

' Rellenamos los parámetros de entrada del procedimiento.
Dim id As Integer
Dim arreglo As Array 'Se declara un arreglo para que devuelva una fila completa
'Devuelve el número de fila que se ha seleccionado
arreglo = ASPxGridView1.GetDataRow(ASPxGridView1.FocusedRowI ndex).ItemArray
'Recoge el valor de la columna 0
id = arreglo(0).ToString
' Añadimos los parámetros al SqlCommand
command.Parameters.Add(New SqlClient.SqlParameter("@id", id)) 'Compara el id de la columna seleccionada con el id que esta en BD

' Declaramos un DataAdapter a partir del SqlCommand y un DataSet para almacenar los datos.
Dim da As New SqlClient.SqlDataAdapter(command)
Dim ds As New DataSet


' Por último, rellenamos el DataSet
da.Fill(ds)
conexion.Open()
command.ExecuteNonQuery()

'Guarda los datos del dataset en una sesión
Session("datos") = ds
'Guarda solo el id para realizar comparaciones en otras operaciones
Session("id") = id
Response.Redirect("~/Nombre de la pagina donde quieren redirreccionarse")
conexion.Close()
End Sub


*******Ahora el código del formulario de destino:

Public Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then

'Se declara una variable tipo dataset
Dim ds As DataSet
ds = Session("datos")
'Se le asigna el valor de la sesión a la variable dataset
'Se llenan los controles textbox, dropdownlist con los datos extraidos del dataset
ASPxFormLayout1_E1.Text = CDate(ds.Tables.Item(0).Rows(0).Item("FECHA")).ToS tring("dd/MM/yyyy") 'Se coloca esta instrucción para que solo muestre la fecha sin la hora
DropDownList1.Text = ds.Tables.Item(0).Rows(0).Item("TIPO")
ASPxFormLayout1_E3.Text = ds.Tables.Item(0).Rows(0).Item("EST")
ASPxFormLayout1_E5.Text = ds.Tables.Item(0).Rows(0).Item("OBSERVACIONES")
ASPxFormLayout1_E6.Text = CDate(ds.Tables.Item(0).Rows(0).Item("MODIFICACION ")).ToString("dd/MM/yyyy")
ASPxFormLayout1_E7.Text = ds.Tables.Item(0).Rows(0).Item("USUARIO")
End If
End Sub


Bueno a mi esto me ha funcionado, recuerden que tienen que tener un procedimiento almacenado con la selección de los campos que desean trasladar y con un where que compare el parámetro id con el ID de la tabla, si tienen alguna duda podria ayudarles.

Última edición por ale_mary17; 11/01/2016 a las 17:40