Tipo De Dados Imcompatível Na Expressão De Critério.

Rosangela Silveira · Outubro 6, 2006

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)

bareta · Outubro 6, 2006

veja bem

talvez um campo de nome data possa gerar algum comflito(não lembro);

use "#"&data&"#"

e deixe permitir comprimento zero em sim....

Rosangela Silveira · Outubro 6, 2006

Usei o código indicado mas deu essa mensagem:

Tipo de erro:

Erro de compilação do Microsoft VBScript (0x800A0401)

Fim da instrução esperado

/SasV2/associados/Altera.asp, line 202, column 34

strUpdate = strUpdate & "obito = "#"&obito&"#", "

---------------------------------^

Tirei a aspa dupla inicial e troquei por aspa simples e acusou o erro de Tipo de dados incompatível na expressão de critério novamente

Entrar

Tipo De Dados Imcompatível Na Expressão De Critério.

Pergunta

Rosangela Silveira

Link para o comentário

Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

bareta

Link para o comentário

Compartilhar em outros sites

Rosangela Silveira

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades