Foros del Web - Ver Mensaje Individual - consulta de base de datos con listas desplegables

rosemary22 · #10 (**permalink**) 04/10/2005, 10:21

Hola les agradecira una ayudita quiero que mis campos de mi tabla nepo_cab

Name Null? Type
----------------------------------------- -------- -------------------------
CODI_EMPL_PER NOT NULL CHAR(8)
CODI_DEPE_TDE NOT NULL CHAR(4)
DIR_EMP_PER NOT NULL VARCHAR2(60)
CODI_DEPA_DPT NOT NULL CHAR(2)
CODI_PROV_TPR NOT NULL CHAR(2)
CODI_DIS_TDI NOT NULL CHAR(2)
RL276 NOT NULL CHAR(1)
NOMBRADO NOT NULL CHAR(1)
DESIGNADO NOT NULL CHAR(1)
SNP NOT NULL CHAR(1)
PROYECTO NOT NULL CHAR(1)
ESPECI_PROY NOT NULL VARCHAR2(60)
OTROS NOT NULL CHAR(1)
ESPECI_OTROS NOT NULL VARCHAR2(60)
JURAMENTO NOT NULL CHAR(1)
ANIO NOT NULL CHAR(4)
MES NOT NULL CHAR(2)
LEY NOT NULL VARCHAR2(100)
GRADO NOT NULL CHAR(1)
COD_PARENTESCO NOT NULL CHAR(2)

se han llenados con los datos de la pagina frmdatos.asp

frmdatos.asp

Cita:

<%
Dim cnOra1, cnStrOra ,Rs, sql,sql1,sql_cargo,sql_depe,sql_insert
Set cnOra1 = Server.CreateObject("ADODB.Connection")
Set Rs=Server.CreateObject("ADODB.Recordset")
cnStrOra ="Provider=OraOLEDB.Oracle;Password=631;User ID=PR;Data Source=TCP.WORLD"
cnOra1.open cnStrOra
sql= "select * from maestro_personal order by ape_pat_per"
Rs.Open sql, cnOra1

iEmpleado=request.form("Empleado")
%>
'si la variable iEmpleado esta vacia se muestra solo el formulario
if iEmpleado ="" then

<form method="POST" action="frmdatos.asp" name="formtemp">
<select size="1" name="Empleado" onchange="this.form.submit()" >
<option value=""> </option>
<%
while not Rs.EOF
%>
<option value="<%=Rs("codi_empl_per")%>"><%=Rs("ape_pat_pe r")%>  <%=Rs("ape_mat_per")%> &nbsp ;<%=Rs("nom_emp_per")%></option>
<%
Rs.movenext
wend
%>
</select>
</form>
<%
else
Rs.close
sql1="select * from maestro_personal"
if Request.Form("Empleado")<>"" then
sql1 = sql1 + " where codi_empl_per='"&iEmpleado&"'"
end if
Rs.Open sql1, cnOra1
if Rs.State <>0 then
if not (Rs.BOF and Rs.EOF) then
do while not Rs.EOF
%>
<p>Dependencia a la que pertenece: <b><%=Rs("depe_remu_per")%></p>
<p>DNI:  <%=Rs("codi_empl_per")%></p>
<p>Domicilio:  <%=Rs("dir_emp_per")%></p>
<p>Distrito:<%=Rs("dist_naci_tdi")%></p>
<p>Provincia: <%=Rs("prov_naci_tpr")%></p>
<p>Departamento: <%=Rs("depa_naci_dpt")%></p>
<p><% if (Rs("reg_lab_per").Value)=276 Then%></p>
<p><input checked type="checkbox" name="ck276"></p>
<% else %>
<p>Nombrado :</p>
<%
if (Rs("con_tra_per").Value)="N" Then
%>
<p><input checked name="cknombrado" type="checkbox" size="2"></p>
<% else %>
<p><input name="cknombrado" type="checkbox" size="2"></p>
<% end if%>
<%
Rs.movenext
loop
Rs.close
%>
<p>Servicios No Personales :</p>
<p><input type="checkbox" name="cksnp" value="ON"></p>
<p>Proyectos</p>
<p><input type="checkbox" name="ckproy" value="ON"></p>
<p>Especificar</p>
<p><input type="text" name="txtespeproy" size="52"></p>
<p>Otros</p>
<p><input type="checkbox" name="ckotros" value="ON"></p>
<p>Especificar</p>
<p><input type="text" name="txtespeotros" size="52"></p>
<p>DECLARO BAJO JURAMENTO</p>
<p>Si   <input type="radio" name="rdjura" value="1" checked></p>
<p>NO &NBSP; <input type="radio" name="rdjura" value="0"></p>
<p>>HASTA EL CUARTO GRADO DE CONSANGUINIDAD</p>
<p>Número de parientes : &nsbp; <input tipe="text" name="npac" size="10"></p>
<p>Apellidos y Nombres :   <input type="text" name="apepnm4" size="80"></p>
<p>Parentesco o vínculo conyugal</p>
<p>
<select name="pgrado4" onchange="">
<option value="Seleccione">Seleccione</option>
<%
sql_pare="select * from tipo_paren_nepo order by desc_parentesco"
Rs.Open sql_pare,cnOra1
while not Rs.EOF
%>
<option value="<%=Rs("cod_parentesco")%>"><%=Rs("desc_pare ntesco")%></option>
<%
Rs.MoveNext
wend
Rs.close
%>
</select>
</p>
<p>Cargo</p>
<p>
<select size="1" name="cgrado4" onchange="" >
<option value="">Seleccione</option>
<%
sql_cargo="select m.codi_empl_per, m.codi_carg_tca, c.desc_carg_tca from maestro_personal m, inei.tcargos c where m.codi_carg_tca= c.codi_carg_tca(+)"
Rs.Open sql_cargo, cnOra1
while not Rs.EOF
%>
<option value="<%=Rs("codi_carg_tca")%>"><%=Rs("desc_carg_ tca")%></option>
<%
Rs.movenext
wend
Rs.close
%>
</select>
</p>
<p>Dependencia en la que presta servicios.</p>
<p>
<select size="1" name="dgrado4" onchange="" >
<option value="">Seleccione</option>
<%
sql_depe="select m.codi_empl_per, m.codi_depe_tde, d.desc_depe_tde from maestro_personal m,tdependencias d where m.codi_depe_tde=d.codi_depe_tde(+) and flag='1'"
Rs.Open sql_depe, cnOra1
while not Rs.EOF
%>
<option value="<%=Rs("codi_depe_tde")%>"><%=Rs("desc_depe_ tde")%></option>
<%
Rs.movenext
wend
Rs.close
%>
</select>
</p>
<p>HASTA EL SEGUNDO GRADO DE CONSANGUINIDAD</p>
<p>Número de parientes : <input type="text" name="npac" size="10"></p>
<p>Apelldos y Nombres : <input type="text" name="apepnm2" size="80"></p>
<p>Parentesco o vínculo conyugal</p>
<p>
<select name="pgrado2" onchange="">
<%
Rs.Open sql_pare,cnOra1
while not Rs.EOF
%>
<option value="<%=Rs("COD_PARENTESCO")%>"><%=Rs("DESC_PARE NTESCO")%></option>
<%
Rs.MoveNext
wend
Rs.close
%>
</select>

</p>
<p>Cargo</p>
<p>
<select size="1" name="cgrado2" onchange="" >
<option value="">Seleccione</option>
<%
Rs.Open sql_cargo, cnOra1
while not Rs.EOF
%>
<option value="<%=Rs("codi_carg_tca")%>"><%=Rs("desc_carg_ tca")%></option>
<%
Rs.movenext
wend
Rs.close
%>
</select>
</p>
<p>Dependencia en la que presta servicios.</p>
<p>
<select size="1" name="dgrado2" onchange="" >
<option value="">Seleccione</option>
<%
Rs.Open sql_depe, cnOra1
while not Rs.EOF
%>
<option value="<%=Rs("codi_depe_tde")%>"><%=Rs("desc_depe_ tde")%></option>
<%
Rs.movenext
wend
%>
</select>
</p>
<%
Rs.close
Set rs= Nothing 'cerramos rs
cnOra1.close 'ya no existe recorset le decimo al servidor
Set cnOra1= Nothing
end if
end if
end if
%>

Saludos