Ver Mensaje Individual
  #1 (permalink)  
Antiguo 17/11/2010, 11:30
igonfil
 
Fecha de Ingreso: junio-2008
Mensajes: 250
Antigüedad: 18 años, 5 meses
Puntos: 1
problemas con varios delete

Hola. Tengo un problemita con una aplicación. Tengo una serie de mensajes (especie correo yahoo) y al lado de cada mensaje un checkbox, selecciono varios checkbox(mensajes) pulso un botón eliminar y estos se eliminan (esto es correcto cuando está en una sola tabla) el problema biene cuando tengo que eliminar datos de dos tablas. me da el siguiente error:
¿cómo podría solucionar este problema? muchas gracias
Cita:
Microsoft OLE DB Provider for ODBC Drivers error '80040e07'

[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.

/eliminar-varios-elementos/eliminar.asp, line 27

El código que tengo es:

Código PHP:
<%            
    
'idblog=request.QueryString("idblog")            
    '
set Ob_conn1=server.createobject("ADODB.connection")
    
'Ob_conn1.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("../../Data/bd.mdb") & ";"
    '
set rs1=ob_conn1.Execute("delete from T_blog where c_idblog="& idblog &"")                
    
'response.Redirect("usuario-mensajes.asp?idusuario='"& usuario &"'")
    Dim strDeleteList
'
esta linea recupera los checkbox marcados en el formulario
strDeleteList 
= Request("borrar")


if 
strDeleteList = "" then
Response
.Write "No se ha seleccionado ningún mensaje"
Else
Dim Ob_conn1, SQL2, rs2, SQL3
set Ob_conn1
=server.createobject("ADODB.connection")
    
Ob_conn1.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("../../Data/bd-eliminar.mdb") & ";"
SQL2 = "DELETE FROM T_mensajes " & "WHERE c_idmensaje IN (" & strDeleteList & ")"

Ob_conn1.Execute SQL2
SQL3 
= "DELETE FROM T_mensajesdestino " & "WHERE c_idmensaje IN (" & strDeleteList & ")"

Ob_conn1.Execute SQL3
'Clean up
Ob_conn1.Close
Set Ob_conn1 = Nothing


'
Display to the user that the product have been deleted.
Response.Write Request("Delete").Count & " entries were deleted..."

End If        
response.Redirect("usuario-mensajes.asp")
%>