Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

marcdes

Seleção de produtos

Por , em ASP Clássico

Recommended Posts

marcdes    0

marcdes
Postado

Boa tarde,Tenho uma lista com 11 produtos. quando o usuário entrar, esta lista aparece para ele escolher os produtos que deseja através do checkbox, como eu faço para mandar essas informações para o banco? não estou conseguindo? Onde acho apostilas relativas a esse tipo de assunto?Marcondes

Compartilhar este post

Link para o post
Compartilhar em outros sites

marcdes    0

marcdes
Postado

Sim.....os produtos devem ser lançados para uma tabela x, mas o form contém informações de outras tabelas, como local, data e valor, usuário e produto. todos tem um ID. todas as tabelas estão relacionadas.

Compartilhar este post

Link para o post
Compartilhar em outros sites

n@rf    0

n@rf
Postado

Faca com que o valor de cada chekbox apresentado seja o ID do produto assim você. saberá quais foram os produtos selecionados....

 

Pode ainda fazer com que os chekboxes tenham o mesmo nome e qdo enviar os dados para a página de gravação eles irão (os ID'S) separados por virgula, assim poderá tratá-los com a função split()

 

OK. Imagem Postada

Compartilhar este post

Link para o post
Compartilhar em outros sites

jeffersonsm    0

jeffersonsm
Postado

acho que entendi.......

 

 

valeu, mui obrigado.....

 

 

Imagem PostadaImagem Postada

faz assim..

 

form q traz os teus produtos

 

===>

 

<%

Dim Mmdb

Mmdb = Server.MapPath("forum.mdb")

 

Set DB=Server.CreateObject("ADODB.Connection")

Data="DBQ=" & Mmdb & ";Driver={Microsoft Access Driver (*.mdb)}"

DB.Open Data,"",""

 

varuser = Request.form("atendente")

varstatus = Request.form("status")

 

Busca = "SELECT * FROM atendimento where status ='" & varstatus & "' and atendente ='" & varuser &"'"

Set Ver = DB.Execute(Busca)

%>

<hr>

<center>

<table width="50%" border="0" cellspacing="1" cellpadding="2" bordercolor="#EFEFEF">

<% if varstatus = "Aberto" then %>

<tr>

<td valign="top" bgcolor="#CCFFFF">

<font size="2" face="Verdana, Arial, Helvetica, sans-serif"><b>

<CENTER>NÃO ATENDINDOS ATÉ AGORA POR (( <%=varuser%> ))</CENTER></b></font></td>

</tr>

<%ELSE%>

<tr>

<td valign="top" bgcolor="#CCFFFF">

<font size="2" face="Verdana, Arial, Helvetica, sans-serif"><b>

<CENTER>ATENDINDOS ATÉ AGORA POR (( <%=varuser%> ))</CENTER></b></font></td>

</tr>

<%END IF%>

</TABLE>

</center>

 

<%

if Ver.EOF And Ver.BOF Then

set ver = Nothing

%>

<div align="center"><b><font face="Arial, Helvetica, sans-serif" size="2" color="#FF0000">Não foram postados Atendimentos...</font></b>

<% Else %>

 

<table width="80%" border="1" cellspacing="0" cellpadding="0" ALIGN="CENTER" bordercolor="#3366FF">

<form method="GET" action="form_altera.asp">

<tr bgcolor="f5f5f5">

<td width="9%"><font color="#ff0000"><font face="Arial, Helvetica, sans-serif" size="2"><b>Data</b></font></td>

<td width="10%"><font color="#ff0000"><font face="Arial, Helvetica, sans-serif" size="2"><b>Usuario</b></font></td>

<td width="10%"><font color="#ff0000"><font face="Arial, Helvetica, sans-serif" size="2"><b>Filial</b></font></td>

<td><font color="#ff0000"><font face="Arial, Helvetica, sans-serif" size="2"><b>Descrição</b></font></td>

<td width="10%"><font color="#ff0000"><font face="Arial, Helvetica, sans-serif" size="2"><b>Prioridade</b></font></td>

<td width="10%"><font color="#ff0000"><font face="Arial, Helvetica, sans-serif" size="2"><b>Atendente</b></font></td>

<td width="10%"><font color="#ff0000"><font face="Arial, Helvetica, sans-serif" size="2"><b>Status</b></font></td>

<td width="5%"><input type="submit" name="Submit" value="Alterar"></td>

</tr>

 

 

 

<%

Do While NOT Ver.EOF

%>

<tr>

<td><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><%Response.write day(Ver("data")) & "/"& month(Ver("data")) & "/" & year(Ver("data"))%></td>

<td><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><%Response.write Ver("usuario")%></td>

<td><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><%Response.write Ver("filial")%></td>

<td><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><%Response.write Ver("descricao")%></td>

<td><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><%Response.write Ver("prioridade")%></td>

<td><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><%Response.write Ver("atendente")%></td>

<td><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><%Response.write Ver("status")%></td>

<td><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><center><input type="radio" name="radio" value="<%=Ver(0)%>"></center></td>

</tr>

<%

Ver.MoveNext

Loop

end if

Set Ver = Nothing

DB.Close

%>

</form>

</table>

<center>

<table>

<tr>

<td><a href="informatica.asp"><img border="0" src="../imagens/btvoltar.gif" width="46" height="15"></a></td>

</tr>

</table>

 

 

agora o form que altera...

 

 

===>

 

<%

On error resume Next

Dim objConn, stringSQL, strConnection, id

id = Request.QueryString("radio")

 

Set objConn = Server.CreateObject("ADODB.Connection")

Set objRS = Server.CreateObject("ADODB.Connection")

objConn.Open "DBQ=" & Server.MapPath("forum.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"

stringSQL = "SELECT * FROM atendimento WHERE autonum = "&id

Set objRS = objConn.Execute(stringSQL)

 

if err <> 0 Then%>

<div align="center"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Ocorreu algum erro!</b><br><a href="java script:history.back(-1)">Volta</a></font></div>

<%else%>

<title>ASPBRASIL</title>

</head>

 

<body>

<form method="POST" action="altera_att.asp">

<div align="center">

<center>

<table border="0" width="500" bgcolor="F5F5F5">

<tr bgcolor="#FFFFFF">

<td colspan="2" height="34">

<div align="center"><font size="2"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#000066">Alteração

de dados - ATENDIMENTOS.</font></b></font></div>

</td>

</tr>

<tr>

<td width="76" valign="top"><font size="2" face="Verdana" color="0000cc">Data:</font></td>

<td width="210">

<input type="text" name="data" size="20" style="font-family: Verdana; font-size: 8 pt;COLOR: 0000CC;" value='<%=day(objRS("data")) & "/"&month(objRS("data")) & "/"&year(objRS("data"))%>'">

</td>

</tr>

<tr>

<td width="76" valign="top"><font size="2" face="Verdana" color="0000cc">Usuario:</font></td>

<td width="210">

<input type="text" name="usuario" size="20" style="font-family: Verdana; font-size: 8 pt;COLOR: 0000CC;" value='<%=objRS("usuario")%>'">

</td>

</tr>

<tr>

<td width="76" valign="top"><font size="2" face="Verdana" color="0000cc">Filial:</font></td>

<td width="210">

<input type="text" name="Filial" size="20" style="font-family: Verdana; font-size: 8 pt;COLOR: 0000CC;" value='<%=objRS("filial")%>'">

</td>

</tr>

<tr>

<td width="76" valign="top"><font size="2" face="Verdana" color="0000cc">Descrição:</font></td>

<td width="210">

<textarea rows="5" name="descricao" cols="45" style="font-family: Verdana; font-size: 8 pt;COLOR: 0000CC;"><%=objRS("descricao")%></textarea>

</td>

</tr>

<tr>

<td width="96" valign="top"><font size="2" face="Verdana" color="0000cc">Prioridade:</font></td>

<td width="310">

<input type="text" name="Prioridade" size="20" style="font-family: Verdana; font-size: 8 pt;COLOR: 0000CC;" value='<%=objRS("prioridade")%>'">

</td>

</tr>

<tr>

<td width="76" valign="top"><font size="2" face="Verdana" color="0000cc">Atendente:</font></td>

<td width="210">

<input type="text" name="Atendente" size="20" style="font-family: Verdana; font-size: 8 pt;COLOR: 0000CC;" value='<%=objRS("atendente")%>'">

</td>

</tr>

<tr>

<td width="76" valign="top"><font size="2" face="Verdana" color="0000cc">Status:</font></td>

<td width="310">

<input type="text" name="status" size="20" style="font-family: Verdana; font-size: 8 pt;COLOR: 0000CC;" value='<%=objRS("Status")%>'">

<input type="hidden" name="autonum" value="<%=objRS("autonum")%>">

</tr>

<tr>

<td width="286" colspan="2">

<p align="center">

<input class=caixa type="submit" value=Gravar name="enviar" style="border: 1 solid #0000ff">

</td>

</tr>

</table>

</center>

</div>

</form>

<%end if%>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito