Deletando Dados De Um Banco De Dados

[adriano182]

Ola pessoal, estou tentando deletar arquivos de um banco de dados. Tentei criar um script bem simples, mas esta dando erro.

o script é:

 
                  <%
cod = Request.form("cod") 

' mapeia o caminho 
x = Server.MapPath("bd/medico.mdb")

' cria o objeto Conexão 
Set Conexao = Server.CreateObject("ADODB.Connection")

' concatena a string do driver com o caminho 
liga = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& x 
'abre a conexão 
Conexao.Open liga
' String SQL para inserir os dados na tabela chamada cadastro
strSQL = "DELETE * from medico WHERE codigo = cod"


' executa a string



if cod <> "" then
  Conexao.execute strSQL
else
 response.redirect("exc_med.asp")
end if


' fecha a conexão
Conexao.close

' destrói o objeto Conexao para liberar memória
Set Conexao = nothing %> 

alguém pode me ajudar a descobrir o que está errado??

[dark0]

olhando por cima assim.. eu alterei.. testa ae

<%
cod = Request.form("cod") 

' mapeia o caminho 
x = Server.MapPath("bd/medico.mdb")

' cria o objeto Conexão 
Set Conexao = Server.CreateObject("ADODB.Connection")

' concatena a string do driver com o caminho 
liga = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& x 
'abre a conexão 
Conexao.Open liga
' String SQL para inserir os dados na tabela chamada cadastro
strSQL = "DELETE * from medico WHERE codigo = cod"

' executa a string

if cod <> "" then
set rs = Conexao.execute(strSQL)
else
response.redirect("exc_med.asp")
end if


' fecha a conexão
Conexao.close

' destrói o objeto Conexao para liberar memória
Set Conexao = nothing %> 

eu alterei no seu if que executa a string..

mas não testei..

[Reginaldo ASP]

você precisa concatenar a variável cod na sua sql

"DELETE * from medico WHERE codigo ="&cod&" "

[adriano182]

Agora ta funcionando...

Muito obrigado!!!