Rosangela Silveira

Dezembro 14, 2006

Eu estava tentando fazer via include e não estava dando certo, mas consegui fazer criando duas conexões no próprio arquivo.

Obrigada

Dezembro 12, 2006

Estou criando um arquivo em ASP que precisa conectar dois bancos de dados. Em um banco de dados (associados) ele irá pesquisar pelo CPF o nome da pessoa e fazer a inclusão deste nome, cpf e os demais dados no outro banco de dados (juridico). Acontece que o sistema não aceita dois includes, só reconhece um banco de dados.

Outubro 11, 2006

tenta tirar isso:

enctype="multipart/form-data"

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

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)

Entrar

Rosangela Silveira

Total de itens

Registro em

Última visita

Tipo de Conteúdo

Perfis

Fóruns

Posts postados por Rosangela Silveira

Conexao De Um Arquivo Com Dois Bancos De Dados

Conexao De Um Arquivo Com Dois Bancos De Dados

Cadastro No Bd

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

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

Navegação

Atividades