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