Publicentral.com - publicentra, promocion, promocionar, buscadores, paginas webs, registroPublicentral.com - promocion de paginas web y negocios online
Mostrando Codigo - Asp

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

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: 62584 - 06/05/2004 2:09:58
CODIGO SIN DEMOSTRACIONCODIGO NO EJECUTABLE
CODIGO
Codigo probado en Internet Explorer 4++Codigo probado en Mozilla FirefoxCodigo probado en NetscapeCodigo probado en OperaCodigo probado en Safari


<% 'Codigo ofrecido por Tutores.org %>
<Select NAME="select" SIZE=1>
<% 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 %>
</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
Norma 25/07/2004 12.33.37
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
Tutores.org 19/04/2003
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
Tutores.org 19/04/2003
Hola norma
Para facilitarte el trabajo hemos incluido un archivo descargable como ejemplo.
Saludos
noel reyes
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
Tutores.org 19/04/2003
hola noel reyes
Que es exactamente lo que quieres hacer
¿ Probaste el ejemplo descargable?
Saludos
marlon arcon
por favor.
necesito desplegar los campos deuna tabla
en un combo box(visual basic).
manejo el objeto ADO

la tabla se hizo en acces.
Tutores.org 19/04/2003
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
Javi 14/12/2003 6.34.01
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
Tutores.org 19/04/2003
hola
lo unico que debes de insertar es
<Option VALUE="<%= rs("id") %>"> <%= rs("pais") %> - <%= rs("capital") %> - <%= rs("habitantes") %>
etc...
espero que te sirva
saludos
Javi 14/12/2003 6.34.01
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
Javi 14/12/2003 6.34.01
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?
Javi 14/12/2003 6.34.01
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
Javi 14/12/2003 6.34.01
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!
Tutores.org 19/04/2003
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
karen 19-12-2008 16:32:03
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*]
Tutores.org 19/04/2003
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
martin 20-12-2007 23:32:10
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
jordift 16-01-2008 12:24:20
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%>

ivannal 23-01-2008 20:39:04
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
fernaco
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
luz 24-06-2008 17:02:08
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
Gérson
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.
jeni
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
Marvin
¿Cómo hago para mostrar los valores de una consulta de sql en campos de texto en ASP-NET?
gialjecin 25-06-2009 04:19:59
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
ana 19-11-2008 03:43:47
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
Sin definir
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
Juancruz
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.
JKI23
quisiera saber
qmo mostrar mi base de datos de sql
en una pagina de asp!
Angel Cruz
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...
jemp_intrepido 23-02-2011 11:01:44
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
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.