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

(Resolvido) [SQL] Dificuldade Inclusão


Martinsrj

Pergunta

Não estou conseguindo identificar o motivo desse erro:

Tipo de erro:

Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)

[MySQL][ODBC 5.1 Driver][mysqld-5.0.67-community-nt]Unknown column 'nome' in 'field list'

/grupo_demanda/projetos/obama/ins.dadosobama.asp, line 41

A linha 41 é essa: conbd_gd.Execute(strINS)

Segue abaixo o meu código:

<% Option Explicit %>
<!--#Include file="conexao.asp"-->
<%
Dim conbd_gd, rsInsere, strINS, var_data, hora, Minuto, Segundo, var_nomeprojeto, var_escopoprojeto, var_atividade, var_proximo, var_pontos, var_posicaoatual

var_nomeprojeto = TRIM(Request.Form("txt_nome.projeto"))
var_escopoprojeto = TRIM(Request.Form("txt_escopo.projeto"))
var_atividade = TRIM(Request.Form("txt_atividade"))
var_proximo = TRIM(Request.Form("txt_proximo"))
var_pontos = TRIM(Request.Form("txt_pontos"))
var_posicaoatual = "Ativado"


'-- Função para conversao de data para o MySQL -- Paulo Martins.
Function ConvertDataMySQL(ConDataBanco)   
    ConDataBanco = Year(ConDataBanco) &"-"& Right("0"&Month(ConDataBanco),2) &"-"& Right("0"&Day(ConDataBanco),2)    
    ConvertDataMySQL = ConDataBanco  
End Function   
'-- Response.Write(ConvertDataMySQL(Date()))    

hora    = Hour(time)
Minuto  = Right("0"&Minute(time),2)
Segundo = Second(time)
var_data = (ConvertDataMySQL(Date())) & " " & hora & ":" & Minuto & ":" & Segundo


strINS = "INSERT into tab_dadosobama "
strINS = strINS & "(nome, escopo_projeto, atividades_realizadas, proximo_passo, pontos_atencao, data, posicao_atual) "

strINS = strINS & "VALUES ('" & var_nomeprojeto & "',"
strINS = strINS & "'" & var_escopoprojeto & "',"
strINS = strINS & "'" & var_atividade & "'," 
strINS = strINS & "'" & var_proximo & "'," 
strINS = strINS & "'" & var_pontos & "',"
strINS = strINS & "'" & var_data & "',"
strINS = strINS & "'" & var_posicaoatual & "'"
strINS = strINS & ")"


Call AbreConexao
conbd_gd.Execute(strINS)
'response.write strINS
'response.end()

'Comentário-- Verifica o sucesso da operação, baseado na variavel 'err'
    if err.number = 0 then
        response.write ("Cadastro realizado com sucesso")
        '--Response.Write "<font face='arial' size'3' color='green'><b>O ID: " & var_nome.projeto & " foi incluído com sucesso!</font></b><br>
        Else
            response.write ("Erro: " + err.description)
        End if

Call FechaConexao
%>
Aqui vai o erro completo:
Não é possível exibir a página Ocorreu um problema com a página que você está tentando acessar e não é possível exibi-la. -------------------------------------------------------------------------------- Experimente o seguinte: Clique no botão Atualizar ou tente novamente mais tarde. Abra a localhost home page e procure os links para as informações desejadas. HTTP 500.100 - Servidor interno Erro - erro do ASP Internet Information Services -------------------------------------------------------------------------------- Informações técnicas (para a equipe de suporte) Tipo de erro: Microsoft OLE DB Provider for ODBC Drivers (0x80040E14) [MySQL][ODBC 5.1 Driver][mysqld-5.0.67-community-nt]Unknown column 'nome' in 'field list' /grupo_demanda/projetos/obama/ins.dadosobama.asp, line 41 Tipo de navegador: Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; Trident/4.0; GTB6; .NET CLR 2.0.50727) Página: POST 2406 bytes to /grupo_demanda/projetos/obama/ins.dadosobama.asp POST Data: txt_nome.projeto=Projeto+Obama&txt_escopo.projeto=Consiste+em+realizar+a+substitui%C3%A7%C3%A3o+do+Vantive+Help+Desk+para+o+Smart+Infra+da+EMC.+%0D%0ASer%C3%A3o+implantados+os+m%C3%B3dulos+de+Incident . . . Hora: quinta-feira, 9 de julho de 2009, 13:25:04 Mais informações: Suporte da Microsoft
Aqui está a estrutura do minha tabela: O nome do banco: gd_dev
CREATE TABLE `tab_dadosobama` (
  `cod_dados` int(11) NOT NULL auto_increment,
  `nome_projeto` varchar(50) default NULL,
  `escopo_projeto` text,
  `atividades_realizadas` text,
  `proximo_passo` text,
  `pontos_atencao` text,
  `data` datetime default NULL,
  `posicao_atual` varchar(12) default NULL COMMENT 'Ativo ou Desativado',
  PRIMARY KEY  (`cod_dados`)
) ENGINE=InnoDB DEFAULT CHARSET=utf8;
Código da conexão:
<%
sub AbreConexao
Dim Servidor, usuario, senha, banco, string
 servidor = "localhost"
 usuario  = "root"
 senha    = "jeferson"
 banco    = "gd_dev"
'-- banco    = "bd_gd1"

 string = "driver={MySQL ODBC 5.1 Driver};server=" & servidor & ";"
 string = string & "uid=" & usuario & ";"
 string = string & "pwd=" & senha & ";"
 string = string & "database=" & banco

 Set conbd_gd = Server.CreateObject("ADODB.Connection")
 conbd_gd.ConnectionString = string
 conbd_gd.Open
end sub

sub FechaConexao
conbd_gd.close
set conbd_gd = nothing
end sub
%>

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

Visitante
Este tópico está impedido de receber novos posts.


  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...