Ta apagando tudo

[fabiosc80 0]

Fiz um código que deleta o arquivo de servidor, porem agora tenho que deltar tb a linha do banco de dados que registra ele.

 

Consegui tambem porem ta apagando tudo no banco que tem o mesmo código. E nao só a linha do arquivo.

 

oque faço?

 

Vejam o código:

 

ASP [/tr][tr] <!--#include file="conexao.asp"-->

<%Session.LCID = 1046%>

 

<%

dim codigo1,DEl1,TB,codigo

codigo = request.querystring("cod")

codigo1 = request.querystring("codigo")

Dim BC : AbreBanco

 

'declara o Objeto FSO

Set objFS = Server.CreateObject("Scripting.FileSystemObject")

'Use Request.QueryString para pegar o nome do arquivo e armazene em uma variável.

'Em Arquivo a deletar você coloca somente o Nome do Arquivo...

ArquivoAdeletar = Request.querystring("cod")

'Verifica se o Arquivo Existe - Isso para evitar problemas com atualização

If objFS.FileExists( Server.MapPath("Upload/"&ArquivoAdeletar) ) Then

'Deleta o Arquivo

objFS.DeleteFile( Server.MapPath("Upload/"&ArquivoAdeletar) )

'Fecha o obj FSO

Set objFS = Nothing

'Comunica a Exclusão

Response.Write "O arquivo foi excluido com sucesso"

Del1 = "delete * FROM arqui WHERE MemoCod = " & codigo

Set TB = BC.Execute(Del1)

'response.write codigo1

'response.end

Response.Redirect "admf3.asp?cod="&codigo1

 

 

Else

'Comunica a Não Exclusão pois poderia ja ter sido excluido.

Response.Write "O arquivo não pode ser excluido, pois não foi encontrado"

Del1 = "delete * FROM arqui WHERE MemoCod = " & codigo

Set TB = BC.Execute(Del1)

'response.write codigo1

'response.end

Response.Redirect "admf3.asp?cod="&codigo1

 

End If

 

%>

[/tr]

[AEM 0]

Oq você tem gravado no banco que quer excluir exatamente... é so o codigo... ??

[fabiosc80 0]

Oq você tem gravado no banco que quer excluir exatamente... é so o codigo... ??

nao , quero excluir a linha que tava com o registro do arquivosó uma linha

[AEM 0]

Del1 = "delete * FROM arqui WHERE MemoCod = " & codigo

Set TB = BC.Execute(Del1)

cara.. é só a linha referente ao código....

 

por exemlo

 

Banco de Dados...

Tabela Arqui..

 

MemoCod | Caminho

00001 | E:\home\arquivo1.txt

00001 | E:\home\arquivo2.txt

______________________________

 

A arquitetura da tabela mostra dois arquivos com o mesmo código...

se você colocar Delete * FROM Arqui WHERE MemoCod = 00001

ele vai apagar tudo que contem o código 00001 na coluna memo código independente do arquivo ser diferente...

 

Para apagar o código referente ao arquivo você tem que usar...

ASP [/tr][tr]DELETE * FROM ARQUI WHERE MEMOCOD = 00001 AND CAMINHO = 'E:\HOME\ARQUIVO1.TXT'[/tr]

ASSIM ELE APAGA SÓ A PRIMEIRA LINHA DO EXEMPLO ACIMA....

foi oq eu entendi que você quer fazer... se não for isso postae...beleza

[fabiosc80 0]

Del1 = "delete * FROM arqui WHERE MemoCod = " & codigo

Set TB = BC.Execute(Del1)

cara.. é só a linha referente ao código....

 

por exemlo

 

Banco de Dados...

Tabela Arqui..

 

MemoCod | Caminho

00001 | E:\home\arquivo1.txt

00001 | E:\home\arquivo2.txt

______________________________

 

A arquitetura da tabela mostra dois arquivos com o mesmo código...

se você colocar Delete * FROM Arqui WHERE MemoCod = 00001

ele vai apagar tudo que contem o código 00001 na coluna memo código independente do arquivo ser diferente...

 

Para apagar o código referente ao arquivo você tem que usar...

ASP [/tr][tr]DELETE * FROM ARQUI WHERE MEMOCOD = 00001 AND CAMINHO = 'E:\HOME\ARQUIVO1.TXT'[/tr]

ASSIM ELE APAGA SÓ A PRIMEIRA LINHA DO EXEMPLO ACIMA....

foi oq eu entendi que você quer fazer... se não for isso postae...beleza

Consegui pessoal era erro meu aqui.

Apenas mudei i nome do campo que tava errado.

[tr374 0]

fabiosc80 > eu uso o DELETE DISTINCTROW

 

deletar = "DELETE DISTINCTROW aqui,você,coloca,as,colunas,da,tabela FROM sua_tabela WHERE codigo = " & (codigo) & ""

DB.Execute(deletar)

 

 

[editado] minha resposta está atrasada....sorry[/editado]