Deletar múltiplos registros

[Fábio BN 17]

Oi, faça o Loop assim:

 

<% while not myRst.EOF%>

 

<% myRst.MoveNext

wend
%>

 

Uma dica, você precisa ver qual valor está sendo passado pelo campo ( seq ). Crie uma tela no lugar da tela multideletex.asp e mande exibir seu resultado assim:

response.write request.form("seq")

O correto é caso amus de 1 check box seja selecionado, o valor sair assim: 1,2,5,8,9 etc...

Se estiver no padrão acima, está correto.

 

Na tela de excluir, você fez isso antes do DELETE?

<% seq = request.form("seq")

 

var03 = "delete * FROM TAB_QUADRO_BRASFELS WHERE codigo IN ("&seq&")"

Set myRst = Server.CreateObject("ADODB.Recordset")

myRst.Open vSql, conn, 3, 3

 

%>

 

O fato do Campo auto numeração não tem problema, é até melhor.

 

Abraços!

[rafaeldupalio 5]

uma pergunta Fabio o formulário que manda para a pagina multideletex.asp ta fora do loop até ae blz. mas uma duvida como a pagina multideletex.asp vai puxar (pegar referencia) do checkbox da pagina que foi marcados as caixas de seleção?

será que nao tem que colocar algo indicando alem do nome do checkbox(seq)?

[Fábio BN 17]

Ela vai se referenciar pelo campo do checkbox(seq). Apenas este campo basta.

 

Eu acho que o erro possa estar aqui:

 

Tenta isto:

 

<% seq = request.form("seq")

 

var03 = "delete * FROM TAB_QUADRO_BRASFELS WHERE codigo IN ("&seq&")"

Set myRst = Server.CreateObject("ADODB.Recordset")

myRst.Open vSql, conn, 3, 3

 

%>

 

Abraços!

[rafaeldupalio 5]

Oi, faça o Loop assim:

 

<% while not myRst.EOF%>

 

<% myRst.MoveNext

wend

%>

 

Uma dica, você precisa ver qual valor está sendo passado pelo campo ( seq ). Crie uma tela no lugar da tela multideletex.asp e mande exibir seu resultado assim:

response.write request.form("seq")

O correto é caso amus de 1 check box seja selecionado, o valor sair assim: 1,2,5,8,9 etc...

Se estiver no padrão acima, está correto.

 

Na tela de excluir, você fez isso antes do DELETE?

<% seq = request.form("seq")

 

var03 = "delete * FROM TAB_QUADRO_BRASFELS WHERE codigo IN ("&seq&")"

Set myRst = Server.CreateObject("ADODB.Recordset")

myRst.Open vSql, conn, 3, 3

 

%>

 

O fato do Campo auto numeração não tem problema, é até melhor.

 

Abraços!

Fabio encontrei um erro com abse no seu pedido!!

havia colocado antes a condicional e nao prestei a devida atenção que estava dando em branco, ae sim pesquei o erro como poderia fazer um request.form se estava fechando o form lá em cima no proprio botao?? passeia fechar o form depois do loop e com isso passou a pegar os codigos do banco!!

Mas continuou dando o erro:

 

ADODB.Recordset erro '800a0bb9'

Os argumentos são incorretos, estão fora do intervalo aceitável ou estão em conflito.

Refiz o codigo com a condicional como se fosse deletar um a um:

Var_seq = request.form("seq")

if var_seq= "" then

response.write("erro")

else

vSql="DELETE FROM TAB_QUADRO_BRASFELS WHERE codigo="&var_seq

Set myRst = Server.CreateObject("ADODB.Recordset")

myRst.Open vSql, conn, 3, 3

Response.Redirect "http://www.rafaeldupalio.com.br/Devolucao_bf_listar.asp"

end if

retornou o seguinte erro:

Microsoft JET Database Engine erro '80040e14'

Erro de sintaxe (vírgula) na expressão de consulta 'codigo=3272, 3271'.

pelo o que entendi o erro foi pq nao entrou a virgula automaticamente.

[Fábio BN 17]

Oi, se você colocar o comando ( = ) vai dar erro, use o comando ( IN )

 

Abraços!

[rafaeldupalio 5]

Oi, faça o Loop assim:

 

<% while not myRst.EOF%>

 

<% myRst.MoveNext

wend

%>

 

Uma dica, você precisa ver qual valor está sendo passado pelo campo ( seq ). Crie uma tela no lugar da tela multideletex.asp e mande exibir seu resultado assim:

response.write request.form("seq")

O correto é caso amus de 1 check box seja selecionado, o valor sair assim: 1,2,5,8,9 etc...

Se estiver no padrão acima, está correto.

 

Na tela de excluir, você fez isso antes do DELETE?

<% seq = request.form("seq")

 

var03 = "delete * FROM TAB_QUADRO_BRASFELS WHERE codigo IN ("&seq&")"

Set myRst = Server.CreateObject("ADODB.Recordset")

myRst.Open vSql, conn, 3, 3

 

%>

 

O fato do Campo auto numeração não tem problema, é até melhor.

 

Abraços!

Vlw Fábio deu certo kra!!! segue o codigo da pagina multideletex.asp

 

<!-- #include file="conn.asp" -->

<%

Var_seq = request.form("seq")

if var_seq= "" then

response.write("erro")

Else

vSql = "DELETE * FROM TAB_QUADRO_BRASFELS WHERE codigo IN("&var_seq&")"

Set myRst = Server.CreateObject("ADODB.Recordset")

myRst.Open vSql, conn, 3, 3

Response.Redirect "/Devolucao_bf_listar.asp"

end if

%>

[Fábio BN 17]

Legal. Mais dúvidas escreva!

 

Abraços!

[xanburzum 169]

tem que fazer o loop no checkbox e inserir na SQL

[rafaeldupalio 5]

tem que fazer o loop no checkbox e inserir na SQL

xanburzum obrigado ma so fabio conseguiu me ajudar nao sei como colocar resolvido no topico. se vc poder colocar como gerenciador do forum.