Salvar checklist no Banco de Dados

[Aleks1072 0]

Bom dia,

 

Tenho uma table gerada a partir do banco de dados. Criei um checklist para marcar alguns contratos que atendem determinada situação, conforme abaixo:

 

<%

Dim check: check = ""

While Not rs.eof

If rs("campo Tabela_sim") = "sim" Then

check = "checked"

else

check = ""

End If

%>

<tr>

<td align="left"><%=rs("campo Tabela_Contrato")%></td>

<td>

<input type="checkbox" value="sim" name="campo tabela_sim" <%=check%>>

</td>

</tr>

<%

rs.movenext()

wend

%>

 

Como faço para salvar os contratos selecionados com check em uma tabela no banco de dados?

 

Obrigado,

 

Aleks1072

[rafaeldupalio 5]

alex VC quer copiar a linha inteira? sou noob mas se VC separar uma variável para guardar o select e depois dar um insetos na tabela nova.

[Aleks1072 0]

Eu queria inserir apenas os contratos marcados em uma tabela. Quero criar um botão enviar que salve todos os contratos marcados em outra tabela.

Quero saber na pratica como enviou o conjunto de contratos marcados no input para o banco de dados

[Fábio BN 17]

Oi.

 

Para fazer um post atualizando vários campos com o mesmo nome, é possível assim:

 

'Pega o valor do campo tabela_sim e separa as vírgulas.

 

campo_tabela_sim = request.form("campo tabela_sim")

campo_tabela_sim = split(campo_tabela_sim,",")

 

'Pega o valor do campo cod_sequencial e separa as vírgulas.

cod_sequencial = request.form("cod_sequencial")

cod_sequencial = split(cod_sequencial,",")

'Conta quantos valores foram separados pela vírgula
max = ubound(cod_sequencial)

' Faz um LOOP enquanto o valor de i não for igual a quantidade dos valores separados das virgulas no max
for i = 0 to max

'Atualiza cada campo na sua linha na sequencia vinda pelo formulário
SQL_new = "UPDATE nome_tabela SET campo_tabela_sim = "& trim(campo_tabela_sim(i)) &" where cod_sequencial = "& trim(cod_sequencial(i)) &" "
db.Execute(SQL_new)

next

 

' Aqui vai o código de sucesso, ou de retorno para alguma página informando que a alteração foi concluída.

 

Abraços - Fábio!

[xanburzum 169]

Faz assim:

 

if qtd_produtos = ""
produtos= Split(Request.Form("produtos"), ",")

For i = 1 To Request.Form("produtos").Count

Response.write request.form("produtos")(i)&"<BR>" & request.form("qtd_produtos")(i)&"<BR>"
SQL = "INSERT INTO lista (lista_prodID,lista_quant) Values ('"&request.form("produtos")(i)&"','"&request.form("qtd_produtos")(i)&"')"

OUTRO EXEMPLO

<%
dim conn
'Criamos o objeto de conexão
Set conn = Server.CreateObject("ADODB.Connection")

'Abrimos uma conexão com o banco de dados - [iMPORTANTE] altere os dados abaixo com as informações de sua base de dados
conn.Open("DRIVER={MySQL ODBC 5.1 Driver};SERVER=localhost;PORT=3306;DATABASE=database;USER=root;PASSWORD=211613;OPTION=3;")

checkbox = request.form("teste").Count

response.Write("<br>"&checkbox&"<br />")

for i = 0 to checkbox-1

'response.Write(split(Request.Form("teste"),",")(i)&"<br />")

set inerir = conn.execute("insert into arquivomb (arquivo,notafiscal) values ("&split(Request.Form("teste"),",")(i)&","&Request.Form("users")&")")

next

response.Write("Cadastrado")

conn.Close()
'Destruímos o objeto
Set conn = Nothing

%>