mostrar resultados de una base en un formulario

ivan02 · #1 (**permalink**) 06/12/2003, 23:39

hola hay un codigo que quiero modificar la base es de acces me muestra todo bien solamente que cuando se muestra la parte de comentarios es amenudo grande y abarca mucho espacio en la pagina se sige por eso quiero poner un textareapara que almasene el contenido de la base que es un memo para que quepan muchos caracteres.

el codigo original es:

<html>
<head>
<title>pagina de prueba</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body bgcolor="#FFFFFF" text="#000000">

<%
Dim DB, TBL
Set DB = Server.CreateObject("ADODB.Connection")
Set TBL = Server.CreateObject("ADODB.RecordSet")
DB.Mode = adModeReadWrite
DB.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" + Server.MapPath("afiliados.mdb"))

TBL.Open "Afiliados" ,DB ,1 ,2

While NOT TBL.EOF
Response.Write("<b>Nombre :</b> " & TBL("Nombre") & "<br>")
Response.Write("<b>Empresa :</b> " & TBL("Empresa") & "<br>")
Response.Write("<b>Correo :</b> " & TBL("Correo") & "<br>")
Response.Write("<b>Requisitos :</b> " & TBL("Requisitos") & "<br><br><hr>")
TBL.MoveNext

Wend

TBL.Close
DB.Close

Set DB = Nothing
Set TBL = Nothing

%>

</body>
</html>

funciona bien quiero incrementarle algo como:

<textarea name="comentario" rows="10" cols="40">Contenido base....</textarea>

que mas omenos quede asi

<html>
<head>
<title>pagina de prueba</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body bgcolor="#FFFFFF" text="#000000">

<%
Dim DB, TBL
Set DB = Server.CreateObject("ADODB.Connection")
Set TBL = Server.CreateObject("ADODB.RecordSet")
DB.Mode = adModeReadWrite
DB.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" + Server.MapPath("afiliados.mdb"))

TBL.Open "Afiliados" ,DB ,1 ,2

While NOT TBL.EOF
Response.Write("<b>Nombre :</b> " & TBL("Nombre") & "<br>")
Response.Write("<b>Empresa :</b> " & TBL("Empresa") & "<br>")
Response.Write("<b>Correo :</b> " & TBL("Correo") & "<br>")
Response.Write("<b>Requisitos :</b> " & TBL("Requisitos") & "<br>

<textarea name="comentario" rows="10" cols="40">Response.Write("<b>Requisitos :</b> " & TBL("Requisitos") & "<br></textarea>

<br><hr>")
TBL.MoveNext

Wend

TBL.Close
DB.Close

Set DB = Nothing
Set TBL = Nothing

%>

</body>
</html>

pero no funciona que tengo que hacer??

les agrasesco

jorel · #2 (**permalink**) 08/12/2003, 13:00

Y si quitas el codigo htm que estas intentado meter en el textarea ?

<textarea name="comentario" rows="10" cols="40">Response.Write("<b>Requisitos :</b> " & TBL("Requisitos") & "<br></textarea>

<textarea name="textarea">Response.write TBL("Requisitos")</textarea>

ivan02 · #3 (**permalink**) 12/12/2003, 20:04

no funciono

parese que tedre que utilizar esto

<textarea name="comentario" rows="10" cols="40"></textarea>

haber que se pasa alguien que me pueda enseñar

jahman · #4 (**permalink**) 12/12/2003, 23:14

Prueba con esto y avisa.

<textarea name="Descripcion" rows="10" cols="40"><%= Tabla.Fields("Requisitos")%></textarea>

claro que debes medir la cantidad de texto que va ingresar el usuario cosa que al momento de ingresarla en tu Bd para que mno tengas problemas!!!

Blessed

Radar · #5 (**permalink**) 13/12/2003, 04:42

Para mostrar el valor de un campo en una caja de texto esta es la forma mas facil.

Creas tu conexion, una variable y una consulta a la base de datos seleccionando el campo que quieres mostrar en la caja de texto.

La variable seria Mi_var

Código PHP:

   
sql = "Select * From tabla where Nombre_Campo='Buscar_dato';" 
 
rs.open conexion,sql,1,2

Una vez selecionado el campo y realizada la consulta del campo recogemos su valor en una variable.

Código PHP:

  Mi_var = rs.fields("Campo") 
rs.close

Añadimos el valor de la variable a la caja de texto.

Código PHP:

  <input type="text" name="txt" size="20" value="<%=Mi_var%>">

Saludos

jahman · #6 (**permalink**) 13/12/2003, 11:51

si esta claro de echo yo lo hago pero cuando quise hacerlo en textarea no me resulto

asi que lo hise de la otra manera y resulto de maravilla

.

Blessed

ivan02 · #7 (**permalink**) 15/12/2003, 04:23

gracias le di no se cuatos cambios a mi codigo y no queda quisa sea por algo que puse mala

este es mi codigo original

<html>
<head>
<title>Muestra</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body bgcolor="#FFFFFF" text="#000000">

<%
Dim DB, TBL
Set DB = Server.CreateObject("ADODB.Connection")
Set TBL = Server.CreateObject("ADODB.RecordSet")
DB.Mode = adModeReadWrite
DB.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" + Server.MapPath("afiliados.mdb"))

TBL.Open "Afiliados" ,DB ,1 ,2

While NOT TBL.EOF
Response.Write("<b>Nombre :</b> " & TBL("Nombre") & "<br>")
Response.Write("<b>Empresa :</b> " & TBL("Empresa") & "<br>")
Response.Write("<b>Correo :</b> " & TBL("Correo") & "<br>")
Response.Write("<b>Requisitos :</b> " & TBL("Requisitos") & "<br><br><hr>")

TBL.MoveNext

Wend

TBL.Close
DB.Close

Set DB = Nothing
Set TBL = Nothing

%>

</body>
</html>

este funciona tengo una base en acces que se llama afiliados y en una tabla que se llama afiliados estan los campos nombre correo empresa requisitos ya hise lo que esta en el codigo que dejaste pero no funciona aparte en rs.open conexion,sql,1,2 es paresido a TBL.Open "Afiliados" ,DB ,1 ,2 por lo que deje eso asi este es mi codigo final pero aparese me marca error

gracias

<html>
<head>
<title>Muestra</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body bgcolor="#FFFFFF" text="#000000">

<%
Dim DB, TBL
Set DB = Server.CreateObject("ADODB.Connection")
Set TBL = Server.CreateObject("ADODB.RecordSet")
DB.Mode = adModeReadWrite
DB.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" + Server.MapPath("afiliados.mdb"))

TBL.Open "Afiliados" ,DB ,1 ,2

Mi_var = rs.fields("Requisitos")
TBL.close

While NOT TBL.EOF
Response.Write("<b>Nombre :</b> " & TBL("Nombre") & "<br>")
Response.Write("<b>Empresa :</b> " & TBL("Empresa") & "<br>")
Response.Write("<b>Correo :</b> " & TBL("Correo") & "<br>")
Response.Write("<b>Requisitos :</b><input type="text" name="txt" size="20" value="<%=Mi_var%>"><br><br><hr>")

TBL.MoveNext

Wend

TBL.Close
DB.Close

Set DB = Nothing
Set TBL = Nothing

%>

</body>
</html>

otra cosa cuando pongo la linea
<input type="text" name="txt" size="20" value="<%=Mi_var%>">

en el< codigo original tine como codig asp 4 linas mas y cuando a aprese esta linea me lo da como si fuera htm

esto seve haora que estoy en frontpag y me da 2 colores distinto

espero me puedan decir donde estoy mal gracias

jahman · #8 (**permalink**) 15/12/2003, 22:55

Bueno aca lo tienes copialo y pruebalo lcaro que me salta una duda para saber cual afiliado es lo tienes que buscar si es haci tienes que hacer la busqueda con el "codigo de afiliado" para que te tire el afiliado consultado bueno en todo caso si es asi me avisas para ayudarte

<%@ Language=VBScript %>
<html>
<head>
<title>Muestra</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body bgcolor="#FFFFFF" text="#000000">

<%
Dim DB, TBL
Set DB = Server.CreateObject("ADODB.Connection")
Set TBL = Server.CreateObject("ADODB.RecordSet")
DB.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" + Server.MapPath("afiliados.mdb"))
Temp="Select * From TuTabla Where Codigo = "+Codigo //aca tira tu select codigo se refiere al codigo del afiliado
TBL.Open Temp ,DB ,1 ,2

TBL.close
%>
<TABLE width="46%" border='1' bgcolor='#CECECE'>
<% While Not TBL.EOF%>

<table>

<tr>
<td width="51%"> <font face="Verdana" color='#ffffff' size="2"><b>Fecha
Inicio :</b></font></td>
<td><input type="text" name="Nombre" value="<%= Tabla.Fields("NOmbre")%>">
</td>
</tr>
<tr>
<td width="51%"> <font face="Verdana" color='#ffffff' size="2"><b>Fecha
Inicio :</b></font></td>
<td><input type="text" name="Empresa" value="<%= Tabla.Fields("Empresa")%>">
</td>
</tr>
<tr>
<td width="51%"> <font face="Verdana" color='#ffffff' size="2"><b>Fecha
Inicio :</b></font></td>
<td><input type="text" name="FechaInicioReal" value="<%= Tabla.Fields("Correo")%>">
</td>
</tr>
<tr>
<td width="51%"> <font face="Verdana" color='#ffffff' size="2"><b>Observaciones
: </b></font></td>
<td>
<textarea name="Descripcion" rows="10" cols="40"><%= Tabla.Fields("Requisitos")%></textarea>

</td>
</tr>
<%

TBL.MoveNext

Wend

TBL.Close
DB.Close

%>
<tr>
<td colspan='2' align='center'>
<input type="submit" Value="GUARDAR" id=submit1 name=submit1><input type="reset" Value="RESET" id=reset1 name=reset1>
</td></tr>
</table>

</body>

ivan02 · #9 (**permalink**) 17/12/2003, 21:20

Error de sintaxis (falta operador) en la expresión de consulta 'Codigo ='.
/cat2/b.asp, línea 16

me sale

gracias por el codigo seguire tratando una pregunta el codigo es para grabar archivos en la base o para mostrarlos por los votones que veo es para grabar y lo que estoy tratando de hacer es mostrar en un cuadro de tex lo que tiene un campo de la base

gracias y espero que puedan hecharme la mano el campo que quiero mostrar es Requisitos en un textarea gracias no envie este mensage antes por que estaba tratando de que jalara con la ayuda de los mensages que me han puesto saludos

jahman · #10 (**permalink**) 18/12/2003, 18:48

ok dame el nombre de la tabla y los campos que quieres mostrar y te envio el codigo ah sobre todo lo que quieres hacer si lo quieres mostrar o editar o guadar.

ivan02 · #11 (**permalink**) 21/12/2003, 03:40

la base es de acces
la base se llama afiliados
la tabla se llama afiliados

quiero mostrar los datos

los camopos a mostrar son
nombre
empresa
correo
requisitos

nombre
empresa
correo

van en algo asi
While NOT TBL.EOF
Response.Write("<b>Nombre :</b> " & TBL("Nombre") & "<br>")
Response.Write("<b>Empresa :</b> " & TBL("Empresa") & "<br>")
Response.Write("<b>Correo :</b> " & TBL("Correo") & "<br>")

y

requisitos en un textarea para que no ocupe espacio

este es el proble no puedo meter el contenido de ese campo en ese cuadro de texto para mostrarlo en una pagina ya le di muchas vueltas y no puedo

mi codigo inicial es

<html>
<head>
<title>pagina de prueba</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body bgcolor="#FFFFFF" text="#000000">

<%
Dim DB, TBL
Set DB = Server.CreateObject("ADODB.Connection")
Set TBL = Server.CreateObject("ADODB.RecordSet")
DB.Mode = adModeReadWrite
DB.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" + Server.MapPath("afiliados.mdb"))

TBL.Open "Afiliados" ,DB ,1 ,2

While NOT TBL.EOF
Response.Write("<b>Nombre :</b> " & TBL("Nombre") & "<br>")
Response.Write("<b>Empresa :</b> " & TBL("Empresa") & "<br>")
Response.Write("<b>Correo :</b> " & TBL("Correo") & "<br>")
Response.Write("<b>Requisitos :</b> " & TBL("Requisitos") & "<br><br><hr>")
TBL.MoveNext

Wend

TBL.Close
DB.Close

Set DB = Nothing
Set TBL = Nothing

%>

</body>
</html>

gracias

jahman · #12 (**permalink**) 21/12/2003, 13:16

Bueno man el codigo esta listo y andando claro que tengo una duda

bueno no se como lo va a hacer para mostrar al afiliado mediante una busqueda que solamente buesque al afiliados o si va amostrara a todos los afiliados si quiere mostrar a todos los afiliados tan solo tiene que cambiar el SQL por "selecy * from afiliados" eso estodo si lo quiere hacer por una busqueda bueno aca esta echo espero que le sirve y avise cualquier cosa
Blessed

--------------------------------------------------------------------
busca.htm

<html>
<head>
<title></title>
<SCRIPT language="JavaScript">
function LP_data(){
var key=window.event.keyCode;//codigo de tecla.
if (key < 48 || key > 57){//si no es numero
window.event.keyCode=0;//anula la entrada de texto.
}
}function comprobar()
{

if (document.form.id.value=='')
{
alert('Debe introducir Código del Afiliado')
return(1)
}
return(0)
}

</SCRIPT>

</head>
<body><center>
<table>
<tr>
<td width="366" height="147">
<form method="post" action="muestra.asp" onSubmit="if (comprobar()) return(false)" name="form">
<table>
<tr>
<td width="168" bgcolor="#999999"> <strong>Busquéda de Afiliados</strong></td>
<td bgcolor="#999999"> <font color="#000000"> <strong>Código</strong></font></td>
</tr>
<tr>
<td>Código de Afiliado</td>
<td width="171">
<input type="text" name="id" size="15" onKeypress="LP_data()"></td>
</tr>

</table>
<center><input type="Submit" value="Enviar"></center>
</form>

</td>
</tr>
</table>

----------------------------------------------------------------
muestra.asp

<%@ Language=VBScript %>
<html>
<head>
<title>Muestra</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000">

<%
id = Request.Form("id")
Dim DB, TBL
Set DB = Server.CreateObject("ADODB.Connection")
DB.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" + Server.MapPath("afiliados.mdb"))
Set TBL = Server.CreateObject("ADODB.RecordSet")
Temp="Select * From afiliados where id="+id
TBL.Open Temp ,DB ,1 ,2
%>
<TABLE width="450" border='1' bgcolor='#CECECE'>
<%While Not TBL.EOF%>
<tr>
<td width="90"> <font face="Verdana" color="#ffffff" size="2"><b>Código :</b></font></td>
<td width="344"><input type="text" name="Empresa" value="<%=TBL.Fields("id")%>">
</td>
</tr>
<tr>
<td width="90"> <font face="Verdana" color="#ffffff" size="2"><b>Nombre :</b></font></td>
<td width="344"><input type="text" name="Empresa" value="<%=TBL.Fields("nombre")%>">
</td>
</tr>
<tr>
<td width="90"> <font face="Verdana" color="#ffffff" size="2"><b>Empresa :</b></font></td>
<td width="344"><input type="text" name="FechaInicioReal" value="<%= TBL.Fields("empresa")%>">
</td>
</tr>
<tr>
<td width="90"> <font face="Verdana" color="#ffffff" size="2"><b>E-mail :</b></font></td>
<td width="344"><input type="text" name="FechaInicioReal" value="<%= TBL.Fields("correo")%>">
</td>
</tr>
<tr>
<td width="90"> <font face="Verdana" color="#ffffff" size="2"><b>Requisitos : </b></font></td>
<td width="344">
<textarea name="Descripcion" rows="5" cols="35"><%= TBL.Fields("requisitos")%></textarea>

</td>
</tr>
<%

TBL.MoveNext
Wend
TBL.Close
DB.Close

%>
</table>

</body>

ivan02 · #13 (**permalink**) 24/12/2003, 02:43

deveras es un codigo muy bueno

disculpa por ser tan molesto pero lo que trato de hacer no es una busqueda sino que aparesca todo lo de todos sin codigo pues no hay codigo en la tabla y poder visualisar el contenido de la base en un textarea muhcas gracias cuidate

a todos feliz navidad.