Los Foros de ASPTutor.com
Home | Perfil | Registrarse | Temas Activos | Miembros | Buscar | FAQ
Usuario:
Password:
 Todos los Foros
 ASP
 Combobox, ayudenme!!!
 Foro Bloqueado  Tema Bloqueado


Autor Temas
Dayana
Starting Member

Venezuela
23 Posts
Mensajes - 01 Jul 2004 :  17:48:17  Ver Perfil  Enviar Email  Enviar Dayana un Mensaje Yahoo!
necesito que me digan como lleno un combobox con la data de una DB. aqui les va el codigo, a ver que barbarie consiguen ahi y por fa me hagan saber las correciones. el codigo es para insertar datos en la BD, por fa quiero ingresar los nombres y que en la tabla se ggraben los id, ayudenme<% Option Explicit%>
<HTML>
<HEAD>

<TITLE>FORMULARIO_ORION AGREGAR</TITLE>
<script LANGUAGE="JavaScript">
function validar()
{
if (document.frm_orion(enviar_tareas_ejecutadas).id_empleado.value == "")
{
alert("La caja de texto de Dayana esta vacia");
document.frm_orion(enviar_tareas_ejecutadas).asp.id_empleado.focus();
return;
}
document.frm_orion(enviar_gasto).submit();
}


function loadDoc() {


// initial focus; use if needed

//document.test.ds_tipo_gasto.focus ();

return;


}

-->
</script>


</HEAD>
<BODY background="C:\Archivos de programa\AvaQs\DOC\IMG\nubes.jpg" onLoad="loadDoc()">

<font color=mediumblue size=4>
<%

Dim cn, rs, misql,id_empleado,id_tarea, id_proyecto , fecha_ejecucion,

duracion_ejecucion, aprobacion, opcion

id_empleado=request.form("id_empleado")
id_tarea=request.form("id_tarea")
id_proyecto=request.form("id_proyecto")
fecha_ejecucion=request.form("fecha_ejecucion")
duracion_ejecucion=request.form("duracion_ejecucion")
aprobacion=request.form("aprobacion")

If(Request.Form <>"") Then

Set cn = Server.CreateObject( "ADODB.Connection" )
set rs=server.CreateObject("ADODB.recordset")
cn.Open "DRIVER={SQL Server};SERVER=COMPAQ;UID=sa;PWD="
misql="INSERT INTO [PROYECTO].[dbo].[TAREAS_EJECUTADAS]([id_empleado], [id_tarea],

[id_proyecto], [fecha_ejecucion], [duracion_ejecucion], [aprobacion]) VALUES('" &

id_empleado & "', '" & id_tarea & "', '" & id_proyecto & "', '" & fecha_ejecucion &

"', '" & duracion_ejecucion & "','" & aprobacion & "')"

set rs=cn.execute(misql)

Response.Write "Datos insertados"%><br><br>


<a href="frm_orion(principal).asp">Menu Principal</a><br><BR>
<a href="frm_orion(enviar_tareas_ejecutadas).asp">Otra Inserción</a><br><BR>
<%

Else%>
<STRONG>Escriba los Datos</STRONG><BR>
<FORM METHOD="post" ACTION= "frm_orion(enviar_tareas_ejecutadas).asp"

name="frm_orion(enviar_tareas_ejecutadas).asp">
<P>Códigodel
empleado:&nbsp;<INPUT id=text1 name="id_empleado" style ="WIDTH: 50px; HEIGHT: 22px"

size=6><BR><br>
Código de la
Tarea:&nbsp; <INPUT id=text2 name="id_tarea" ></P>
<%
Set cn = Server.CreateObject( "ADODB.Connection" )
set rs=server.CreateObject("ADODB.recordset")
cn.Open "DRIVER={SQL Server};SERVER=COMPAQ;UID=sa;PWD="
misql="SELECT distinct [nombre_tarea]FROM [PROYECTO].[dbo].[TAREA]"
set rs=cn.Execute(misql)
While (Not rs.EOF)

%>
<SELECT name="Combo"> <OPTION value="<%=rs("id_tarea")%>"></OPTION></SELECT>
<%
Wend
%>
<P>Código del Proyecto: &nbsp;<INPUT name="id_proyecto"></P>
<P>Fecha de Ejecución:&nbsp; <INPUT name="fecha_ejecucion"></P>
<P>Duracion:&nbsp; <INPUT name="duracion_ejecucion"></P>
<P>Aprobado:&nbsp; <SELECT name="opcion"> <OPTION value= "si">Si </option> <option

value="no">No</option> selected name="aprobacion" ></OPTION></SELECT><BR><br>
<% if opcion="si" then
misql="insert into[PROYECTO].[dbo].[TAREAS_EJECUTADAS](aprobacion) values('1')"
rs=cn.execute(misql)
end if%>


<INPUT TYPE="submit" VALUE="Enviar Datos" onclick="validar()">
<INPUT TYPE="reset" VALUE="Borrar"></P>

</FORM>

<%End If%></font>

</BODY>
</HTML>

dayanita

   
 Foro Bloqueado  Tema Bloqueado
Ir a:
Los Foros de ASPTutor.com Los Foros de ASPTutor.com
Ir al principio de la Página

 Imprimir Tema
 

Descargas de manuales¦ Ejemplos de código ¦ Artículos mas visitados ¦ Envía tu articulo ¦ Foros ¦
  Libro de visitas ¦Crea un enlace con ASPTutor 
 

    © 2001-Hasta hoy  Pedro Rufo Martín  contactar