apagar vários registros de uma única vez


	Fórum
	ASP - Active Server Page

Responder

Voltar

Autor

Assunto: apagar vários registros de uma única vez

Márcio Puntel
não registrado

ENUNCIADA !

Postada em 06/05/2004 08:54 hs

Olá,

estou tendo um probleminha para apagar mais de um registro do meu bd.

É o seguinte:

Tenho uma página onde listam todos os tópicos da minha tabela com um checkbox em cada uma dela. A função seria clicar em vários checkbox para selecionar todos que eu quisesse apagar e enviar os formulário para outra página que tem o script que apagaria todas como: "DELETE * FROM tabela WHERE id = '"&Request.form("id")&"'"

Porém dá uma mensagem de que houve erro de sintaxe avisando que não poderia haver ","(vírgulas) entre os valores para a função sql.

Se alguém puder me ajudar....

Desde já obrigado.

. . . z e n !

SÃO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 06/05/2004 11:30 hs

mande um exemplo do comando sql...

Márcio Puntel
não registrado

ENUNCIADA !

Postada em 06/05/2004 13:43 hs

Vou te mandar toda página pois derepente pode ajudar mais:

<%
Dim rs__MMColParam
rs__MMColParam = "1"
If (Request.Form("id") <> "") Then
rs__MMColParam = Request.Form("id")
End If
%>
<%
Dim rs
Dim rs_numRows

Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_Detran_provas_adm_STRING
rs.Source = "DELETE * FROM questoes WHERE id = " + Replace(rs__MMColParam, "'", "''") + ""
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 3
rs.Open()

rs_numRows = 0
%>

Obrigado.

vilmarbr

SAO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 06/05/2004 14:58 hs

página 1:
<form name="frmExcluir" method="post" action="apagartudo.asp">
<input name="btnExcluir" type="image" onClick="javascript:return VerificarExcluir();" src="img/exclusao.gif" alt="Escolha algum(s) registro(s) a serem excluído(s) abaixo. Depois clique aqui.">
<%

Dim AtCod '»»var. do código a excluir.

While Not Rs.EOF
'»»Tratamento dos dados p/ apresentação.
ATCod = Eval(Rs("ATCod"))

<%
Rs.MoveNext
Wend

--------------------------------------------------------------

página 2:

<%
Dim SQL '»»Usada no acesso a BD.
Dim TotalGeral,DivididoGeral,I,ATCod '»»Usadas na instrução SQL.

'»»Recebe os valores de todos os checkboxes marcados, montando assim um array.
TotalGeral = Request("chkExcluir")
'»»INÍCIO: Consistência geral.
If TotalGeral = "" then
Response.Write "<script language='JavaScript'>alert('Escolha o(s) registro(s) a serem excluído(s).'); "
Response.Write "history.go(-1);</script>"
Response.End()
End If
'»»FIM: Consistência geral.

DivididoGeral = Split(TotalGeral, ",", -1, 1) 'esta função split divide uma string em várias partes criando um array
For I = 0 to ubound(DivididoGeral)
ATCod = ""
ATCod = DivididoGeral(I)
SQL = "Delete from HT_DBAU001_DAtiv where ATCod = " & ATCod
' Response.Write SQL & "<br>"
On Error Resume Next
Conexao.Execute(SQL) 'está mandado executar
Next
'Response.End()

Moleza heinnnn!

http://www.vilmarbro.com.br

Márcio Puntel
não registrado

Postada em 06/05/2004 17:42 hs

Valeu Vilmar,

vou dar uma tentada aqui mas acho que vai funcionar. Até tinha pensado em fazer um array mas não sabia como.

Muito obrigado.

Márcio Puntel
não registrado

Postada em 07/05/2004 17:19 hs

Vilmar,

desculpe te encomodar, mas é que eu aproveitei esse script que funcionou muito bem diga-se por passagem e usei em outra página de envio de dados para o banco, que funciona mais ou menos assim:

ao lado do checkbox, onde eu marco quais campos quero acrescentar um valor, tem um textfield que coloco um determinado valor (que tem que ser um número) para marcar quais que enviei.

Mas não consegui fazer funcionar desta forma. Se souber como fazer e puder me ajudar, ficarei muito grato denovo.

Abraço.

Página(s): 1/2 PRÓXIMA »

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR