Ir para conteúdo
Fórum Script Brasil
  • 0

problemas com INSERT

A Metallica

Perguntado por A Metallica,

 Share

Pergunta

A Metallica

A Metallica

Postado
Postado

TENHO ESTA PTOGRAMAÇÃO QUE DEVE INSERIR OS DADOS NA TABELA NA HORA DE EXECUTAR RETORNA A RESPOSTA DE OK MAS NÃO INCLUI NO BANCO O QUE PODE SER?

NÃO VOU COLOCAR O CODGO INTEIRO PORQUE É MUITO GRANDE

SE alguém PUDER ME AJUDAR SEREI GRATO

...
PARTEIII_1 = request.form("PARTEIII_1")
PARTEIII_2 = request.form("PARTEIII_2")
PARTEIII_3 = request.form("PARTEIII_3")
PARTEIII_4 = request.form("PARTEIII_4")
PARTEIII_5 = request.form("PARTEIII_5")

    'Aqui vai Incluir no Bando de dados    
    sub abre_conexao
    sql = "insert into ccee (Nome, Nivel, PARTEI_1_1, PARTEI_1_2, ARTEI_1_3, PARTEI_2_1, PARTEI_2_2, PARTEI_2_3, PARTEI_3_1, PARTEI_3_2, PARTEI_3_3, PARTEI_4_1, PARTEI_4_2, PARTEI_4_3, PARTEI_4_4, PARTEI_4_5, PARTEI_4_6, PARTEI_4_7, PARTEI_4_8, PARTEI_4_9, PARTEI_4_10, PARTEI_4_11, PARTEI_4_12, PARTEI_4_13, PARTEI_4_14, PARTEI_5_1, PARTEI_5_2, PARTEI_5_3, PARTEI_5_4, PARTEI_5_5, PARTEI_5_6, PARTEI_5_6_outros, PARTEI_6_tecnicas, PARTEI_6_administrativas, PARTEI_6_rh, PARTEI_6_Conselho, PARTEI_7_1, PARTEI_7_2, PARTEI_7_3, PARTEI_7_4, PARTEI_7_5, Viver_A, Viver_B, Internet_A, Internet_B, Bomdia_A, Bomdia_B, Canal_A, Canal_B, CampInst_A, CampInst_B, Integracao_A, Integracao_B, Integracao_C, PARTEIII_1, PARTEIII_2, PARTEIII_3, PARTEIII_4, PARTEIII_5, data ) values ('"&txt_nome&"', '"&nivel&"', '"&PARTEI_1_1&"', '"&PARTEI_1_2&"', '"&PARTEI_1_3&"', '"&PARTEI_2_1&"', '"&PARTEI_2_2&"', '"&PARTEI_2_3&"', '"&PARTEI_3_1&"', '"&PARTEI_3_2&"', '"&PARTEI_3_3&"', '"&PARTEI_4_1&"', '"&PARTEI_4_2&"', '"&PARTEI_4_3&"', '"&PARTEI_4_4&"', '"&PARTEI_4_5&"', '"&PARTEI_4_6&"', '"&PARTEI_4_7&"', '"&PARTEI_4_8&"', '"&PARTEI_4_9&"', '"&PARTEI_4_10&"', '"&PARTEI_4_11&"', '"&PARTEI_4_12&"', '"&PARTEI_4_13&"','"&PARTEI_4_14&"', '"&PARTEI_5_1&"', '"&PARTEI_5_2&"',  '"&PARTEI_5_3&"', '"&PARTEI_5_4&"', '"&PARTEI_5_5&"', '"&PARTEI_5_6&"', '"&PARTEI_5_6_outros&"', '"&PARTEI_6_tecnicas&"', '"&PARTEI_6_administrativas&"', '"&PARTEI_6_rh&"', '"&PARTEI_6_Conselho&"', '"&PARTEI_7_1&"', '"&PARTEI_7_2&"', '"&PARTEI_7_3&"', '"&PARTEI_7_4&"', '"&PARTEI_7_5&"', '"&PARTEII_1A&"', '"&PARTEII_1B&"', '"&PARTEII_2A&"', '"&PARTEII_2B&"', '"&PARTEII_3A&"', '"&PARTEII_3B&"', '"&PARTEII_4A&"', '"&PARTEII_4B&"',  '"&PARTEII_5A&"', '"&PARTEII_5B&"', '"&PARTEII_6A&"', '"&PARTEII_6B&"', '"&PARTEII_6C&"', '"&PARTEIII_1&"', '"&PARTEIII_2&"', '"&PARTEIII_3&"', '"&PARTEIII_4&"', '"&PARTEIII_5&"', '"&varDATA&"')"
    set rsINCLUIR = conexao.Execute(sql)
    
    End Sub
    response.Write("Parabens")
    'Response.Redirect("sucesso.asp")
%>
ARQUIVO DE CONCEXÃO 
Dim Conexao

sub abre_conexao
    Set conexao = Server.CreateObject ("ADODB.Connection")
    Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=d:\web\localuser\EU\banco\ce.mdb;"
end sub

sub fecha_conexao
    Conexao.close
    Set Conexao = Nothing
End sub

OBRIGADO

Link para o comentário
Compartilhar em outros sites

8 respostass a esta questão

Posts Recomendados

  • 0
Rafael Spilki

Rafael Spilki

Postado
Postado

Bom... primeiro vamos ao básico...

tipo... em algum trecho do seu código aparece: 

on error resume next
?!? se sim, coloque uma aspas simples na frente dele assim ó: 
'on error resume next

segunda coisa:

pelo que vi na sua instrução todas suas variaveis estão setadas como texto, pois estão entre aspas simples e duplas assim:

'"variavel"' lembrando que se no bd tem algum campo que está como numero o correto seria na instrução insert está entre aspas duplas apenas assim: "variavelnumerica"... vale a pena dar uma conferidinha nisso tb, ok?

bom pra começar é isso... veja se dá uma luz aí... se aparecer alguma mensagem de erro poste aqui a mensagem completa e a linha exata que ela indica, ok?

[]'s Rafael Spilki

Link para o comentário
Compartilhar em outros sites
  • 0
A Metallica

A Metallica

Postado
  • Autor
Postado

Quanto ao "on error resume next" não tem não os dados na Banco estão sendo frevados como string TEXTO??

ACESSA O LINK

http://www.crbasso.com.br/ccee/pesq_ccee.asp

OS VALORES QUE SÃO PASSADOS VIA REQUEST SÃO NUMERICOS, COLOCANDO O CONVERSOR ENDE É NUMERO E ONDE É TEXTO PODE RESOLVER ?

EXEMPLO

site = cstr(request.form("txt_site"))

necessidades = cint(request.form("txt_necessidades"))

Link para o comentário
Compartilhar em outros sites
  • 0
bareta

bareta

Postado
Postado

afzz.. hasidhsad

você cria uma sub com o insert... e não executa ela... portanto nada é feito... só chamar a abertura e fechamento da conexao na partes em negrito

...

PARTEIII_1 = request.form("PARTEIII_1")

PARTEIII_2 = request.form("PARTEIII_2")

PARTEIII_3 = request.form("PARTEIII_3")

PARTEIII_4 = request.form("PARTEIII_4")

PARTEIII_5 = request.form("PARTEIII_5")

'Aqui vai Incluir no Bando de dados

abre_conexao

sql = "insert into ccee (Nome, Nivel, PARTEI_1_1, PARTEI_1_2, ARTEI_1_3, PARTEI_2_1, PARTEI_2_2, PARTEI_2_3, PARTEI_3_1, PARTEI_3_2, PARTEI_3_3, PARTEI_4_1, PARTEI_4_2, PARTEI_4_3, PARTEI_4_4, PARTEI_4_5, PARTEI_4_6, PARTEI_4_7, PARTEI_4_8, PARTEI_4_9, PARTEI_4_10, PARTEI_4_11, PARTEI_4_12, PARTEI_4_13, PARTEI_4_14, PARTEI_5_1, PARTEI_5_2, PARTEI_5_3, PARTEI_5_4, PARTEI_5_5, PARTEI_5_6, PARTEI_5_6_outros, PARTEI_6_tecnicas, PARTEI_6_administrativas, PARTEI_6_rh, PARTEI_6_Conselho, PARTEI_7_1, PARTEI_7_2, PARTEI_7_3, PARTEI_7_4, PARTEI_7_5, Viver_A, Viver_B, Internet_A, Internet_B, Bomdia_A, Bomdia_B, Canal_A, Canal_B, CampInst_A, CampInst_B, Integracao_A, Integracao_B, Integracao_C, PARTEIII_1, PARTEIII_2, PARTEIII_3, PARTEIII_4, PARTEIII_5, data ) values ('"&txt_nome&"', '"&nivel&"', '"&PARTEI_1_1&"', '"&PARTEI_1_2&"', '"&PARTEI_1_3&"', '"&PARTEI_2_1&"', '"&PARTEI_2_2&"', '"&PARTEI_2_3&"', '"&PARTEI_3_1&"', '"&PARTEI_3_2&"', '"&PARTEI_3_3&"', '"&PARTEI_4_1&"', '"&PARTEI_4_2&"', '"&PARTEI_4_3&"', '"&PARTEI_4_4&"', '"&PARTEI_4_5&"', '"&PARTEI_4_6&"', '"&PARTEI_4_7&"', '"&PARTEI_4_8&"', '"&PARTEI_4_9&"', '"&PARTEI_4_10&"', '"&PARTEI_4_11&"', '"&PARTEI_4_12&"', '"&PARTEI_4_13&"','"&PARTEI_4_14&"', '"&PARTEI_5_1&"', '"&PARTEI_5_2&"', '"&PARTEI_5_3&"', '"&PARTEI_5_4&"', '"&PARTEI_5_5&"', '"&PARTEI_5_6&"', '"&PARTEI_5_6_outros&"', '"&PARTEI_6_tecnicas&"', '"&PARTEI_6_administrativas&"', '"&PARTEI_6_rh&"', '"&PARTEI_6_Conselho&"', '"&PARTEI_7_1&"', '"&PARTEI_7_2&"', '"&PARTEI_7_3&"', '"&PARTEI_7_4&"', '"&PARTEI_7_5&"', '"&PARTEII_1A&"', '"&PARTEII_1B&"', '"&PARTEII_2A&"', '"&PARTEII_2B&"', '"&PARTEII_3A&"', '"&PARTEII_3B&"', '"&PARTEII_4A&"', '"&PARTEII_4B&"', '"&PARTEII_5A&"', '"&PARTEII_5B&"', '"&PARTEII_6A&"', '"&PARTEII_6B&"', '"&PARTEII_6C&"', '"&PARTEIII_1&"', '"&PARTEIII_2&"', '"&PARTEIII_3&"', '"&PARTEIII_4&"', '"&PARTEIII_5&"', '"&varDATA&"')"

set rsINCLUIR = conexao.Execute(sql)

response.Write("Parabens")

fecha_conexao

'Response.Redirect("sucesso.asp")

%>

Link para o comentário
Compartilhar em outros sites
  • 0
A Metallica

A Metallica

Postado
  • Autor
Postado
Cara, debuga aí sua instrução... faz assim coloque isso assim:

response.write sql
response.end
exatamente em cima dessa parte aqui: 
set rsINCLUIR = conexao.Execute(sql)
depois posta o que aparecer na tela aqui no tópico, ok? []'s Rafael Spilki
E ai Raphael, Fiz o que você passou mas ele exibe a mensagem de "Parabens" mas não grava no banco de dados. segue como ficou 
<!--#INCLUDE file="conexao.asp"-->
<%

varDATA = day(now())&"/"&month(now())&"/"&Year(now())
txt_nome = request.form("txt_nome")
nivel = request.form("nivel")

'PARTE I – Escolha as opções que refletem sua percepção ou observação sobre a comunicação interna na CCEE
PARTEI_1_1 = request.form("PARTEI_1_1")
PARTEI_1_2 = request.form("PARTEI_1_2")
PARTEI_1_3 = request.form("PARTEI_1_3")

PARTEI_2_1 = request.form("PARTEI_2_1")
PARTEI_2_2 = request.form("PARTEI_2_2")
PARTEI_2_3 = request.form("PARTEI_2_3")

PARTEI_3_1 = request.form("PARTEI_3_1")
PARTEI_3_2 = request.form("PARTEI_3_2")
PARTEI_3_3 = request.form("PARTEI_3_3")

PARTEI_4_1 = request.form("PARTEI_4_1")
PARTEI_4_2 = request.form("PARTEI_4_2")
PARTEI_4_3 = request.form("PARTEI_4_3")
PARTEI_4_4 = request.form("PARTEI_4_4")
PARTEI_4_5 = request.form("PARTEI_4_5")
PARTEI_4_6 = request.form("PARTEI_4_6")
PARTEI_4_7 = request.form("PARTEI_4_7")
PARTEI_4_8 = request.form("PARTEI_4_8")
PARTEI_4_9 = request.form("PARTEI_4_9")
PARTEI_4_10 = request.form("PARTEI_4_10")
PARTEI_4_11 = request.form("PARTEI_4_11")
PARTEI_4_12 = request.form("PARTEI_4_12")
PARTEI_4_13 = request.form("PARTEI_4_13")
PARTEI_4_14 = request.form("PARTEI_4_14")

PARTEI_5_1 = request.form("PARTEI_5_1")
PARTEI_5_2 = request.form("PARTEI_5_2")
PARTEI_5_3 = request.form("PARTEI_5_3")
PARTEI_5_4 = request.form("PARTEI_5_4")
PARTEI_5_5 = request.form("PARTEI_5_5")
PARTEI_5_6 = request.form("PARTEI_5_6")
PARTEI_5_6_outros = request.form("PARTEI_5_6_outros")

PARTEI_6_tecnicas = request.form("PARTEI_6_tecnicas")
PARTEI_6_administrativas = request.form("PARTEI_6_administrativas")
PARTEI_6_rh = request.form("PARTEI_6_rh")
PARTEI_6_Conselho = request.form("PARTEI_6_Conselho")

PARTEI_7_1 = request.form("PARTEI_7_1")
PARTEI_7_2 = request.form("PARTEI_7_2")
PARTEI_7_3 = request.form("PARTEI_7_3")
PARTEI_7_4 = request.form("PARTEI_7_4")
PARTEI_7_5 = request.form("PARTEI_7_5")

'PARTE II – Escolha as opções que expressam sua opinião sobre a eficácia dos canais de comunicação (se refletem ou não o objetivo proposto de divulgar as informações e se atingem todo o público da CCEE).
PARTEII_1A = request.form("PARTEII_1A")
PARTEII_1B = request.form("PARTEII_1B")

PARTEII_2A = request.form("PARTEII_2A")
PARTEII_2B = request.form("PARTEII_2B")

PARTEII_3A = request.form("PARTEII_3A")
PARTEII_3B = request.form("PARTEII_3B")

PARTEII_4A = request.form("PARTEII_4A")
PARTEII_4B = request.form("PARTEII_4B")

PARTEII_5A = request.form("PARTEII_5A")
PARTEII_5B = request.form("PARTEII_5B")

PARTEII_6A = request.form("PARTEII_6A")
PARTEII_6B = request.form("PARTEII_6B")
PARTEII_6C = request.form("PARTEII_6C")

'PARTE III – Responda as perguntas a seguir. Por favor, apresente detalhes e informações que possam contribuir para a melhoria da comunicação interna na empresa.
PARTEIII_1 = request.form("PARTEIII_1")
PARTEIII_2 = request.form("PARTEIII_2")
PARTEIII_3 = request.form("PARTEIII_3")
PARTEIII_4 = request.form("PARTEIII_4")
PARTEIII_5 = request.form("PARTEIII_5")

    'Aqui vai Incluir no Bando de dados    
    sub abre_conexao
     sql = "insert into TABOS (Nome, Nivel, PARTEI_1_1, PARTEI_1_2, ARTEI_1_3, PARTEI_2_1, PARTEI_2_2, PARTEI_2_3, PARTEI_3_1, PARTEI_3_2, PARTEI_3_3, PARTEI_4_1, PARTEI_4_2, PARTEI_4_3, PARTEI_4_4, PARTEI_4_5, PARTEI_4_6, PARTEI_4_7, PARTEI_4_8, PARTEI_4_9, PARTEI_4_10, PARTEI_4_11, PARTEI_4_12, PARTEI_4_13, PARTEI_4_14, PARTEI_5_1, PARTEI_5_2, PARTEI_5_3, PARTEI_5_4, PARTEI_5_5, PARTEI_5_6, PARTEI_5_6_outros, PARTEI_6_tecnicas, PARTEI_6_administrativas, PARTEI_6_rh, PARTEI_6_Conselho, PARTEI_7_1, PARTEI_7_2, PARTEI_7_3, PARTEI_7_4, PARTEI_7_5, Viver_A, Viver_B, Internet_A, Internet_B, Bomdia_A, Bomdia_B, Canal_A, Canal_B, CampInst_A, CampInst_B, Integracao_A, Integracao_B, Integracao_C, PARTEIII_1, PARTEIII_2, PARTEIII_3, PARTEIII_4, PARTEIII_5, data ) values ('"&txt_nome&"', '"&nivel&"', '"&PARTEI_1_1&"', '"&PARTEI_1_2&"', '"&PARTEI_1_3&"', '"&PARTEI_2_1&"', '"&PARTEI_2_2&"', '"&PARTEI_2_3&"', '"&PARTEI_3_1&"', '"&PARTEI_3_2&"', '"&PARTEI_3_3&"', '"&PARTEI_4_1&"', '"&PARTEI_4_2&"', '"&PARTEI_4_3&"', '"&PARTEI_4_4&"', '"&PARTEI_4_5&"', '"&PARTEI_4_6&"', '"&PARTEI_4_7&"', '"&PARTEI_4_8&"', '"&PARTEI_4_9&"', '"&PARTEI_4_10&"', '"&PARTEI_4_11&"', '"&PARTEI_4_12&"', '"&PARTEI_4_13&"','"&PARTEI_4_14&"', '"&PARTEI_5_1&"', '"&PARTEI_5_2&"',  '"&PARTEI_5_3&"', '"&PARTEI_5_4&"', '"&PARTEI_5_5&"', '"&PARTEI_5_6&"', '"&PARTEI_5_6_outros&"', '"&PARTEI_6_tecnicas&"', '"&PARTEI_6_administrativas&"', '"&PARTEI_6_rh&"', '"&PARTEI_6_Conselho&"', '"&PARTEI_7_1&"', '"&PARTEI_7_2&"', '"&PARTEI_7_3&"', '"&PARTEI_7_4&"', '"&PARTEI_7_5&"', '"&PARTEII_1A&"', '"&PARTEII_1B&"', '"&PARTEII_2A&"', '"&PARTEII_2B&"', '"&PARTEII_3A&"', '"&PARTEII_3B&"', '"&PARTEII_4A&"', '"&PARTEII_4B&"',  '"&PARTEII_5A&"', '"&PARTEII_5B&"', '"&PARTEII_6A&"', '"&PARTEII_6B&"', '"&PARTEII_6C&"', '"&PARTEIII_1&"', '"&PARTEIII_2&"', '"&PARTEIII_3&"', '"&PARTEIII_4&"', '"&PARTEIII_5&"', '"&varDATA&"')"
    response.write sql
    response.end
    set rsINCLUIR = conn.Execute(sql)
        
    End Sub
    response.Write("Parabens")
    'Response.Redirect("sucesso.asp")
%>

Link para o comentário
Compartilhar em outros sites
  • 0
A Metallica

A Metallica

Postado
  • Autor
Postado
afzz.. hasidhsad

você cria uma sub com o insert... e não executa ela... portanto nada é feito... só chamar a abertura e fechamento da conexao na partes em negrito

...

PARTEIII_1 = request.form("PARTEIII_1")

PARTEIII_2 = request.form("PARTEIII_2")

PARTEIII_3 = request.form("PARTEIII_3")

PARTEIII_4 = request.form("PARTEIII_4")

PARTEIII_5 = request.form("PARTEIII_5")

'Aqui vai Incluir no Bando de dados

abre_conexao

sql = "insert into ccee (Nome, Nivel, PARTEI_1_1, PARTEI_1_2, ARTEI_1_3, PARTEI_2_1, PARTEI_2_2, PARTEI_2_3, PARTEI_3_1, PARTEI_3_2, PARTEI_3_3, PARTEI_4_1, PARTEI_4_2, PARTEI_4_3, PARTEI_4_4, PARTEI_4_5, PARTEI_4_6, PARTEI_4_7, PARTEI_4_8, PARTEI_4_9, PARTEI_4_10, PARTEI_4_11, PARTEI_4_12, PARTEI_4_13, PARTEI_4_14, PARTEI_5_1, PARTEI_5_2, PARTEI_5_3, PARTEI_5_4, PARTEI_5_5, PARTEI_5_6, PARTEI_5_6_outros, PARTEI_6_tecnicas, PARTEI_6_administrativas, PARTEI_6_rh, PARTEI_6_Conselho, PARTEI_7_1, PARTEI_7_2, PARTEI_7_3, PARTEI_7_4, PARTEI_7_5, Viver_A, Viver_B, Internet_A, Internet_B, Bomdia_A, Bomdia_B, Canal_A, Canal_B, CampInst_A, CampInst_B, Integracao_A, Integracao_B, Integracao_C, PARTEIII_1, PARTEIII_2, PARTEIII_3, PARTEIII_4, PARTEIII_5, data ) values ('"&txt_nome&"', '"&nivel&"', '"&PARTEI_1_1&"', '"&PARTEI_1_2&"', '"&PARTEI_1_3&"', '"&PARTEI_2_1&"', '"&PARTEI_2_2&"', '"&PARTEI_2_3&"', '"&PARTEI_3_1&"', '"&PARTEI_3_2&"', '"&PARTEI_3_3&"', '"&PARTEI_4_1&"', '"&PARTEI_4_2&"', '"&PARTEI_4_3&"', '"&PARTEI_4_4&"', '"&PARTEI_4_5&"', '"&PARTEI_4_6&"', '"&PARTEI_4_7&"', '"&PARTEI_4_8&"', '"&PARTEI_4_9&"', '"&PARTEI_4_10&"', '"&PARTEI_4_11&"', '"&PARTEI_4_12&"', '"&PARTEI_4_13&"','"&PARTEI_4_14&"', '"&PARTEI_5_1&"', '"&PARTEI_5_2&"', '"&PARTEI_5_3&"', '"&PARTEI_5_4&"', '"&PARTEI_5_5&"', '"&PARTEI_5_6&"', '"&PARTEI_5_6_outros&"', '"&PARTEI_6_tecnicas&"', '"&PARTEI_6_administrativas&"', '"&PARTEI_6_rh&"', '"&PARTEI_6_Conselho&"', '"&PARTEI_7_1&"', '"&PARTEI_7_2&"', '"&PARTEI_7_3&"', '"&PARTEI_7_4&"', '"&PARTEI_7_5&"', '"&PARTEII_1A&"', '"&PARTEII_1B&"', '"&PARTEII_2A&"', '"&PARTEII_2B&"', '"&PARTEII_3A&"', '"&PARTEII_3B&"', '"&PARTEII_4A&"', '"&PARTEII_4B&"', '"&PARTEII_5A&"', '"&PARTEII_5B&"', '"&PARTEII_6A&"', '"&PARTEII_6B&"', '"&PARTEII_6C&"', '"&PARTEIII_1&"', '"&PARTEIII_2&"', '"&PARTEIII_3&"', '"&PARTEIII_4&"', '"&PARTEIII_5&"', '"&varDATA&"')"

set rsINCLUIR = conexao.Execute(sql)

response.Write("Parabens")

fecha_conexao

'Response.Redirect("sucesso.asp")

%>

E Ai Bareta, tentei fazer o que você passou mas tambem não esta gravadno segue o codigo, desta forma da o seguinte erro:

Erro de tempo de execução do Microsoft VBScript erro '800a01a8'

Objeto necessário: 'objConn'

/ccee/enviar_id.asp, line 91 

<!--#INCLUDE file="conexao.asp"-->
<%

varDATA = day(now())&"/"&month(now())&"/"&Year(now())
txt_nome = request.form("txt_nome")
nivel = request.form("nivel")

'PARTE I – Escolha as opções que refletem sua percepção ou observação sobre a comunicação interna na CCEE
PARTEI_1_1 = request.form("PARTEI_1_1")
PARTEI_1_2 = request.form("PARTEI_1_2")
PARTEI_1_3 = request.form("PARTEI_1_3")

PARTEI_2_1 = request.form("PARTEI_2_1")
PARTEI_2_2 = request.form("PARTEI_2_2")
PARTEI_2_3 = request.form("PARTEI_2_3")

PARTEI_3_1 = request.form("PARTEI_3_1")
PARTEI_3_2 = request.form("PARTEI_3_2")
PARTEI_3_3 = request.form("PARTEI_3_3")

PARTEI_4_1 = request.form("PARTEI_4_1")
PARTEI_4_2 = request.form("PARTEI_4_2")
PARTEI_4_3 = request.form("PARTEI_4_3")
PARTEI_4_4 = request.form("PARTEI_4_4")
PARTEI_4_5 = request.form("PARTEI_4_5")
PARTEI_4_6 = request.form("PARTEI_4_6")
PARTEI_4_7 = request.form("PARTEI_4_7")
PARTEI_4_8 = request.form("PARTEI_4_8")
PARTEI_4_9 = request.form("PARTEI_4_9")
PARTEI_4_10 = request.form("PARTEI_4_10")
PARTEI_4_11 = request.form("PARTEI_4_11")
PARTEI_4_12 = request.form("PARTEI_4_12")
PARTEI_4_13 = request.form("PARTEI_4_13")
PARTEI_4_14 = request.form("PARTEI_4_14")

PARTEI_5_1 = request.form("PARTEI_5_1")
PARTEI_5_2 = request.form("PARTEI_5_2")
PARTEI_5_3 = request.form("PARTEI_5_3")
PARTEI_5_4 = request.form("PARTEI_5_4")
PARTEI_5_5 = request.form("PARTEI_5_5")
PARTEI_5_6 = request.form("PARTEI_5_6")
PARTEI_5_6_outros = request.form("PARTEI_5_6_outros")

PARTEI_6_tecnicas = request.form("PARTEI_6_tecnicas")
PARTEI_6_administrativas = request.form("PARTEI_6_administrativas")
PARTEI_6_rh = request.form("PARTEI_6_rh")
PARTEI_6_Conselho = request.form("PARTEI_6_Conselho")

PARTEI_7_1 = request.form("PARTEI_7_1")
PARTEI_7_2 = request.form("PARTEI_7_2")
PARTEI_7_3 = request.form("PARTEI_7_3")
PARTEI_7_4 = request.form("PARTEI_7_4")
PARTEI_7_5 = request.form("PARTEI_7_5")

'PARTE II – Escolha as opções que expressam sua opinião sobre a eficácia dos canais de comunicação (se refletem ou não o objetivo proposto de divulgar as informações e se atingem todo o público da CCEE).
PARTEII_1A = request.form("PARTEII_1A")
PARTEII_1B = request.form("PARTEII_1B")

PARTEII_2A = request.form("PARTEII_2A")
PARTEII_2B = request.form("PARTEII_2B")

PARTEII_3A = request.form("PARTEII_3A")
PARTEII_3B = request.form("PARTEII_3B")

PARTEII_4A = request.form("PARTEII_4A")
PARTEII_4B = request.form("PARTEII_4B")

PARTEII_5A = request.form("PARTEII_5A")
PARTEII_5B = request.form("PARTEII_5B")

PARTEII_6A = request.form("PARTEII_6A")
PARTEII_6B = request.form("PARTEII_6B")
PARTEII_6C = request.form("PARTEII_6C")

'PARTE III – Responda as perguntas a seguir. Por favor, apresente detalhes e informações que possam contribuir para a melhoria da comunicação interna na empresa.
PARTEIII_1 = request.form("PARTEIII_1")
PARTEIII_2 = request.form("PARTEIII_2")
PARTEIII_3 = request.form("PARTEIII_3")
PARTEIII_4 = request.form("PARTEIII_4")
PARTEIII_5 = request.form("PARTEIII_5")

'Inclusão do controle de OS
sub abre_conn
    Set objConn = Server.CreateObject ("ADODB.Connection")
    objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=D:\web\localuser\crbasso\banco\ccee.mdb"
end sub

    'Aqui vai Incluir no Bando de dados    
    abre_conn
     sql = "insert into TABOS (Nome, Nivel, PARTEI_1_1, PARTEI_1_2, ARTEI_1_3, PARTEI_2_1, PARTEI_2_2, PARTEI_2_3, PARTEI_3_1, PARTEI_3_2, PARTEI_3_3, PARTEI_4_1, PARTEI_4_2, PARTEI_4_3, PARTEI_4_4, PARTEI_4_5, PARTEI_4_6, PARTEI_4_7, PARTEI_4_8, PARTEI_4_9, PARTEI_4_10, PARTEI_4_11, PARTEI_4_12, PARTEI_4_13, PARTEI_4_14, PARTEI_5_1, PARTEI_5_2, PARTEI_5_3, PARTEI_5_4, PARTEI_5_5, PARTEI_5_6, PARTEI_5_6_outros, PARTEI_6_tecnicas, PARTEI_6_administrativas, PARTEI_6_rh, PARTEI_6_Conselho, PARTEI_7_1, PARTEI_7_2, PARTEI_7_3, PARTEI_7_4, PARTEI_7_5, Viver_A, Viver_B, Internet_A, Internet_B, Bomdia_A, Bomdia_B, Canal_A, Canal_B, CampInst_A, CampInst_B, Integracao_A, Integracao_B, Integracao_C, PARTEIII_1, PARTEIII_2, PARTEIII_3, PARTEIII_4, PARTEIII_5, data ) values ('"&txt_nome&"', '"&nivel&"', '"&PARTEI_1_1&"', '"&PARTEI_1_2&"', '"&PARTEI_1_3&"', '"&PARTEI_2_1&"', '"&PARTEI_2_2&"', '"&PARTEI_2_3&"', '"&PARTEI_3_1&"', '"&PARTEI_3_2&"', '"&PARTEI_3_3&"', '"&PARTEI_4_1&"', '"&PARTEI_4_2&"', '"&PARTEI_4_3&"', '"&PARTEI_4_4&"', '"&PARTEI_4_5&"', '"&PARTEI_4_6&"', '"&PARTEI_4_7&"', '"&PARTEI_4_8&"', '"&PARTEI_4_9&"', '"&PARTEI_4_10&"', '"&PARTEI_4_11&"', '"&PARTEI_4_12&"', '"&PARTEI_4_13&"','"&PARTEI_4_14&"', '"&PARTEI_5_1&"', '"&PARTEI_5_2&"',  '"&PARTEI_5_3&"', '"&PARTEI_5_4&"', '"&PARTEI_5_5&"', '"&PARTEI_5_6&"', '"&PARTEI_5_6_outros&"', '"&PARTEI_6_tecnicas&"', '"&PARTEI_6_administrativas&"', '"&PARTEI_6_rh&"', '"&PARTEI_6_Conselho&"', '"&PARTEI_7_1&"', '"&PARTEI_7_2&"', '"&PARTEI_7_3&"', '"&PARTEI_7_4&"', '"&PARTEI_7_5&"', '"&PARTEII_1A&"', '"&PARTEII_1B&"', '"&PARTEII_2A&"', '"&PARTEII_2B&"', '"&PARTEII_3A&"', '"&PARTEII_3B&"', '"&PARTEII_4A&"', '"&PARTEII_4B&"',  '"&PARTEII_5A&"', '"&PARTEII_5B&"', '"&PARTEII_6A&"', '"&PARTEII_6B&"', '"&PARTEII_6C&"', '"&PARTEIII_1&"', '"&PARTEIII_2&"', '"&PARTEIII_3&"', '"&PARTEIII_4&"', '"&PARTEIII_5&"', '"&varDATA&"')"
    set rsINCLUIR = objConn.Execute(sql)
        
    response.Write("Parabens")
sub fecha_conn
    objConn.close
    Set objConn = Nothing
End sub
    Response.Redirect("sucesso.asp")
%>

Link para o comentário
Compartilhar em outros sites
  • 0
Rafael Spilki

Rafael Spilki

Postado
Postado

fica bem complicado contar as linhas pra saber exatamente qual é a 91... lembre-se de sempre postar a linha que o erro aponta junto com a mensagem de erro...

o erro aponta pra essa sub aqui:

sub abre_conn
    Set objConn = Server.CreateObject ("ADODB.Connection")
    objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=D:\web\localuser\crbasso\banco\ccee.mdb"
end sub

a mensagem de erro diz que o objConn não está ou não foi aberto... caso seja da sub acima certificate de que ela esta sendo "chamada"...

[]'s Rafael Spilki

Link para o comentário
Compartilhar em outros sites
  • 0
bareta

bareta

Postado
Postado

da o erro porque simplesmente não chama a sub

conexao

Dim Conexao

sub abre_conexao()

Set conexao = Server.CreateObject ("ADODB.Connection")

Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=d:\web\localuser\EU\banco\ce.mdb;"

end sub

sub fecha_conexao()

Conexao.close

Set Conexao = Nothing

End sub

ai no arquivo

use:

call abre_conexao

e

call fecha_conexao

Link para o comentário
Compartilhar em outros sites

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.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...