Ver Mensaje Individual
  #3 (permalink)  
Antiguo 29/03/2008, 13:06
Avatar de ciisteado
ciisteado
 
Fecha de Ingreso: enero-2008
Ubicación: Home Office
Mensajes: 111
Antigüedad: 17 años, 3 meses
Puntos: 0
Re: Traspaso de datos a formulario

Hola:

Se me ocurre hacer esto:

Aqui esta el formulario en donde cargas los datos de la tabla "ARTICULOS"

Código HTML:
<form name="cualquiera" action="editar.asp" method="post">
	<!-- Aqui pones todos los parametros de conexion-->
<%
	dim conexion
	set conexion = Server.CreateObject("ADODB.Connection")
	
	conexion.Open = "driver={MySQL};server="&session("servidor")&";uid="&session("usuariobd")&";pwd="&session("contrasenabd")&";database="&session("bd")&""
	dim registros
	set registros = Server.CreateObject("ADODB.RecordSet") 
	registros.open "select Codigo,Descripcion,Precio, Referencia from articulos",conexion

%>
	<table>
		<tr>
			<td>Codigo:</td>
			<td>
				<select name="codigo">
					<option selected value="">==Seleccionelo !!==</option>
					<%
						if not registros.EOF then
							do while not registros.EOF %>
								<option value="<%response.Write(registros("Codigo"))%>"><%response.Write(registros("Codigo"))%></option>
					<%			registros.movenext
							loop
						else %>
							<option value=" ">No hay Códigos resistrados</option>
					<%	end if
						registros.close
					%>
				</select>
			</td>
		</tr>
	</table>
	<input type="submit" value="modificar">
</form> 
En este otro, recibes el codigo que seleccionaste en la pagina anterior y por medio de el, filtras los otros datos para llenar tus cajas de texto y hacer la modificacion...
Código HTML:
<form name="cualquiera" action="modificar.asp" method="post">
	<!-- Aqui pones todos los parametros de conexion-->
<%
	dim conexion
	set conexion = Server.CreateObject("ADODB.Connection")
	
	conexion.Open = "driver={MySQL};server="&session("servidor")&";uid="&session("usuariobd")&";pwd="&session("contrasenabd")&";database="&session("bd")&""
	dim registros
	set registros = Server.CreateObject("ADODB.RecordSet") 
	registros.open "select Codigo,Descripcion,Precio, Referencia from articulos where"& request.form("codigo"),conexion

%>
	<table>
		<tr>
			<td>Codigo:</td>
			<td>
				<input type="text" name="cod" readonly="readonly" value="<%response.Write(registros("Codigo"))%>"/>
			</td>
		</tr>
		<tr>
			<td>Descripción:</td>
			<td>
				<input type="text" name="descrip" value="<%response.Write(registros("Descripcion"))%>"/>
			</td>
		</tr>
		<tr>
			<td>Precio:</td>
			<td>
				<input type="text" name="precio" value="<%response.Write(registros("Precio"))%>"/>
			</td>
		</tr>
		<tr>
			<td>Referencia:</td>
			<td>
				<input type="text" name="referen" value="<%response.Write(registros("Referencia"))%>"/>
			</td>
		</tr>
	</table>
	<input type="submit" value="Guardar">
</form> 
Una ves teniendo eso en la sentencia UPDATE te quedaria algo como:
Código HTML:
update articulos set Descripcion='" & request.form("descrip") & "',Precio=" & request.form("precio") & ", Referencia='" & request.form("referen") & "' where Codigo="& request.form("cod") & ""
A reserva de lo que digan los "MASTERS" creo que con esto quedaria, listo... habria que tener en cuenta los tipos de datos que estes manejando, para utilizar ' ó " en el UPDATE...

Saludos....