Problemas Com Exclusão Do Bd.

[adriano182]

Galera, to com dificuldades de excluir dados de um bd.

o sistema esta no endereço: www.cubbos.com/marcaqui/site/asp/fexc_ag.asp

O que ocorre é que quando seleciono o usuario, da um erro. alterando de "usuario" para "codigo" no campo, o prog funciona..

o erro que dá, é:

Microsoft JET Database Engine erro '80040e07'

Tipo de dados imcompatível na expressão de critério.

/marcaqui/site/asp/exc_ag.asp, line 20

o codigo é:

fexc_ag.asp

.
.
.
   <%
    set conexao2=server.CreateObject("ADODB.connection")
    set rs2= server.createobject("ADODB.recordset")
    conexao2.open "provider=microsoft.jet.oledb.4.0;data source=" & Server.MapPath("db/agmedico.mdb")

	SQL2 = "Select * From pediatra Order By codigo"
	rs2.open SQL2,conexao2 %>
  
  Codigo a ser excluido:</strong></font> 
  <select name="usu" size="1">
    <% while not rs2.eof %>
      <option value="<%=rs2("usuario")%>"> <%= rs2("usuario")%></option>
   <% 
   rs2.movenext    
   wend
   %>
  </Select>
    <input name="excluiusuario" type="submit" value="Excluir">
  </p>
  </form>
.
.
.

exc_ag.asp

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

' mapeia o caminho 
x = Server.MapPath("db/agmedico.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 
set rs= server.createobject("ADODB.recordset")
Conexao.Open liga
' String SQL para inserir os dados na tabela chamada cadastro
strSQL = "DELETE * from pediatra WHERE usuario ="&usu&" "

' executa a string

if usu <> "" then
  while not rs.eof
    set apaga = Conexao.execute(strSQL)
    rs.movenext
  wend 
  response.redirect("fexc_ag.asp")
else
response.redirect("fexc_ag.asp")
end if


' fecha a conexão
Conexao.close

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

[adriano182]

O admi pode fechar esse tópico, postei duas vezes sem querer!