Ver Mensaje Individual
  #3 (permalink)  
Antiguo 20/08/2005, 13:55
alexander21rr
 
Fecha de Ingreso: enero-2004
Ubicación: iquitos
Mensajes: 164
Antigüedad: 20 años, 3 meses
Puntos: 0
aqui esta el codigo, mi idea es que al seleccionar un registro del grid se llene el formulario pero sin hacer una nueva conexion por eso uso el dataview

Sub cargar_grid()
Dim cn As SqlConnection = Nothing
Try
Try
cn = GetConnection(AppSettings("ConnectionStringAP"))
Catch ex As Exception
Response.Write(ex.Message)
End Try
Dim arParams() As SqlParameter = New SqlParameter(2) {}
arParams(0) = New SqlParameter("@p1", SqlDbType.VarChar)
arParams(0).Value = txtdesde.Text
arParams(1) = New SqlParameter("@p2", SqlDbType.VarChar)
arParams(1).Value = txthasta.Text
arParams(2) = New SqlParameter("@user", SqlDbType.VarChar)
arParams(2).Value = user

ds = SqlHelper.ExecuteDataset(cn, CommandType.StoredProcedure, "sp_query", arParams)
DgridResultado.DataSource = ds.Tables(0)
DgridResultado.DataBind()
dv = ds.Tables(0).DefaultView
Catch ex As Exception
Response.Write(ex.Message)
Finally
If Not cn Is Nothing Then
CType(cn, IDisposable).Dispose()
End If
End Try
End Sub


evento seleccion del grid

Private Sub DgridResultado_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DgridResultado.SelectedIndexChanged
Dim vdato As String = DgridResultado.DataKeys(DgridResultado.SelectedIte m.ItemIndex)
Try
dv.RowFilter = "codigo='" & vdato & "'" ==> aqui me sale el mensaje de error
Catch ex As Exception
Response.Write(ex.Message)
End Try
End Sub
__________________
javier