SoloCodigo
Programación Web y Scripting => ASP => Mensaje iniciado por: oonai en Domingo 7 de Enero de 2007, 19:41
-
Saludos a los usuarios de este portal, feliz año 2007, mis mejores deseos ara este nuevo año.
He aprendido mucho usando este portal FELICITACIONES....
Un regalo, para poder leer una Bd usando ASP y SELECT
<SELECT name="nonbre">
<option selected Value="0">Seleccione una ......
<%
Set coneccion = Server.CreateObject("ADODB.Connection")
coneccion.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../directorio/mibasadedatos.mdb"))
set pruebars=Server.createobject("ADODB.Recordset")
pruebars.ActiveConnection = coneccion
pruebars.Source = "tabla"
pruebars.open
pruebars.MoveFirst
do while not pruebars.EOF
%>
<option value=" <%response.write pruebars("campo1")%>">
<% response.write pruebars("campo2")
pruebars.movenext
Loop
pruebars.close
coneccion.close
Set pruebars = nothing
Set coneccion = nothing
%>
</select>
campo1 = Identificador y llave de la BD autonumérico
campo2 = descripcion
Espero que este pequeño codigo les sirva. Salu2