Update - 80040e10

[leonardonobre 0]

Bom dia a todos( http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif ), estou aqui com um erro que creio seja falta de atenção de minha parte.

Vamos lá.

 

if Request.QueryString("fn_acao") = "cadastrar" Then	QryUpdate = "UPDATE tbl_anuncio SET "	ramo_atividade = split(Request("id_ramo_ativ"), ",")							for x=0 to ubound(ramo_atividade)		contador = contador + 1	next									select case contador		case "2"			QryUpdate = QryUpdate & "id_ramo_ativ02="&ramo_atividade(1)&", "			QryUpdate = QryUpdate & "id_ramo_ativ03=0, "					QryUpdate = QryUpdate & "id_ramo_ativ="&ramo_atividade(0)&", "				case "3"			QryUpdate = QryUpdate & "id_ramo_ativ02="&ramo_atividade(1)&", "			QryUpdate = QryUpdate & "id_ramo_ativ03="&ramo_atividade(2)&", "					QryUpdate = QryUpdate & "id_ramo_ativ="&ramo_atividade(0)&", "				case "1"			QryUpdate = QryUpdate & "id_ramo_ativ02=0, "			QryUpdate = QryUpdate & "id_ramo_ativ03=0, "			QryUpdate = QryUpdate & "id_ramo_ativ="&ramo_atividade(0)&", "			End select			QryUpdate = QryUpdate & "id_regiao = "&Request("id_regiao")&", "			QryUpdate = QryUpdate & "id_valor = "&Request("id_valor")&", "				QryUpdate = QryUpdate & "desp_agua = '"&Request("desp_agua")&"', "										QryUpdate = QryUpdate & "desp_luz = '"&Request("desp_luz")&"', "			QryUpdate = QryUpdate & "desp_gas = '"&Request("desp_gas")&"', "			QryUpdate = QryUpdate & "desp_iptu = '"&Request("desp_iptu")&"', "			QryUpdate = QryUpdate & "desp_condominio = '"&Request("desp_condominio")&"', "			QryUpdate = QryUpdate & "desp_aluguel = '"&Request("desp_aluguel")&"', "			QryUpdate = QryUpdate & "tempo_contrato = '"&Request("tempo_contrato")&"', "			QryUpdate = QryUpdate & "desp_nro_funcionarios = '"&Request("desp_nro_funcionarios")&"', "			QryUpdate = QryUpdate & "desp_folha_pagto = '"&Request("desp_folha_pagto")&"', "			QryUpdate = QryUpdate & "desp_vt = '"&Request("desp_vt")&"', "			QryUpdate = QryUpdate & "desp_vr = '"&Request("desp_vr")&"', "			QryUpdate = QryUpdate & "desp_ps = '"&Request("desp_ps")&"', "			QryUpdate = QryUpdate & "desp_impostos = '"&Request("desp_impostos")&"', "			QryUpdate = QryUpdate & "horario_functo = '"&Request("horario_functo")&"', "			QryUpdate = QryUpdate & "movimento_mensal = '"&Request("movimento_mensal")&"', "			QryUpdate = QryUpdate & "preco_venda = '"&Request("preco_venda")&"', "			QryUpdate = QryUpdate & "lucro_liq = '"&Request("lucro_liq")&"', "															QryUpdate = QryUpdate & "percent_lucro = '"&Request("percent_lucro")&"', "								if cint(Request("aceita_imovel")) = 1 Then					QryUpdate = QryUpdate & "aceita_imovel='1', "				else					QryUpdate = QryUpdate & "aceita_imovel='0', "						End if				if cint(Request("aceita_carro")) = 1 Then					QryUpdate = QryUpdate & "aceita_carro='1', "				else					QryUpdate = QryUpdate & "aceita_carro='0', "				End if							QryUpdate = QryUpdate & "cond_pagto = '"&Request("cond_pagto")&"', "			QryUpdate = QryUpdate & "area_total = '"&Request("area_total")&"', "			QryUpdate = QryUpdate & "qtd_lugares = '"&Request("qtd_lugares")&"', "			QryUpdate = QryUpdate & "nro_vagas = '"&Request("nro_vagas")&"', "			QryUpdate = QryUpdate & "preco_avunso = '"&Request("preco_avulso")&"', "			QryUpdate = QryUpdate & "preco_lavagem_hora = '"&Request("preco_lavagem_hora")&"', "			QryUpdate = QryUpdate & "descricao_estab = '"&Request("descricao_estab")&"', "			QryUpdate = QryUpdate & "qtd_acessos='"&Request("qtd_acessos")&"',"			QryUpdate = QryUpdate & "dt_venda='"&Request("data_venda")&"',"			QryUpdate = QryUpdate & "val_comissao = '"&Request("val_comissao")&"', "											if cint(Request("ativo")) = 1 Then				QryUpdate = QryUpdate & "ativo='1', "				else				QryUpdate = QryUpdate & "ativo='0', "								End if				if cint(Request("oferta")) = 1 Then				QryUpdate = QryUpdate & "oferta='1', "				else				QryUpdate = QryUpdate & "oferta='0', "								End if				if cint(Request("vendido")) = 1 Then				QryUpdate = QryUpdate & "vendido='1', "				else				QryUpdate = QryUpdate & "vendido='0', "				End if							QryUpdate = QryUpdate & "obs = '"&Request("obs")&"', "			QryUpdate = QryUpdate & "historico = '"&Request("historico")&"', "			QryUpdate = QryUpdate & "seguro = '"&Request("seguro")&"', "			QryUpdate = QryUpdate & "franquia = '"&Request("franquia")&"', "			QryUpdate = QryUpdate & "taxafranquia = '"&Request("taxafranquia")&"', "			QryUpdate = QryUpdate & "royalts = '"&Request("royalts")&"', "			QryUpdate = QryUpdate & "mediasalarial = '"&Request("mediasalarial")&"', "			QryUpdate = QryUpdate & "fgts = '"&Request("fgts")&"', "			QryUpdate = QryUpdate & "inss = '"&Request("inss")&"', "			QryUpdate = QryUpdate & "taxasindical = '"&Request("taxasindical")&"', "			QryUpdate = QryUpdate & "alvara = '"&Request("alvara")&"', "			QryUpdate = QryUpdate & "mensalidadecontador = '"&Request("mensalidadecontador")&"', "			QryUpdate = QryUpdate & "contatocontador = '"&Request("nometelcontador")&"', "			QryUpdate = QryUpdate & "lucratividade = '"&Request("lucratividade")&"', "			QryUpdate = QryUpdate & "data_cadastro = '"&Request("data_cadastro")&"'"			QryUpdate = QryUpdate & "WHERE id_ref_anuncio = "&Request("id_ref_anuncio")&""												' id_ref_anuncio não é auto_increment e tb não é a pk da tabela.						Response.Write QryUpdate												' Aqui como pode ser observado, esta ok, esta montando a Query normalmente.Linha 123 ->		Set ObjUpdate = ObjConn.execute(QryUpdate)

 

 

O erro é o seguinte:

 

 

Microsoft JET Database Engine error '80040e10' No value given for one or more required parameters. /portal/atualiza_imovel.asp, line 123

Abraços a todos e bom trabalho aos colegas.

Grato,

Leonardo

[jothaz 1]

Camarada,

 

Por favor para facilitar execute:

Response.Write QryUpdate

E post a o resultado pois assim temos certeza do que esta sendo montado no sql.

 

t+