Tem Jeito?

[crucifier]

então...to fazenu um sistema de galeria de fotos

e tem as seguintes tabelas no banco de dados mysql:

"categoria"

onde contém os seguintes campos:

id_categoria

nome

e também tem a tabela fotos que contém os seguintes campos:

id

id_categoria

foto

clicks

miniatura

onde, id_categoria = o id_categoria da tabela categoria

bom enfim...

eu queria fazer tipw

a pessoa vai lá na administração d categorias e exclui a categoria desejada...daih então todas os registros que fossem dakela categoria fossem excluidos também...

só que eu não sei fazer isso=]

sera que alguém poderia dar-me uma ajudinha?

daih tipw...mais pra frente assim que eu conseguir isso...poderiam dar uma ajudinha pra pessoa pode escolhe se as fotos da tal categoria vão ser excluidas ou movidas para tal categoria(daih o cara escolhe para qual categoria seria movido as fotos....

mas por enquanto me deem uma ajuda sobre o negocio de exclui todos os registros da seguinte categoria

agradeço desde já=]

[.Andreia.]

A idéia é você pegar a ID_Categoria e fazer a rotina de Delete onde a id_categoria for igual. Entendeu?

mais ou menos assim:

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

sql = "delete from TABELA where id_categoria = " & id_categoria
%>

é essa sua dúvida?

[crucifier]

tipw...no meu codigo ta assim:

Set rsdelete = Server.CreateObject("ADODB.Recordset")
sqldel = "delete * from fotos where id_categoria = " & request.form("id_catedele")
rsdelete.Open sqldel, strCon, 3, 3
set rsdelete = nothing

e la no botao de excluir tem um hidden junto que ta assim:

Set rsdele = Server.CreateObject("ADODB.Recordset")
sqldelrs = "select * from fotos"
rsdele.Open sqldelrs, strCon, 3, 3
  id_catedele = rsdele("id_categoria")
  response.write "<INPUT type=hidden name=""id_catedele"" value=" & id_catedele & ">"

só que ta danu esse erro:

Microsoft OLE DB Provider for ODBC Drivers error '80040e21'

ODBC driver does not support the requested properties.

/admin/consulta_categoria.asp, line 123

seis tem ideia do que ta acontecendo o.O

[crucifier]

alguém sabe?

[fercosmig]

faz como a andreia falou, mas usa 2 sql's

idcategoria=Request.Form("idcategoria")

sql_cat="delete from categoria where id_categoria=" & idcategoria

sql_fot="delete from fotos where id_categoria=" & idcategoria

qqer coisa posta ae

abraços

[crucifier]

cara...to fazenu um teste...ta pra por enquanto só deletar a categoria da tabela categoria...e mesmo assim não ta danu certo...olha aih...to postanu meu codigo inteiro:

<% @ LANGUAGE="VBSCRIPT" %>
<!--#include file="conexao.asp"-->
  <%Response.Expiresabsolute = Now() - 2
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "no-cache"

id_categoria = request.querystring("id_categoria")
sqlstmt = "delete * from categoria where id_categoria="& id_categoria
Set objRs = Server.CreateObject("ADODB.Recordset")
objRs.Open sqlstmt, strCon, 3, 3

response.redirect "consulta_categoria2.asp"

else
response.redirect "login.asp"
end if%>

e aparece esse erro:

Microsoft OLE DB Provider for ODBC Drivers error '80040e21' ODBC driver does not support the requested properties. /admin/delete_categoria.asp, line 11

linha 11 é essa:

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

e não sei porq não ta danu certo...ta td certo ao meu ver...=\\..qual o erro?

[crucifier]

cara...to fazenu um teste...ta pra por enquanto só deletar a categoria da tabela categoria...e mesmo assim não ta danu certo...olha aih...to postanu meu codigo inteiro:

<% @ LANGUAGE="VBSCRIPT" %>
<!--#include file="conexao.asp"-->
  <%Response.Expiresabsolute = Now() - 2
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "no-cache"

id_categoria = request.querystring("id_categoria")
sqlstmt = "delete * from categoria where id_categoria="& id_categoria
Set objRs = Server.CreateObject("ADODB.Recordset")
objRs.Open sqlstmt, strCon, 3, 3

response.redirect "consulta_categoria2.asp"

else
response.redirect "login.asp"
end if%>

e aparece esse erro:

Microsoft OLE DB Provider for ODBC Drivers error '80040e21' ODBC driver does not support the requested properties. /admin/delete_categoria.asp, line 11

linha 11 é essa:

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

e não sei porq não ta danu certo...ta td certo ao meu ver...=\\..qual o erro?

[cyberalexxx]

Olha o Flood!!!

Calma que a galera quando puder ajuda.

tenta isso:

<% @ LANGUAGE="VBSCRIPT" %>

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

<%Response.Expiresabsolute = Now() - 2

Response.AddHeader "pragma","no-cache"

Response.AddHeader "cache-control","private"

Response.CacheControl = "no-cache"

id_categoria = request.querystring("id_categoria")

sqlstmt = "delete * from categoria where id_categoria="& id_categoria

strcon.execute(sqlstmt)

response.redirect "consulta_categoria2.asp"

else

response.redirect "login.asp"

end if%>

[crucifier]

vixi cara...não to entendendo o erro...codigo:

<% @ LANGUAGE="VBSCRIPT" %>
<%
id_categoria = request.querystring("id_categoria")

strCon = "Driver=MySQL ODBC 3.51 Driver; Server=200.192.240.24; Uid=foxplay; Pwd=senha; Database=foxplay"

sqlstmt = "delete * from categoria where id_categoria="& id_categoria

strCon.execute(sqlstmt)

response.redirect "consulta_categoria2.asp"
%>

ta danu esse erro:

Microsoft VBScript runtime error '800a01a8'

Object required: 'strCon'

/admin/delete_categoria.asp, line 9

mas ta lá o strcon...como ele não ta achanu...p****..que merda

[cyberalexxx]

abre a conexão antes:

<% @ LANGUAGE="VBSCRIPT" %>
<%
id_categoria = request.querystring("id_categoria")

strCon = "Driver=MySQL ODBC 3.51 Driver; Server=200.192.240.24; Uid=foxplay; Pwd=senha; Database=foxplay"

sqlstmt = "delete * from categoria where id_categoria="& id_categoria

StrCon.Open
StrCon.execute(sqlstmt)

response.redirect "consulta_categoria2.asp"
%>

[cyberalexxx]

cade o objeto ADO???

[avontzdnb]

mesma duvida bro..

ConnString="Provider=Microsoft.Jet.OLEDB.4.0; Data Source=e:\home\zxs\dados\dados.mdb;"

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

Conexao.Open ConnString

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

codigo = request.form("msg")

sql = "delete * from Principal where codigo= " & codigo

rs.Open sql, Conexao

[Guest Guest]

o.O

como assim objeto ado

[cyberalexxx]

o.O

como assim objeto ado

Isso é um objeto ADO: Set Conexao = Server.CreateObject("ADODB.Connection")

qual o nome da conexão no seu script?? não encontrei!!

[crucifier]

foda cara...eu coloquei aki e nem deu nada:

<% @ LANGUAGE="VBSCRIPT" %>
<%
id_categoria = request.querystring("id_categoria")

strCon = "Driver=MySQL ODBC 3.51 Driver; Server=200.192.240.24; Uid=foxplay; Pwd=senha; Database=foxplay"

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

sqlstmt = "delete * from categoria where id_categoria="& id_categoria

strCon.execute(sqlstmt)

response.redirect "consulta_categoria2.asp"
%>

apareceu assim:

ADODB.Connection error '800a0e78'

Operation is not allowed when the object is closed.

/admin/delete_categoria.asp, line 12

[cyberalexxx]

<% @ LANGUAGE="VBSCRIPT" %>

<%

id_categoria = request.querystring("id_categoria")

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

strcon.open "Driver=MySQL ODBC 3.51 Driver; Server=200.192.240.24; Uid=foxplay; Pwd=senha; Database=foxplay"

strcon.open

sqlstmt = "delete * from categoria where id_categoria="& id_categoria

strCon.execute(sqlstmt)

response.redirect "consulta_categoria2.asp"

%>

[crucifier]

cara eu sei que eu já to enchenu o saco...pode fala.husehusheusheuh....mas continua dando erro

ADODB.Connection error '800a0e79'

Operation is not allowed when the object is open.

/admin/delete_categoria.asp, line 8

o codigo é exatamente o que voce me passou

poderia ser erro no tipo de campo do mysql?

nenhum codigo ta dando certo!

[cyberalexxx]

poste o código todo pra genter ver!!

[crucifier]

cara mas esse é o codigo todo...negocio é o seguinte

essa pagina aih que noi tamo zicado é a pagina delete_categoria.asp

daih a pessoa ta na pagina consulta_categoria2.asp, daih ela clica em excluir e vai pra pagina delete_categoria.asp, deleta, e volta para a pagina consulta_categoria2.asp....

enfim...a pagina delete_categoria.asp é aquele codigo que voce posto lá...td q tem nela é akilo...

se voce kizer eu posso postar o codigo da pagina consulta_categoria2.asp

[crucifier]

fui no forum do imasters e eles dero uma mao pra mim...deu certo!

codigo fiko assim:

<% @ LANGUAGE="VBSCRIPT" %>
<%
id_categoria = request.querystring("id_categoria")
Set strCon = Server.CreateObject("ADODB.Connection")
strcon.open "Driver=MySQL ODBC 3.51 Driver; Server=200.192.240.24; Uid=foxplay; Pwd=senha; Database=foxplay"

sqlstmt = "delete from categoria where id_categoria="& id_categoria

strCon.execute(sqlstmt)

sql= "delete from fotos where id_categoria="& id_categoria

strCon.execute(sql)

response.redirect "consulta_categoria2.asp"
%>

o erro era:

aquele strcon.open...que tinha 2 vezes...

e no delete e no update não da pra por aquele "*" que é pra seleciona todos...daih dexa vazio no lugar dele...daih deu certinho

mas qm monto o codigo principal foi nosso amigo cyberalexxx....valewzaum cara....brigadao mesmo!precisa de alguma coisa que não seja dinhero: neto_crucifier@hotmail.com!

e valeu todos que ajudaro aih também!

[avontzdnb]

aqui não foi ainda..rs vo testar a noite