Ver Mensaje Individual
  #3 (permalink)  
Antiguo 07/10/2005, 08:02
Avatar de splinter
splinter
 
Fecha de Ingreso: junio-2004
Ubicación: Misantla,Ver.Mexico
Mensajes: 181
Antigüedad: 19 años, 10 meses
Puntos: 0
y aqui pongo otro ejemplo, llenando con un ciclo la lista:

''---------------
'Objetos de conexion
Dim oConn As New SqlClient.SqlConnection(strOconn.ToString)
Dim oComando As New SqlClient.SqlCommand
Dim myDR As SqlClient.SqlDataReader
oComando.Connection = oConn
Try
oConn.Open()
oComando.CommandType = CommandType.StoredProcedure
oComando.CommandText = "Proc_Interfaz" 'PROC.ALMACENADO
oComando.Parameters.Add("@param1", SqlDbType.Char, 12) : oComando.Parameters.Item("@param1").Value = Param1.ToString
oComando.Parameters.Add("@param2", SqlDbType.Char, 12) : oComando.Parameters.Item("@param2").Value = Param2.ToString
oComando.Parameters.Add("@opc", SqlDbType.Int) : oComando.Parameters.Item("@opc").Value = opc
myDR = oComando.ExecuteReader
Lista.Items.Clear() 'control dropdown
Do While myDR.Read
Dim newitem As New ListItem
newitem.Value = myDR(0) 'ID /clave del elemento
newitem.Text = myDR(1) 'texto a mostrar
Lista.Items.Add(newitem)
Loop
Catch ex As Exception
Param1 = ex.Message.ToString
Finally
If (Not oConn Is Nothing) Then
oConn.Close()
oConn.Dispose()
oComando.Dispose()
myDR.Close()
End If
End Try


SALUDOS