hola,
ahora tengo el siguiente problema
he buscado por internet y no encuentro nada,
ok el asunto es el siguiente,
yo hago una consulta que me devuelve un solo registro
ese reguistro lo cargo en un dataset y luego le paso los datos a los controles label y textbox, pero cuando se lo paso me manda el siguiente error
"make sure that the maximum index on a list is less than the list size"
que es en esta linea que me brinca
Me.lbprimernombre.Text = ds.Tables(0).Rows(0)("cod_cia")
la consulta esta funconado bien
lo que creo que debe ser esq debo dar el valor de maximo index pero, no se que funcion se usa para capturarlo bueno esa es mi hipotesis
les agredesco
bye
este es el codigo
Protected Sub btnbuscar_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles btnbuscar.Click
Dim sucursal As String = Me.ddlsucursal.SelectedValue
Dim ds As System.Data.DataSet
Try
ds = Datos.getResultadoBusquedaRP(Me.TxtNoEmpleado.Text , Me.lbprimernombre.Text, errores)
Me.lbprimernombre.Text = ds.Tables(1).Rows(1)("cod_cia")
Catch ex As Exception
'MsgBox1.ShowMessage("Ha ocurrido el siguiente error :" & errores)
Response.Write("Ha ocurrido el siguiente error :" & errores)
Finally
ds = Nothing
ds.Dispose()
entidad = Nothing
Datos = Nothing
End Try
End Sub
Public Function getResultadoBusquedaRP(ByVal noempleado As String, ByVal nombre As String, ByRef errores As String) As System.Data.DataSet
Dim capadatos As New DatosCapa.AccesoDatos
Dim ds As System.Data.DataSet
Dim proceso As Integer = 1
Try
Dim parametros(1) As String
parametros(0) = UCase(noempleado)
parametros(1) = CInt(proceso)
ds = capadatos.EjecutaSpDS("dbo.adm_co_perfil", parametros)
Catch ex As Exception
Finally
'capadatos = Nothing
End Try
Return ds
End Function
