Problemas Na Hora De Selecionar

[AnD]

Olá Galera,

Estou com um sistema, que você seleciona o que quer alterar por checkbox. Na hora de deletar, ele deleta com este código:

<%

SET RS = Server.CreateObject("AdoDB.RecordSet")

tabela = trim(request("tabela"))

ids = split(request("selecao"),",")

For Each idselecionado IN ids

SQL="DELETE * FROM " & tabela & " WHERE id=" & idselecionado

RS.Open SQL,Conexao

NEXT

%>

Agora eu fiz um para selecionar:

<%

SET RS = Server.CreateObject("AdoDB.RecordSet")

tabela = trim(request("tabela"))

ids = split(request("selecao"),",")

For Each idselecionado IN ids

SQL="SELECT * FROM " & tabela & " WHERE id=" & idselecionado

RS.Open SQL,Conexao

NEXT

%>

Porém está me dando este erro:

Tipo de erro:

ADODB.Recordset (0x800A0E79)

Operação não permitida quando o objeto está aberto.

/sites_atuais/netbar_aquarela/admin/reservas_imprimir2.asp, line 23

POST Data:

selecao=66&selecao=67&selecao=68&selecao=69&selecao=70&Imprimir=Imprimir+Reservas

Ele está pegando até o valor do botão imprimir. Mas o delete funciona. Estou arrancando os cabelos!

Por favor galera, me dê um help!

[ursolouco]

seguinte:

variavel = Request.Form("nomecheckbox")

vetor = split(variavel,",")

For I = lbound(vetor) to ubound(vetor)

'executar sql aqui

Next

Espero que lhe ajude

Abraços!!

[AnD]

Brother,

Coloquei o cod assim:

<%
ids = Request.Form("selecao")
vetor = split(ids,",")
For I = lbound(vetor) to ubound(vetor)
SQL="SELECT * FROM reservas WHERE id="& I
RS.Open SQL,Conexao
Next
%>

Ele está me dando este erro:

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A01A8)

Objeto necessário: ''

/sites_atuais/netbar_aquarela/admin/reservas_imprimir2.asp, line 21

A linha 21 é a que abre o banco.

[Principe]

Não é prq tá usando o mesmo nome nas duas conections ?.. você já setou acima que RS é um objeto ADODB e abriu ele:

SET RS = Server.CreateObject("AdoDB.RecordSet")
SQL="DELETE * FROM " & tabela & " WHERE id=" & idselecionado
RS.Open SQL,Conexao

abaixo você não pode abri-lo denovo:

SET RS = Server.CreateObject("AdoDB.RecordSet")
SQL="SELECT * FROM " & tabela & " WHERE id=" & idselecionado
RS.Open SQL,Conexao

tente mudar o nome do RS e do comando sql !

[ursolouco]

Após pesquisa...

http://scriptbrasil.com.br/forum/index.php...60entry177555

Espero que lhe ajude

[Guest - Leandro -]

Brother,

Coloquei o cod assim:

<%
ids = Request.Form("selecao")
vetor = split(ids,",")
For I = lbound(vetor) to ubound(vetor)
SQL="SELECT * FROM reservas WHERE id="& I
RS.Open SQL,Conexao
Next
%>

Ele está me dando este erro:

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A01A8)

Objeto necessário: ''

/sites_atuais/netbar_aquarela/admin/reservas_imprimir2.asp, line 21

A linha 21 é a que abre o banco.

safd@sdfsd.com

[pogoball]

ERRO DE SINTAXE EM PRIMEIRO LUGAR

SQL="DELETE * FROM " & tabela & " WHERE id=" & idselecionado

POR

SQL="DELETE FROM " & tabela & " WHERE id=" & idselecionado