Ir para conteúdo

POWERED BY:

Arquivado

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

mineirin

[Resolvido] Função Excluir

Por , em ASP Clássico

Recommended Posts

mineirin    0

mineirin
Postado

Olá pessoas , boa noite a todos.

 

Bom galera to fazendo um sistema bem simples na empresa q trabalho , é uma agenda de utilização do carro da empresa, é um sistema de cadastrar e consultar apenas , bem eu queria fazer uma função para excluir um registro( excluir oq já foi cadastrado ) , bom atras de pesquisa na net cheguei neste código :

 

ASP
<%

Option Explicit

Response.Expires = 0

Dim objConn, stringSQL, strConnection, array_id, i, sql_id, id,strDBPath

id = Request.QueryString("checkbox")

On error Resume Next

' Conectando com o banco de dados carro.mdb

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

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

strDBPath = Server.MapPath("dadosagenda_carro.mdb")

objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";"

 

        %>

<html>

<head>

<LINK REL=stylesheet HREF="liks_etc.css" TYPE="text/css">

<title>Tela de Exclusão</title>

</head>

<body bgcolor="#FFFFFF">

        <table width="100%" border="0" cellspacing="0" cellpadding="0">

          <tr>

                <td>

<%

                if err = 0 and id <> "" then

                        array_id = split(id,",")

                        For i=0 to ubound(array_id)

                                sql_id = sql_id & "carro.cod = " & Trim(array_id(i)) & " OR "

                                                                                                                 'campo texto, entao" & Trim(array_id(i)) & " OR "

                                                                                                                 'caso numerico '" & Trim(array_id(i)) & "' OR "

                        Next

                        sql_id = left(sql_id,(len(sql_id)-4))

                        stringSQL = "DELETE * FROM carro WHERE "&sql_id&""

                                                'objConn.Execute(stringSQL)

                        objConn.close

                        Set objConn = Nothing

                 

%>                       

                                  <table width="100%" border="0" cellspacing="2" cellpadding="2">

                                        <!--DWLayoutTable-->

                                        <tr align="center">

                                         <td width="30%" height="23" bgcolor="#FFFFC4">

                                                <div align="center"><font color="#000099"><b><font color="#0000FF" size="2" face="Verdana, Arial, Helvetica, sans-serif"><a href="principal.asp">Página Principal </a></font></b></font></div>                                  </td>

                                          <td width="516"> </td>

                                        </tr>

                                  </table>

                        <table border="0" width="100%" height="8" cellpadding="2" align="center">

                          <tr bgcolor="#0099FF">

                                <td colspan="7" height="1" align="center">

                                <font size="4" color="#FFFF00"><b><font face="Verdana, Arial, Helvetica, sans-serif">

                                <span style="background-color: #0099FF">Seus

                                  dados foram cancelados com sucesso!</span></font></b><span style="font-weight: 700; background-color: #0099FF">

                                </span></font> </td>

                          </tr>

                        </table>

                <%else%>

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

                <%End if%>

                </td>

          </tr>

        </table>

        </body>

        </html>

 

Roda trankilinho , não da nenhum erro !!!!!!

Só q tem um Problema , ele diz q apagou o registro e qnd vou verificar o registro continua lá, ou seja, não apaga nadinha.

 

Oq pode estar dando de errado no código ?????

 

Valeu ae pessoas !!!!

Compartilhar este post

Link para o post
Compartilhar em outros sites

Daw    0

Daw
Postado

A parte que executa a deleção está comentada.

 

Troque esta parte:

ASP
stringSQL = "DELETE * FROM carro WHERE "&sql_id&""

'objConn.Execute(stringSQL)

 

Por esta:

ASP
stringSQL = "DELETE FROM carro WHERE " & sql_id

objConn.Execute(stringSQL)

 

E diga-nos o que acontece.

[]tz ;)

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