Publicentral.com - promocion,paginas,web,tutores,publicentralPromocion de paginas webs
Mostrando Codigo - Asp
Code

Asp - Mostrar datos - base de datos .mdb en un combo box

Códigos Asp

Con el uso de este pequeño codigo conseguimos mostrar los datos seleccionados en una base de datos access en un combo box Este mismo codigo puede ser aplicado a una lista desplegable. Archivo descargable con base de datos Access incluida
Visitas: 75,639 - 06/05/2004 2:09:58
Archivo descargable »
CODIGO SIN DEMOSTRACIONDownloadComentario
CODIGO
Codigo probado en ChromeCodigo probado en Mozilla FirefoxCodigo probado en Internet Explorer 7+Codigo probado en OperaCodigo probado en Safari


<% 'Codigo ofrecido por Tutores.org %>

  1. <Select NAME="select" SIZE=1>
  2. <% Set conn = Server.CreateObject("ADODB.Connection")
  3. conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("lugar.mdb")&";"
  4. Set rs = conn.Execute("SELECT * FROM lugar")
  5. Do While Not rs.EOF %>
  6. <Option VALUE="<%= rs("id") %>"> <%= rs("pais") %>
  7. <% rs.MoveNext
  8.  Loop
  9. rs.Close
  10. conn.Close %>
  11. </Select>



ENLACE AL CODIGO
Si quieres enlazar desde tu pagina a este codigo
<!-- Inicio enlace Tutores.org -->
<a title="Tutores.org - Mostrar datos - base de datos .mdb en un combo box" href="http://www.tutores.org/codigo/1056/" target="_blank">Mostrar datos - base de datos .mdb en un combo box</a>
<!-- Final enlace Tutores.org -->
COMENTARIOS
Comentario usuario
25/07/2004 12.33.37
2 5
Tengo una pagina asp con un formulario donde los usuarios ponen sus datos(Nombre, mail, Lugar) esos datos se transfieren a una base access...todo bien, ahora quiero poner un combo box en "Lugar", para que los usuarios elijan el pais de otra tabla de la base. Ayuda por favor
Comentario usuario
19/04/2003
1 5
Hola norma
Solo tienes que insertar el codigo en tu formulario y en la linea 1 cambiar donde pone select, debes poner el nombre que quieras, por ejemplo lugar.
Despues solo tienes que modificar las conexiones a la base de datos con:
Nombre de tu Bdatos y las consultas.
saludos
Comentario usuario
19/04/2003
2 5
Hola norma
Para facilitarte el trabajo hemos incluido un archivo descargable como ejemplo.
Saludos
Comentario usuario
noel reyes
5 5
Quisiera que me ayudaran para saber como se usa el Data Combo ya que no he podido saber ni nadie me ha podido explicar como se usa
Comentario usuario
19/04/2003
2 5
hola noel reyes
Que es exactamente lo que quieres hacer
¿ Probaste el ejemplo descargable?
Saludos
Comentario usuario
marlon arcon
2 5
por favor.
necesito desplegar los campos deuna tabla
en un combo box(visual basic).
manejo el objeto ADO

la tabla se hizo en acces.
Comentario usuario
19/04/2003
1 5
Hola marlon arcon
Te sugerimos que expongas tu pregunta en los foros - Visual basic , puesto que el script que mostramos es solo para Asp.
Seguro que obtienes una respuesta mas rapida.
Saludos
Comentario usuario
14/12/2003 6.34.01
4 5
hola el ejemplo que ofreceis es valido pero yo pretendo mostrar en ese mismo combo box no solo el pais como ahi mostrais sino tambien la capital, el numero de habitantes... y mas campos pero todo en el mismo combobox, seria posible?? gracias
Comentario usuario
19/04/2003
3 5
hola
lo unico que debes de insertar es
<Option VALUE="<%= rs("id") %>"> <%= rs("pais") %> - <%= rs("capital") %> - <%= rs("habitantes") %>
etc...
espero que te sirva
saludos
Comentario usuario
14/12/2003 6.34.01
5 5
al poner el codigo q me sugeris me da este error en esa linea:
No se encontró el elemento en la colección que corresponde con el nombre o el ordinal pedido.

no se pq sera pero bueno, gracias de todas formas
Comentario usuario
14/12/2003 6.34.01
4 5
e descubierto q el programa qiza resida en q el campo q qiero mostrar es numerico y el resto son tipo texto, si kiero mostrar tres campos numericos me funciona a la perfect cn vuestra linea pero en cuanto meto un campo texto me da error.
debo poner las comillas diferentes si es un campo tipo texto?
Comentario usuario
14/12/2003 6.34.01
5 5
hola ya resolvi el problema anterior, gracias, pero ahora aki me da fallo de q se debe usar 1 consulta actualizable:
sql = "update EMPLEADOS SET NOMBRE=' "+request("no")+" ', APELLIDO1='"+request("ape1")+"', APELLIDO2=' " +request("ape2")+ "' WHERE IDEMPLEADO=" +request("id")
gracias
Comentario usuario
14/12/2003 6.34.01
1 5
hola!ya solucione el problema anterior,mi nueva duda (siento ser pesao...) es saber si puedo incluir alerts en asp como se incluian en visual basic, gracias!
Comentario usuario
19/04/2003
2 5
hola Javi
la alerta debes insertarla utilizando javascript.
para insertarlo solo debes de poner
<script>
alert("Descripcion de tu alerta");
</script>
Fuera de <% %>
o bien
response.write"<script>alert("'Descripcion de tu alerta'");</script>"
Espero que te sirva
Saludos
Comentario usuario
19-12-2008 16:32:03
2 5
Hola mi problema es el siguiente: estoy haciendo una aplicación y al momento de pinchar en un link me arroja este error y nosé como solucionarlo:

Tipo de error:
ADODB.Recordset (0x800A0CC1)
No se encontró el elemento en la colección que corresponde con el nombre o el ordinal pedido.
/modulo/admin/consultarsalas.asp, línea 125

Este es el código que me dice que esta el error que no encuentro, gracias de antemano:

[*CODE*]<tr bordercolor="#FFFFFF" bgcolor="#FFCC66">
<td ><font color="#FFFFFF" face="Century Gothic"><%=RS("PISO")%></font></td>
<td ><div align="left"><font color="#FFFFFF" face="Century Gothic"><%=RS("SALA1")%>
</font></div>
<td ><div align="left"><font color="#FFFFFF" face="Century Gothic"><%=RS("SALA2")%>
</font></div>
<td ><div align="left"><font color="#FFFFFF" face="Century Gothic"><%=RS("SALA3")%>
</font></div>
<td ><div align="left"><font color="#FFFFFF" face="Century Gothic"><%=RS("SALA4")%>
</font></div>
<td ><div align="left"><font color="#FFFFFF" face="Century Gothic"><%=RS("SALA5")%>
</font></div>
<td ><div align="left"><font color="#FFFFFF" face="Century Gothic"><%=RS("SALA6")%>
</font></div>
<td ><div align="left"><font color="#FFFFFF" face="Century Gothic"><%=RS("SALA7")%>
</font></div>
<td ><div align="left"><font color="#FFFFFF" face="Century Gothic"><%=RS("SALA8")%>
</font></div></td>
</tr>
<%[*/CODE*]
Comentario usuario
19/04/2003
3 5
Hola
el error te lo de porque alguna de las consultas que haces no coincide con el campo de la base de datos
en la line 125 habrá <%=RS("SALA??")%>
o bien <%=RS("pido")%>
comprueba que esa consulta o campo de la base de datos exista.
como no se cual es tu linea 125 no puedo decirte mas
saludos
Comentario usuario
20-12-2007 23:32:10
3 5
Hola
Disculpen mi ignorancia. quiero mostrar el texto que tengo almacenado en una base de datos( en documentos word) en una pagina web. no quiero que sepierda el formato que tiene el texto en la pagina web(tipo de letra, tamaño etc) . No se como hacer(ni que control usar) para mostrar el texto en la pagina web. Espero haber explicado. Gracias
Comentario usuario
16-01-2008 12:24:20
5 5
Hola buenas, e utilizado parte del codigo del ejemplo para hacer los combos, funcionan pero a la hora de pasarlos a una base de datos con el resto del formulario no me los pasa. Este es el codigo, son dos archivos.

Formulario de Introducción(index.asp[/U]):[/B]
<%
%>
<html>
<head>
<title>Crear un Nuevo Foro</title>
</head>
<body bgcolor="#CCFFCC">
<p align="center"><font face="Verdana">Inserción de Datos</font></p>

<form method="POST" action="nuevoforo.asp">

<p align="center"><label alig>Concepto Oferta:
<textarea name="f_concepto_oferta" cols="50" rows="0"></textarea>
</label>
</p>
<p align="center"><label>Pais</label>

<Select NAME="f_pais" SIZE=1 >
<% Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("geo.mdb") & ";"
Set rs = conn.Execute("SELECT * FROM t_pais")
Do While Not rs.EOF %>
<Option value="<%= rs("id") %>"> <%= rs("c_pais") %>
<% rs.MoveNext
Loop
rs.Close
conn.Close %>
</Option>
</Select>


</p><br>
<input type="submit" value="Enviar" name="B1">
<input type="reset" value="Restablecer" name="B2"></p>
</form>

</body>
</html>[/CODE]

[B]Insercion de los datos en la BD([U]nuevoforo.asp):
[CODE]<%
Const adOpenKeyset = 1
Const adLockOptimistic = 3

f_concepto_oferta=request.form("f_concepto_oferta")
f_pais=request.form("f_pais")
if f_concepto_oferta="" then %>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Error al insertar pregunta</title>
</head>

<body>

<p align="center"><img border="0" src="images/titulo.jpg"></p>

<p align="center">Ningun campo puede estar en blanco,
<a href="insertarforo.htm">
inténtalo otra vez</a></p>
</body>

</html>

<%else

Set conexion = Server.CreateObject("ADODB.Connection")
StrCxn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("geo.mdb") & ";"
conexion.open strcxn





set rs=createobject("ADODB.Recordset")
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic

rs.open "Organismo_local", conexion
rs.addnew
rs("f_concepto_oferta")=f_concepto_oferta
rs.update
rs.close
rs.open "t_pais", conexion
rs.addnew
rs("f_pais")=f_pais
rs.update
rs.close
response.redirect "index.html"
end if%>

Comentario usuario
23-01-2008 20:39:04
3 5
hola! tengo problemas para mostrar el resultado de una consulta a una base de datos...

******para consultar hago lo siguiente:

SQL = "SELECT * FROM Expedientes WHERE Id_Expediente LIKE '" & Id_Expediente & "'"
Set Tabla = Conexion.Execute(SQL)
Id_Dependencia = CInt(Tabla("Id_Dependencia"))
Asunto = Tabla("Asunto")
Fecha = Tabla("FInicio")
Otro = Tabla("Iniciador")
Id_Secretaria = Tabla("Id_Secretaria")
Clave = Tabla("Clave")
Tabla.Close

*******y para mostrar el resultado hago esto>

<table class="datos">
<tr> <th>EXPTE. Nº</th>
<td class="expte"><%= Replace(UCase(Id_Expediente), "-", " - ") %></td>
</tr>
<tr> <th>SECRETARIA</th> <td><%= Secretaria %></td>
</tr>
<tr> <th>INICIADOR</th> <td><%= Dependencia %></td> </tr>
<tr> <th>OBJETO</th> <td><% If Len(Asunto) > 0 Then Response.Write(Replace(Asunto,vbCrLf,"<br />")) %></td>
</tr>
<tr> <th>FECHA</th> <td><%= Fecha %></td> </tr>
</table>

Me muestra los campos excepto el Asunto....hice la consulta en el SQLServer y ese campo no esta vacio...que puede ser? por que no lo muestra??
gracias
Comentario usuario
fernaco
3 5
Hola como va?.
Tengo una duda, yo cargo perfecto el pais en la BD y lo almaceno en la base con un numero. Tengo 2 tablas, 1 es clientes y otra paises, necesito que si se desean modificar los datos aparesza una formulairo con todos los datos del cliente y que en el pais salgo de nuevo el box con el pais que sta grabado anteioremente y me deje modificarlo!, alguna ayuda? he tratado de varios modods pero sin exito
Comentario usuario
24-06-2008 17:02:08
1 5
hola quisiera saber como pasar los registros de un campo a un combobox. la tabla esta en acces y lo estoy haciendo en visual basic 6.0. tengo mi formulario en visual basic conectado a la base de datos y lo que quiero hacer es que en un combo me aparescan los registros de un campo en este caso nombre_proyec que serian registro de este campo ya guardados. de antemano gracias
Comentario usuario
Gérson
4 5
Hola;

Quisiera que me ayudaran:

Estoy haciendo un programa en visual basic 6 y tengo un datacombo enlazado a una tabla que se llama pais.

Lo que quiero es que al selecionar un pais del datacombo, en un combo box (o no se si se pueda en un data combo tambien) me muestre los estados(provincias) de ese pais que estan en una tabla que se llama estados.

Asi como la de hotmail cuando creamos el correo al inicio nos pide el pais o region y en base a lo que seleccionemos nos muestra las provincias de ese pais.

Espero que me ayuden.

De antemano les doy las gracias.
Comentario usuario
jeni
4 5
hola necesito un favorsote de parte de ustedes los expertos
la primera es que tengo un form con textbox enlzada a una bases de datos acces pero quiero que al momento de guardar si no introduje datos en textbox me mande un mennsaje que datos me falto y en donde y no me deje guarar el proceso hasta qte halla ingresado datos en ese textbox.

la otra como puedo generar un reporte con datareport pero por rango de fechas.

mucho les agrdecere que me ayudaran por que la verdad si me urge gracias
Comentario usuario
Marvin
5 5
¿Cómo hago para mostrar los valores de una consulta de sql en campos de texto en ASP-NET?
Comentario usuario
25-06-2009 04:19:59
4 5
tengo una duda a continuación se las pongo, espero me ayuden amigos

ahora va de nuevo con la forma de la tabla bien jejejej

Bueno el caso es que tengo una tabla que se llama lugar.mdb en acces y estoy manejando asp, el caso es que tengo un combobox donde hace referencia a los datos de paises y cada pais tiene su respectiva ciudad. Como puedo hacer para que al momento de seleccionar un pais, me mande en el textbox llamado ciudad, la ciudad a la que pertenece el país?

Espero me ayuden.

la tabla se llama lugar tambien

nombre de la base de datos es: lugar.mdb

tabla:lugar

campos id pais ciudad

1 mexico veracruz

2 españa barcelona

el código es el siguiente:

combo.asp
::::::::::::


<html>
<BODY>

<SCRIPT>
function hsumbit()
{
document.form.submit();
}
</SCRIPT>

<form name="form" action="" metthod="post">
<Select NAME="select" SIZE=1 onchange="hsubmit();">
<Option>--Select--</Option>
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("lugar.mdb")&";"
Set rs = conn.Execute("SELECT * FROM lugar")

Do While Not rs.EOF
%>
<Option VALUE="<%= rs("id") %>"> <%= rs("pais") %>
<%
rs.MoveNext
Loop
rs.Close
conn.Close
%></Option>
</Select>

<input type="text" name="ciudad" size="20">
</form>

</BODY>
</html>

ayuda urgente
Comentario usuario
19-11-2008 03:43:47
5 5
necesitO ayuda estoy haciendo un proyecto en visual con acces
coloque una listbox al lado le coloque combobox el listbox tiene los grado primero,segundo,tercero, y el combobox tiene las secciones seccion A seccion B SECCION C, QUE CUANDO SELECCIONES ALGUNA DE ELLA DE CLIC EN UN BOTON ACEPTAR VALLA A LO INDICADO COMO HAGO PARA CONECTAR DATOS DE LA BASE
Comentario usuario
Sin definir
5 5
no se si alguno de ustedes sabe usar c#, si alguien sab xfavor ayuda, lo q ocurre es q necesito q los registros de una base dedatos manejada en access me aparezcan en un texbox ya se como hacer la conexion,sin embargo yo solo se hacerlo x medio de un datagrid asi q necesito ayuda
Comentario usuario
Juancruz
5 5
Hola, necesitaria saber como tengo que hacer en visual basic 6 para buscar un base de datos que tengo en access y tambien quisiera saber como hacer para listar unos elementos que estan dentro de la base de datos.
Comentario usuario
JKI23
5 5
quisiera saber
qmo mostrar mi base de datos de sql
en una pagina de asp!
Comentario usuario
Angel Cruz
3 5
Buenos días...
Te agradezco infinitamente el aporte, ya que esto era lo que había buscado con certeza, además pude crear el código para poder hacer una consulta y mandarlo a excel. Gracias...
Comentario usuario
23-02-2011 11:01:44
3 5
hola me estoy haciendo una consulta en asp para ver todos los registros de mi tabla, ya lo logre pero la manera de presentar los datos lo quiero realizar mediante etiquetas div,
ya logre que me aparescan los datos en una sola pero lo qie no se es como hacer que por cada consulta me genere una nueva etiqueta para poder aplicarle un efecto de jquery
Comentario usuario
Cristhian
5 5
Hola disculpa pero lo hago todo con los valores que tengo pero, no me jala el " value" que esta dentro del option, siempre queda vacio.
INSERTAR COMENTARIO

Usuario:
Email:
Comentario:
Codigo Seguridad

Antes de enviar un comentario...
Todos los comentarios son revisados personalmente
Todo comentario que no haga relacion al codigo mostrado en esta pagina sera eliminado
Usuarios registrados tienen preferencia en recibir respuestas de ayuda!!
Ademas de poder insertar Imagenes,Enlaces y otras propiedades del editor.
Por favor, insertar los comentarios descriptivos.