|    
			
				07/10/2005, 08:02
			
			
			  | 
  |   |  |  |  |  Fecha de Ingreso: junio-2004 Ubicación: Misantla,Ver.Mexico 
						Mensajes: 181
					 Antigüedad: 21 años, 3 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
     |