Uso del objeto diccionario de ASP (2)

Ejemplo

Pongamos en práctica algunas de estas propiedades mediante el siguiente ejemplo

Uso del objeto diccionario

<%
 set objConn = Server.CreateObject("ADODB.Connection")
 objConn.open "DSN=wapbolsa"
 strSQL = "SELECT * FROM valor"
 set objRS = objConn.Execute(strSQL)

' crear el objeto diccionario y añadir los valores de la BD
 set objDict  = createObject("Scripting.Dictionary")
 do while not objRS.eof
    strclave = objRS("idValor")
    strvalor = objRS("Importe")
    objDict.Add strclave, strvalor
    objRS.movenext  
 loop
 objRS.Close
 set objRS = nothing
 objConn.Close
 set objConn = nothing

 ' operaciones sobre el objeto diccionario
  strClavesArray = objDict.Keys
  strValoresArray = objDict.Items
  for i = 0 to objDict.Count -1
    response.write(strClavesArray(i) & ": " & strValoresArray(i) & "<br>")
  next
 
  if objDict.Exists("TELE") then
    response.write ("Existe Tele con el valor: " & objDict.Item("TELE"))
  else
    response.write ("No existe Tele")
  end if
%>

Usuarios que han visto este tema también han visto...

- Cargar los datos de una lista desplegable múltiple
- Bloquear IPs a través de un array con ASP
- Uso y elección de archivos include en ASP
- Abrir una ventana popup con un botón en ASP.NET
- Buscador en ASP

- Versión imprimible de este documento

- Enviar por e-mail este documento