Ir para conteúdo

POWERED BY:

Arquivado

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

ricardo coelho designer

-me! Deletar imagem do servidor e bd junto.

Por , em ASP Clássico

Recommended Posts

ricardo coelho designer    0

ricardo coelho designer
Postado

Boa Tarde Gente!!!Preciso muito da ajuda de vocês por favor!!!!Preciso deletar arquivo do servidor e estou com meu tempo estourado.Poderia me ajudar?.Bom o arquivo tenho os arquivos abaixo e não estou conseguindo entender pois da esse erro:Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)[Microsoft][Driver ODBC para Microsoft Access] Parâmetros insuficientes. Eram esperados 1./29082006/deletar/deletar_imagem_e_banco 3.asp, line 8Tipo de navegador: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1) Página: GET /29082006/deletar/deletar_imagem_e_banco 3.asp logo abaixo é o arquivo que estou usando.form_excluir.asp<%Option ExplicitResponse.Expires = 0Dim objConn, objRs, strQueryDim strConnection'Conectando com o banco de dados contato.mdbSet objConn = Server.CreateObject("ADODB.Connection")objConn.Open = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Inetpub\wwwroot\29082006\deletar\pratike.mdb;"'Seleciona da tabela contatostrQuery = "SELECT * FROM aloja"Set ObjRs = objConn.Execute(strQuery)%><html><LINK REL=stylesheet HREF="liks_etc.css" TYPE="text/css"><head><title>Visão Geral - ::ASPBRASIL::</title></head><body bgcolor="#FFFFFF"><div style="width: 756; height: 119"> </td></tr><tr><td colspan="3"><form method="GET" action="deletar_imagem_e_banco 3.asp"><table width="736" border="0" cellspacing="0" cellpadding="0" height="1"><tr><td height="1" align="center" width="734"><table border="0" height="63" cellpadding="2" width="327"><tr bgcolor="#0099FF"><td width="110" height="1" align="center"> <font size="1" color="FFFFFF"><b><font face="Verdana">Imagem:</font></b></font></td><td width="44" height="1" align="center"><font size="1" color="FFFFFF"><input type="submit" name="Submit" value="Excluir"></font> </td></tr><%While Not objRS.EOF %><tr bgcolor="#FF9900"><td width="110" height="1" align="center"><div align="left"><font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000"></font><font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000"><img src="<%Response.write objRS("Imagem")%>" width="109" height="150" border="0"></font></b></font></b></font></div></td><td width="44" height="1" align="center"><div align="center"><font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000"><input type="checkbox" name="checkbox" value="<%=objRS(0)%>"></font> </b></font></div></td></tr><% 'Movendo para o proximo registroobjRS.MoveNextWend 'Fechando as conexõesobjRs.closeobjConn.closeSet objRs = NothingSet objConn = Nothing%></table></td></tr></table></form></td></tr></table></td></tr></table></div></body></html>deletar_imagem_e_banco 3.asp<%url_conexao = Server.MapPath("pratike.mdb")set rs = Server.CreateObject("ADODB.Connection")set Conn = Server.CreateObject("ADODB.Connection")Conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao id = Request.Querystring("checkbox")Set rs = Conn.Execute("SELECT *FROM aloja WHERE id="&id)Set objFSO = Server.CreateObject("Scripting.FileSystemObject") ' objeto FSO para deletararqDel = "C:\Inetpub\wwwroot\29082006\deletar\"&rs("imagem")Response.Write(arqDel)Response.EndobjFSO.DeleteFile arqDel, TrueConn.Execute("DELETE *FROM aloja WHERE id="&id) 'Exclui do DBSet objFSO = Nothing 'Fecha ObjetoSet rs = Nothing If err = 0 ThenResponse.Write("excluido com sucesso")ElseResponse.Write("erro.asp")Response.Write(err.descritption)End If %>no bd tenho autonumeroimagemtextoPoderia me ajudar????

Compartilhar este post

Link para o post
Compartilhar em outros sites

williamds    0

williamds
Postado

Esse codigo verifica se a imagem existe e existindo ele a apaga

para usa-lo é simples, antes de apagar uma imagem você guarda em uma

variavel o seu nome, depois pode apagar o registro e então usa o nome da imagem

no codigo abaixo

exemplo:

 

foto = rstConsulta("CadImagem")

.

.

.

.

'Apaga o registro com o delete

.

.

.

 

' Depois usa a variavel foto para apagar o arquivo da pasta

 

Set imagem = CreateObject("Scripting.FileSystemObject")

If (imagem.FileExists(Server.MapPath("/imagens/"&foto))) Then

imagem.DeleteFile(Server.MapPath("/imagens/"& foto))

end if

Compartilhar este post

Link para o post
Compartilhar em outros sites

ricardo coelho designer    0

ricardo coelho designer
Postado

Mas o problema é que está dando esse erro...

 

Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)

[Microsoft][Driver ODBC para Microsoft Access] Parâmetros insuficientes. Eram esperados 1.

/29082006/deletar/deletar_imagem_e_banco 3.asp, line 8

 

e não consigo resolver... :(

 

Esse codigo verifica se a imagem existe e existindo ele a apaga

para usa-lo é simples, antes de apagar uma imagem você guarda em uma

variavel o seu nome, depois pode apagar o registro e então usa o nome da imagem

no codigo abaixo

exemplo:

 

foto = rstConsulta("CadImagem")

.

.

.

.

'Apaga o registro com o delete

.

.

.

 

' Depois usa a variavel foto para apagar o arquivo da pasta

 

Set imagem = CreateObject("Scripting.FileSystemObject")

If (imagem.FileExists(Server.MapPath("/imagens/"&foto))) Then

imagem.DeleteFile(Server.MapPath("/imagens/"& foto))

end if

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