Quando tento atualizar um determinado registro aparece a seguinte mensagem:
Tipo de erro:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E07)
[Microsoft][Driver ODBC para Microsoft Access] Tipo de dados imcompatível na expressão de critério.
/SasV2/associados/Altera.asp, line 258
Observei que o problema está relacionado ao campo data, quando ele está vazio. No Banco de Dados este campo está configurado como Data/Hora (data abreviada) e não requerido.
Aqui vai o código completo, não estou conseguindo corrigir este problema. Por favor ajudem.
Pergunta
Rosangela Silveira
Quando tento atualizar um determinado registro aparece a seguinte mensagem:
Tipo de erro:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E07)
[Microsoft][Driver ODBC para Microsoft Access] Tipo de dados imcompatível na expressão de critério.
/SasV2/associados/Altera.asp, line 258
Observei que o problema está relacionado ao campo data, quando ele está vazio. No Banco de Dados este campo está configurado como Data/Hora (data abreviada) e não requerido.
Aqui vai o código completo, não estou conseguindo corrigir este problema. Por favor ajudem.
<!--#include file="../conexao_associados.asp" --> <!--#include file="../CheckLogin.asp"--> <% Dim conexao, strSQL, rsSQL, strUpdate, rsUpdate Set conexao = Server.CreateObject("ADODB.Connection") Set rsSQL = Server.CreateObject("ADODB.Recordset") call abreconexao strSQL = " SELECT * FROM tab_associados WHERE " strSQL = strSQL & " tab_associados.cod =" & session.Contents("cod") & "; " set rsSQL=conexao.execute(strSQL) data_pagto = request.form("mes_pagto") & "/01/" & request.form("ano_pagto") cod = request.form("codigo") nome = Trim(request.form("nome")) endereco = request.form("endereco") Zona = request.form("zona") bairro = request.form("bairro") cidade = request.form("cidade") uf = request.form("uf") cep = request.form("cep") ddd_residencia = request.form("ddd_residencia") telefone_residencia = request.form("telefone_residencia") ddd_celular = request.form("ddd_celular") celular = request.form("celular") ddd_recado = request.form("ddd_recado") telefone_recado = request.form("telefone_recado") nome_recados = request.form("nome_recados") email = request.form("email") dtnc = request.form("dtnc") estadocivil = request.form("estadocivil") sexo = request.form("sexo") autoriza_site = request.form("autoriza_site") rg = request.form("rg") cpf = request.form("cpf") conjuge = request.form("conjuge") dtnc_conjuge = request.form("dtnc_conjuge") nome_titular = request.Form("nome_titular") obito = request.Form("obito") categoria = request.form("categoria") opapos = request.form("opapos") beneficio = request.form("beneficio") matricula = request.form("matricula") admissao = request.form("admissao") dtdgsb = request.form("DTDGSB") cargp = request.form("cargo") escolaridade = request.form("escolaridade") profissao = request.form("profissao") dtapis = request.form("DTAPIS") assmed = request.form("assmed") seguro = request.form("seguro") correio = request.form("correio") pagto = data_pagto remunera = request.form("remunera") valor_inss = request.form("valor_inss") valor_compl = request.form("valor_compl") valor_suple = request.form("valor_suple") salario = request.form("salario") valor = request.form("valor") forma_pagto = request.form("forma_pagto") periodicidade = request.form("periodicidade") agencia = request.form("agencia") conta = request.form("conta") administrativo = request.Form("administrativo") financeiro = request.Form("financeiro") institucional = request.Form("institucional") juridico = request.Form("juridico") saude = request.Form("saude") social = request.Form("social") apu = request.form("apu") aesabesp = request.form("aesabesp") associacao_sabesp = request.form("associacao_sabesp") cecres = request.form("cecres") sintaema = request.form("sintaema") sintius = request.form("sintius") engenheiros = request.form("engenheiros") esporte = request.form("esporte") danca = request.form("danca") internet = request.form("internet") leitura = request.form("leitura") musica = request.form("musica") teatro_show = request.form("teatro_show") viagens_turismo = request.form("viagens_turismo") data_alt = request.Form("data_alt") dtad = request.form("dtad") dtds = request.Form("dtds") motivo = request.Form("motivo") insu1 = request.form("insu1") insu2 = request.form("insu2") Login = session.Contents("login") If rsSQL("categoria") = "ATIVO" THEN strUpdate = "UPDATE tab_associados SET " strUpdate = strUpdate & "nome = '" & nome & "', " strUpdate = strUpdate & "endereco = '" & endereco & "', " strUpdate = strUpdate & "zona = '" & zona & "', " strUpdate = strUpdate & "bairro = '" & bairro & "', " strUpdate = strUpdate & "cidade = '" & cidade & "', " strUpdate = strUpdate & "uf = '" & uf & "', " strUpdate = strUpdate & "cep = '" & cep & "', " strUpdate = strUpdate & "ddd_residencia = '" & ddd_residencia & "', " strUpdate = strUpdate & "telefone_residencia = '" & telefone_residencia & "', " strUpdate = strUpdate & "ddd_celular = '" & ddd_celular & "', " strUpdate = strUpdate & "celular = '" & celular & "', " strUpdate = strUpdate & "ddd_recado = '" & ddd_recado & "', " strUpdate = strUpdate & "telefone_recado = '" & telefone_recado & "', " strUpdate = strUpdate & "nome_recados = '" & nome_recados & "', " strUpdate = strUpdate & "email = '" & email & "', " strUpdate = strUpdate & "dtnc = '" & dtnc & "', " strUpdate = strUpdate & "estadocivil = '" & estadocivil & "', " strUpdate = strUpdate & "sexo = '" & sexo & "', " strUpdate = strUpdate & "autoriza_site = '" & autoriza_site & "', " strUpdate = strUpdate & "rg = '" & rg & "', " strUpdate = strUpdate & "cpf = '" & cpf & "', " strUpdate = strUpdate & "conjuge = '" & conjuge & "', " strUpdate = strUpdate & "dtnc_conjuge = '" & dtnc_conjuge & "', " strUpdate = strUpdate & "categoria = '" & categoria & "', " strUpdate = strUpdate & "opapos = '" & opapos & "', " strUpdate = strUpdate & "beneficio = '" & beneficio & "', " strUpdate = strUpdate & "matricula = " & matricula & ", " strUpdate = strUpdate & "admissao = '" & admissao & "', " 'strUpdate = strUpdate & "dtdgsb = '" & DTDGSB & "', " strUpdate = strUpdate & "cargo = '" & cargo & "', " strUpdate = strUpdate & "escolaridade = '" & escolaridade & "', " strUpdate = strUpdate & "profissao = '" & profissao & "', " strUpdate = strUpdate & "dtapis = '" & DTAPIS & "', " strUpdate = strUpdate & "assmed = '" & assmed & "', " strUpdate = strUpdate & "seguro = '" & seguro & "', " strUpdate = strUpdate & "correio = '" & correio & "', " strUpdate = strUpdate & "pagto = '" & data_pagto & "', " strUpdate = strUpdate & "remunera = '" & remunera & "', " strUpdate = strUpdate & "valor_inss = '" & valor_inss & "', " strUpdate = strUpdate & "valor_compl = '" & valor_compl & "', " strUpdate = strUpdate & "valor_suple = '" & valor_suple & "', " strUpdate = strUpdate & "salario = '" & salario & "', " strUpdate = strUpdate & "valor = '" & valor & "', " strUpdate = strUpdate & "forma_pagto = '" & forma_pagto & "', " strUpdate = strUpdate & "periodicidade = '" & periodicidade & "', " strUpdate = strUpdate & "agencia = '" & agencia & "', " strUpdate = strUpdate & "conta = '" & conta & "', " strUpdate = strUpdate & "administrativa = '" & administrativo & "', " strUpdate = strUpdate & "financeiro = '" & financeiro & "', " strUpdate = strUpdate & "institucional = '" & institucional & "', " strUpdate = strUpdate & "juridico = '" & juridico & "', " strUpdate = strUpdate & "saude = '" & saude & "', " strUpdate = strUpdate & "social = '" & social & "', " strUpdate = strUpdate & "apu = '" & apu & "', " strUpdate = strUpdate & "aesabesp = '" & aesabesp & "', " strUpdate = strUpdate & "associacao_sabesp = '" & associacao_sabesp & "', " strUpdate = strUpdate & "cecres = '" & cecres & "', " strUpdate = strUpdate & "sintaema = '" & sintaema & "', " strUpdate = strUpdate & "sintius = '" & sintius & "', " strUpdate = strUpdate & "engenheiros = '" & engenheiros & "', " strUpdate = strUpdate & "esporte = '" & esporte & "', " strUpdate = strUpdate & "danca = '" & danca & "', " strUpdate = strUpdate & "internet = '" & internet & "', " strUpdate = strUpdate & "leitura = '" & leitura & "', " strUpdate = strUpdate & "musica = '" & musica & "', " strUpdate = strUpdate & "teatro_show = '" & teatro_show & "', " strUpdate = strUpdate & "viagens_turismo = '" & viagens_turismo & "', " strUpdate = strUpdate & "data_alt = '" & data_alt & "', " strUpdate = strUpdate & "dtad = '" & dtad & "', " strUpdate = strUpdate & "dtds = '" & dtds & "', " strUpdate = strUpdate & "motivo = '" & motivo & "', " strUpdate = strUpdate & "insu1 = '" & insu1 & "', " strUpdate = strUpdate & "insu2 = '" & insu2 & "', " strUpdate = strUpdate & "Login = '" & login & "' " strUpdate = strUpdate & "WHERE tab_associados.cod = " & cod & " " end if If rsSQL("categoria") <> "ATIVO" THEN strUpdate = "UPDATE tab_associados SET " strUpdate = strUpdate & "nome = '" & nome & "', " strUpdate = strUpdate & "endereco = '" & endereco & "', " strUpdate = strUpdate & "zona = '" & zona & "', " strUpdate = strUpdate & "bairro = '" & bairro & "', " strUpdate = strUpdate & "cidade = '" & cidade & "', " strUpdate = strUpdate & "uf = '" & uf & "', " strUpdate = strUpdate & "cep = '" & cep & "', " strUpdate = strUpdate & "ddd_residencia = '" & ddd_residencia & "', " strUpdate = strUpdate & "telefone_residencia = '" & telefone_residencia & "', " strUpdate = strUpdate & "ddd_celular = '" & ddd_celular & "', " strUpdate = strUpdate & "celular = '" & celular & "', " strUpdate = strUpdate & "ddd_recado = '" & ddd_recado & "', " strUpdate = strUpdate & "telefone_recado = '" & telefone_recado & "', " strUpdate = strUpdate & "nome_recados = '" & nome_recados & "', " strUpdate = strUpdate & "email = '" & email & "', " strUpdate = strUpdate & "dtnc = '" & dtnc & "', " strUpdate = strUpdate & "estadocivil = '" & estadocivil & "', " strUpdate = strUpdate & "sexo = '" & sexo & "', " strUpdate = strUpdate & "autoriza_site = '" & autoriza_site & "', " strUpdate = strUpdate & "rg = '" & rg & "', " strUpdate = strUpdate & "cpf = '" & cpf & "', " strUpdate = strUpdate & "conjuge = '" & conjuge & "', " strUpdate = strUpdate & "dtnc_conjuge = '" & dtnc_conjuge & "', " strUpdate = strUpdate & "nome_titular = '" & nome_titular & "', " strUpdate = strUpdate & "obito = '" & obito & "', " strUpdate = strUpdate & "categoria = '" & categoria & "', " strUpdate = strUpdate & "opapos = '" & opapos & "', " strUpdate = strUpdate & "beneficio = '" & beneficio & "', " strUpdate = strUpdate & "matricula = " & matricula & ", " strUpdate = strUpdate & "admissao = '" & admissao & "', " strUpdate = strUpdate & "dtdgsb = '" & DTDGSB & "', " strUpdate = strUpdate & "cargo = '" & cargo & "', " strUpdate = strUpdate & "escolaridade = '" & escolaridade & "', " strUpdate = strUpdate & "profissao = '" & profissao & "', " strUpdate = strUpdate & "dtapis = '" & DTAPIS & "', " strUpdate = strUpdate & "assmed = '" & assmed & "', " strUpdate = strUpdate & "seguro = '" & seguro & "', " strUpdate = strUpdate & "correio = '" & correio & "', " strUpdate = strUpdate & "pagto = '" & data_pagto & "', " strUpdate = strUpdate & "remunera = '" & remunera & "', " strUpdate = strUpdate & "valor_inss = '" & valor_inss & "', " strUpdate = strUpdate & "valor_compl = '" & valor_compl & "', " strUpdate = strUpdate & "valor_suple = '" & valor_suple & "', " strUpdate = strUpdate & "salario = '" & salario & "', " strUpdate = strUpdate & "valor = '" & valor & "', " strUpdate = strUpdate & "forma_pagto = '" & forma_pagto & "', " strUpdate = strUpdate & "periodicidade = '" & periodicidade & "', " strUpdate = strUpdate & "agencia = '" & agencia & "', " strUpdate = strUpdate & "conta = '" & conta & "', " strUpdate = strUpdate & "administrativa = '" & administrativo & "', " strUpdate = strUpdate & "financeiro = '" & financeiro & "', " strUpdate = strUpdate & "institucional = '" & institucional & "', " strUpdate = strUpdate & "juridico = '" & juridico & "', " strUpdate = strUpdate & "saude = '" & saude & "', " strUpdate = strUpdate & "social = '" & social & "', " strUpdate = strUpdate & "apu = '" & apu & "', " strUpdate = strUpdate & "aesabesp = '" & aesabesp & "', " strUpdate = strUpdate & "associacao_sabesp = '" & associacao_sabesp & "', " strUpdate = strUpdate & "cecres = '" & cecres & "', " strUpdate = strUpdate & "sintaema = '" & sintaema & "', " strUpdate = strUpdate & "sintius = '" & sintius & "', " strUpdate = strUpdate & "engenheiros = '" & engenheiros & "', " strUpdate = strUpdate & "esporte = '" & esporte & "', " strUpdate = strUpdate & "danca = '" & danca & "', " strUpdate = strUpdate & "internet = '" & internet & "', " strUpdate = strUpdate & "leitura = '" & leitura & "', " strUpdate = strUpdate & "musica = '" & musica & "', " strUpdate = strUpdate & "teatro_show = '" & teatro_show & "', " strUpdate = strUpdate & "viagens_turismo = '" & viagens_turismo & "', " strUpdate = strUpdate & "data_alt = '" & data_alt & "', " strUpdate = strUpdate & "dtad = '" & dtad & "', " strUpdate = strUpdate & "dtds = '" & dtds & "', " strUpdate = strUpdate & "motivo = '" & motivo & "', " strUpdate = strUpdate & "insu1 = '" & insu1 & "', " strUpdate = strUpdate & "insu2 = '" & insu2 & "', " strUpdate = strUpdate & "Login = '" & login & "' " strUpdate = strUpdate & "WHERE tab_associados.cod = " & cod & " " end if Set rsUpdate=conexao.execute(strUpdate)Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.