como excluir varios registros de um banco access

[ODIR 0]

estou com uma duvida como faco para excluir varios registros de uma tabela? estou tentando da seguinte maneira

 

ASP

autonum = Request.Form("num")

 

stringSQL = "DELETE From pg Where despesa in ("&autonum&");"

objConn.Execute(stringSQL)

 

so que aparece esta mensagem

 

 

Microsoft OLE DB Provider for ODBC Drivers erro '80040e07'

 

[Microsoft][Driver ODBC para Microsoft Access] Tipo de dados imcompatível na expressão de critério.

 

/images/cache/temp/10200430/cp/altera_dados.asp, line 160

 

oqe devo fazer

[Mário Monteiro 179]

qual o tipo de dados do campo? o que tem neste autonum?

[Custellinha 0]

posta seu código para que possamos te ajudar!

[mkboy 1]

se o campo in nao for numerico use ' aspas simples

[Mário Monteiro 179]

por isso é importante saber o tipo de dados e o que tem na variavel

[ODIR 0]

o tipo de dados é numerico, mas nao tem nenhuma formatacao ex. 80

 

<!-- #include file=conect_forum.asp --><!-- #include file=config.asp --><%'Grava data de acessoresponse.cookies("forum")("data") = now()response.cookies("forum").expires = date() + 365'Verifica a data da última visitaif request.cookies("forum")("data") = "" then	ultimavisita = "-"else	ultimavisita = request.cookies("forum")("data")end if%><%'Não deixa informações no CacheResponse.Expires = 0'Declaração das variáveisDim objConn, objRs, strQuery, stringSQL, strConnection, autonum, num, codgrupo, D1, grupo, data, cfop, nota, codfornecedor, razao, fantasia, endereco, bairro, cep, cidade, est, nome, cnpj, telefone, celular, insc, fone, fax, email, site, prod, prod2, prod3, prod4, prod5, prod6, prod7, peso1, peso2, peso3, peso4, peso5, peso6, peso7, unidade1, unidade2, unidade3, unidade4, unidade5, unidade6, unidade7, quant1, quant2, quant3, quant4, quant5, quant6, quant7, valor1, valor2, valor3, valor4, valor5, valor6, valor7, total1, total2, total3, total4, total5, total6, total7, icms1, icms2, icms3, icms4, icms5, icms6, icms7, baseicms, valoricms, baseipi, valoripi, valorp, valorn, codmot, mot, valoru, totalfrete, codcomprador, comprador, percent, totalcomissao, codtrans, trans, frete, placa1, placa2, endtrans, cidtrans, esttrans, cnpjtrans, insctrans, data1, data2, data3, data4, data5, data6, data7, data8, data9, valorp1, valorp2, valorp3, valorp4, valorp5, valorp6, valorp7, valorp8, valorp9, diferenca, comentario, descricao1, descricao2, descricao3, descricao4, descricao5, descricao6, descricao7'Atrubuição dos valores as respectivas variáveisnome = Request.Form("nome")telefone = Request.Form("telefone")email = Request.Form("email")grupo = Request.Form("grupo")comentario = Request.Form("comentario")fantasia = Request.Form("fantasia")razao = Request.Form("razao")cidade = Request.Form("cidade")est = Request.Form("est")bairro = Request.Form("bairro")cep = Request.Form("cep")fone = Request.Form("fone")celular = Request.Form("celular")fax = Request.Form("fax")cnpj = Request.Form("cnpj")insc = Request.Form("insc")site = Request.Form("site")endereco = Request.Form("endereco")codgrupo = Request.Form("codgrupo")data = Request.Form("data")cfop = Request.Form("cfop")nota = Request.Form("nota")codfornecedor = Request.Form("codfornecedor")prod1 = Request.Form("prod")prod2 = Request.Form("prod2")prod3 = Request.Form("prod3")prod4 = Request.Form("prod4")prod5 = Request.Form("prod5")prod6 = Request.Form("prod6")prod7 = Request.Form("prod7")peso1 = Request.Form("peso1")peso2 = Request.Form("peso2")peso3 = Request.Form("peso3")peso4 = Request.Form("peso4")peso5 = Request.Form("peso5")peso6 = Request.Form("peso6")peso7 = Request.Form("peso7")unidade1 = Request.Form("unidade1")unidade2 = Request.Form("unidade2")unidade3 = Request.Form("unidade3")unidade4 = Request.Form("unidade4")unidade5 = Request.Form("unidade5")unidade6 = Request.Form("unidade6")unidade7 = Request.Form("unidade7")quant1 = Request.Form("quant1")quant2 = Request.Form("quant2")quant3 = Request.Form("quant3")quant4 = Request.Form("quant4")quant5 = Request.Form("quant5")quant6 = Request.Form("quant6")quant7 = Request.Form("quant7")valor1 = Request.Form("valor1")valor2 = Request.Form("valor2")valor3 = Request.Form("valor3")valor4 = Request.Form("valor4")valor5 = Request.Form("valor5")valor6 = Request.Form("valor6")valor7 = Request.Form("valor7")total1 = Request.Form("total1")total2 = Request.Form("total2")total3 = Request.Form("total3")total4 = Request.Form("total4")total5 = Request.Form("total5")total6 = Request.Form("total6")total7 = Request.Form("total7")icms1 = Request.Form("icms1")icms2 = Request.Form("icms2")icms3 = Request.Form("icms3")icms4 = Request.Form("icms4")icms5 = Request.Form("icms5")icms6 = Request.Form("icms6")icms7 = Request.Form("icms7")baseicms = Request.Form("baseicms")valoricms = Request.Form("valoricms")baseipi = Request.Form("baseipi")valoripi = Request.Form("valoripi")valorp = Request.Form("valorp")valorn = Request.Form("valorn")codmot = Request.Form("codmot")mot = Request.Form("mot")valoru = Request.Form("valoru")totalfrete = Request.Form("totalfrete")codcomprador = Request.Form("codcomprador")comprador = Request.Form("comprador")percent = Request.Form("percent")totalcomissao = Request.Form("totalcomissao")codtrans = Request.Form("codtrans")trans = Request.Form("trans")frete = Request.Form("frete")placa1 = Request.Form("placa1")placa2 = Request.Form("placa2")endtrans = Request.Form("endtrans")cidtrans = Request.Form("cidtrans")esttrans = Request.Form("esttrans")cnpjtrans = Request.Form("cnpjtrans")insctrans = Request.Form("insctrans")data1 = Request.Form("data1")data2 = Request.Form("data2")data3 = Request.Form("data3")data4 = Request.Form("data4")data5 = Request.Form("data5")data6 = Request.Form("data6")data7 = Request.Form("data7")data8 = Request.Form("data8")data9 = Request.Form("data9")valorp1 = Request.Form("valorp1")valorp2 = Request.Form("valorp2")valorp3 = Request.Form("valorp3")valorp4 = Request.Form("valorp4")valorp5 = Request.Form("valorp5")valorp6 = Request.Form("valorp6")valorp7 = Request.Form("valorp7")valorp8 = Request.Form("valorp8")valorp9 = Request.Form("valorp9")diferenca = Request.Form("diferenca")descricao1 = Request.Form("descricao1")descricao2 = Request.Form("descricao2")descricao3 = Request.Form("descricao3")descricao4 = Request.Form("descricao4")descricao5 = Request.Form("descricao5")descricao6 = Request.Form("descricao6")descricao7 = Request.Form("descricao7")autonum = Request.Form("num")D1 = Request.Form("D1")if D1 = "SALVAR" then 'Cria o objeto RecordSet e atribui a variável Set objConn =  Server.CreateObject("ADODB.Connection")'Abre a conexão com o banco de dados utilizando o Drive {Microsoft Access...'(para utilizar outro, ex: Paradox é só substituir o Drive pelo do Paradox)'(*.mdb) indica que o arquivo utiliza extensão mdbobjConn.Open "DBQ=" & "d:\web\localuser\arrozvivamaria\banco\contato.mdb" & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"		stringSQL = "DELETE From pg Where despesa in ("&autonum&");"			objConn.Execute(stringSQL)			Response.Write(strQuery) : Response.End()strQuery = "UPDATE cp SET nome = '"&nome&"', telefone = '"&telefone&"', email = '"&email&"', grupo = '"&grupo&"', comentario = '"&comentario&"', fantasia = '"&fantasia&"', razao = '"&razao&"', cidade = '"&cidade&"', est = '"&est&"', bairro = '"&bairro&"', cep = '"&cep&"', fone = '"&fone&"', celular = '"&celular&"', fax = '"&fax&"', cnpj = '"&cnpj&"', insc = '"&insc&"', site = '"&site&"', endereco = '"&endereco&"', codgrupo = '"&codgrupo&"', data = '"&data&"', cfop = '"&cfop&"', nota = '"&nota&"', codfornecedor = '"&codfornecedor&"', prod1 = '"&prod1&"', prod2 = '"&prod2&"', prod3 = '"&prod3&"', prod4 = '"&prod4&"', prod5 = '"&prod5&"', prod6 = '"&prod6&"', prod7 = '"&prod7&"', peso1 = '"&peso1&"', peso2 = '"&peso2&"', peso3 = '"&peso3&"', peso4 = '"&peso4&"', peso5 = '"&peso5&"', peso6 = '"&peso6&"', peso7 = '"&peso7&"', unidade1 = '"&unidade1&"', unidade2 = '"&unidade2&"', unidade3 = '"&unidade3&"', unidade4 = '"&unidade4&"', unidade5 = '"&unidade5&"', unidade6 = '"&unidade6&"', unidade7 = '"&unidade7&"', quant1 = '"&quant1&"', quant2 = '"&quant2&"', quant3 = '"&quant3&"', quant4 = '"&quant4&"', quant5 = '"&quant5&"', quant6 = '"&quant6&"', quant7 = '"&quant7&"', valor1 = '"&valor1&"', valor2 = '"&valor2&"', valor3 = '"&valor3&"', valor4 = '"&valor4&"', valor5 = '"&valor5&"', valor6 = '"&valor6&"', valor7 = '"&valor7&"', total1 = '"&total1&"', total2 = '"&total2&"', total3 = '"&total3&"', total4 = '"&total4&"', total5 = '"&total5&"', total6 = '"&total6&"', total7 = '"&total7&"', icms1 = '"&icms1&"', icms2 = '"&icms2&"', icms3 = '"&icms3&"', icms4 = '"&icms4&"', icms5 = '"&icms5&"', icms6 = '"&icms6&"', icms7 = '"&icms7&"', baseicms = '"&baseicms&"', valoricms = '"&valoricms&"', baseipi = '"&baseipi&"', valoripi = '"&valoripi&"',  valorp = '"&valorp&"', valorn = '"&valorn&"', codmot = '"&codmot&"', mot = '"&mot&"', valoru = '"&valoru&"', totalfrete = '"&totalfrete&"', codcomprador = '"&codcomprador&"', comprador = '"&comprador&"', percentual = '"&percent&"', totalcomissao = '"&totalcomissao&"', codtrans = '"&codtrans&"', trans = '"&trans&"', frete = '"&frete&"', placa1 = '"&placa1&"', placa2 = '"&placa2&"', endtrans = '"&endtrans&"', cidtrans = '"&cidtrans&"', esttrans = '"&esttrans&"', cnpjtrans = '"&cnpjtrans&"', insctrans = '"&insctrans&"', data1 = '"&data1&"', data2 = '"&data2&"', data3 = '"&data3&"', data4 = '"&data4&"', data5 = '"&data5&"', data6 = '"&data6&"', data7 = '"&data7&"', data8 = '"&data8&"', data9 = '"&data9&"', valorp1 = '"&valorp1&"', valorp2 = '"&valorp2&"', valorp3 = '"&valorp3&"', valorp4 = '"&valorp4&"', valorp5 = '"&valorp5&"', valorp6 = '"&valorp6&"', valorp7 = '"&valorp7&"', valorp8 = '"&valorp8&"', valorp9 = '"&valorp9&"', diferenca = '"&diferenca&"', descricao1 = '"&descricao1&"', descricao2 = '"&descricao2&"', descricao3 = '"&descricao3&"', descricao4 = '"&descricao4&"', descricao5 = '"&descricao5&"', descricao6 = '"&descricao6&"', descricao7 = '"&descricao7&"' WHERE autonum ="&autonum'Response.Write(strQuery) : Response.End()'Caso ocorra um erro esta função de erro será chamadaOn error Resume Next'Executaa inserção no Banco de Dados Set ObjRs = objConn.Execute(strQuery)'Fecha o Objeto de ConexãoobjConn.close'"APAGA" qualquer instancia que possa ter no objeto objRs e objConnSet objRs = NothingSet objConn = Nothing if err = 0 Then	'Redireciona o usuário caso não tenha ocorrido erro na transação	response.redirect "sucesso.asp"end ifelseresponse.redirect "form_altera0.asp?codgrupo="&codgrupo&"&forn="&codfornecedor&"&prod1="&prod1&"&prod2="&prod2&"&prod3="&prod3&"&prod4="&prod4&"&prod5="&prod5&"&prod6="&prod6&"&prod7="&prod7&"&codmot="&codmot&"&comis="&codcomprador&"&trans="&codtrans&"&quant1="&quant1&"&quant2="&quant2&"&quant3="&quant3&"&quant4="&quant4&"&quant5="&quant5&"&quant6="&quant6&"&quant7="&quant7&"&valor1="&valor1&"&valor2="&valor2&"&valor3="&valor3&"&valor4="&valor4&"&valor5="&valor5&"&valor6="&valor6&"&valor7="&valor7&"&total1="&total1&"&total2="&total2&"&total3="&total3&"&total4="&total4&"&total5="&total5&"&total6="&total6&"&total7="&total7&"&icms1="&icms1&"&icms2="&icms2&"&icms3="&icms3&"&icms4="&icms4&"&icms5="&icms5&"&icms6="&icms6&"&icms7="&icms7&"&baseicms="&baseicms&"&valoricms="&valoricms&"&baseipi="&baseipi&"&valoripi="&valoripi&"&valorp="&valorp&"&valorn="&valorn&"&valoru="&valoru&"&totalfrete="&totalfrete&"&percent="&percent&"&totalcomissao="&totalcomissao&"&frete="&frete&"&data1="&data1&"&data2="&data2&"&data3="&data3&"&data4="&data4&"&data5="&data5&"&data6="&data6&"&data7="&data7&"&data8="&data8&"&data9="&data9&"&valorp1="&valorp1&"&valorp2="&valorp2&"&valorp3="&valorp3&"&valorp4="&valorp4&"&valorp5="&valorp5&"&valorp6="&valorp6&"&valorp7="&valorp7&"&valorp8="&valorp8&"&valorp9="&valorp9&"&diferenca="&diferenca&"&comentario="&comentario&"&peso1="&peso1&"&peso2="&peso2&"&peso3="&peso3&"&peso4="&peso4&"&peso5="&peso5&"&peso6="&peso6&"&peso7="&peso7&"&cfop="&cfop&"&data="&data&"&nota="&nota&"&id="&autonum&""end if %>

 

valeu

[Mário Monteiro 179]

se é numerico ta certo o tratamento do tipo de dadosagora escreva o valor de autonum e poste aqui

[ODIR 0]

agora me ocorreu uma coisa como eu estou testando o codigo tenho colocado valores aleatorios que nem sempre se referem a valor existente no banco sera que isso tem a ver, eu vou testar enquanto isso mas o que seria correto fazer para evitar este erro acabei de testar mas mesmo com valor existente acontece isso o 96 é um valor real no banco eu uso valor tipo = 80, 96 154 valeu

[Mário Monteiro 179]

Assim

80, 96 154

?

[ODIR 0]

esses sao exemplos de dados, mas é usado um de cada vez por exemplo somente 96eu tentei da seguinte maneirae apareceu um erro mais claro stringSQL = "DELETE pg Where despesa = "&autonum&"" objConn.Execute(stringSQL)Microsoft OLE DB Provider for ODBC Drivers erro '80040e14'[Microsoft][Driver ODBC para Microsoft Access] Erro de sintaxe (operador faltando) na expressão de consulta 'pg Where despesa = 97'./images/cache/temp/10200430/cp/altera_dados.asp, line 160

[jrcardozo 4]

aquele espaço enre 96 e 154 existe?

80, 96 154

usando o IN no sql você precisa passar um array separado por virgula