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

[Erro] ODBC Drivers error

Martinsrj

Perguntado por Martinsrj,

 Share

Pergunta

Martinsrj

Martinsrj

Postado
Postado

Olá pessoal, tudo bom?

Estou com dificuldade com o seguinte erro:

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[MySQL][ODBC 5.1 Driver][mysqld-5.1.35-community]You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near ')' at line 1

/conteudo/grupo_demanda/cod/ins.dados.asp, line 31

OBS.: a linha 31 é essa: Set rsInsere = conbd_gd1.Execute(strINS)

Codigo da pagina que trata a insercao de dados é essa:

ins.dados.asp

<% Option Explicit %>
<!--#Include file="conexao.asp"-->
<%
Dim conbd_gd1, rsInsere, strINS, var_status, var_id, var_sistema, var_descricao, var_cod_grupo, var_observacao, var_fase, var_plano_entrega, var_dt_inc

var_status = TRIM(Request.Form("txt_status"))
var_id = TRIM(Request.Form("txt_id"))
var_sistema = TRIM(Request.Form("txt_sistema"))
var_descricao = TRIM(Request.Form("txt_descricao"))
var_cod_grupo = 1
var_observacao = TRIM(Request.Form("txt_observacao"))
var_fase = TRIM(Request.Form("txt_fase"))
var_plano_entrega = TRIM(Request.Form("txt_plano_entrega"))
var_dt_inc = date

strINS = "INSERT into tab_dados "
strINS = strINS & "(status, id, sistema, descricao, cod_grupo, observacao, fase, plano_entrega, dt_inc)"

strINS = strINS & "VALUES ('" & var_status & "',"
strINS = strINS & "'" & var_id & "',"
strINS = strINS & "'" & var_sistema & "'," 
strINS = strINS & "'" & var_descricao & "'," 
strINS = strINS & var_cod_grupo & ","
strINS = strINS & "'" & var_observacao & "',"
strINS = strINS & "'" & var_fase & "',"
strINS = strINS & "'" & var_plano_entrega & "',"
strINS = strINS & "'" & var_dt_inc & "',"
strINS = strINS & ")"

Call AbreConexao
Set rsInsere = conbd_gd1.Execute(strINS)
'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_id & " foi incluído com sucesso!</font></b><br>
        Else
            response.write ("Erro: " + err.description)
        End if

rsInsere.close
Call FechaConexao
set rsInsere = Nothing
%>
Aqui segue a tabela: 
cod_dados     int(10)             (NULL)                NO      PRI     (NULL)                    
status           varchar(100)     utf8_general_ci    YES             (NULL)                  
id                 varchar(10)       utf8_general_ci    YES             (NULL)                    
sistema         varchar(20)        utf8_general_ci    YES           (NULL)                    
descricao       text                   utf8_general_ci    YES            (NULL)                    
cod_grupo     varchar(12)        utf8_general_ci    YES           (NULL)                    
observacao    text                   utf8_general_ci    YES           (NULL)                    
fase              varchar(20)        utf8_general_ci    YES           (NULL)                    
plano_entrega   text                 utf8_general_ci    YES          (NULL)                    
dt_inc            datetime            (NULL)                 YES           (NULL)

Link para o comentário
Compartilhar em outros sites

6 respostass a esta questão

Posts Recomendados

  • 0
Martinsrj

Martinsrj

Postado
  • Autor
Postado

Aparece o seguinte em tela:

INSERT into tab_dados (status, id, sistema, descricao, cod_grupo, observacao, fase, plano_entrega, dt_inc)VALUES ('Ativo','40','Mobile','Clientes que fizeram port-out e desejam retornar via port-in no período de quarentena.',1,'Planejamento informado em 24/06','Em correção','Homologação: 19/07 Produção: 25/07','7/2/2009',)

Aqui segue o minha tabela e o formato dos dados:

4c5952bb714ecc823045c540e6ca2c34.jpg

da um debug lá...

Call AbreConexao
Set rsInsere = conbd_gd1.Execute(strINS)
por 
Call AbreConexao
'conbd_gd1.Execute(strINS)
response.write strINS
response.end()

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

Martinsrj

Postado
  • Autor
Postado (editado)

Olá Bareta, bom dia!

Fiz algumas motificações no codigo e agora está cadastrando normalmente, inclusive no campo data com o seguinte formato: 2009-07-03 12:42:07

porem dando esse erro em tela:

Cadastro realizado com sucesso

Microsoft VBScript runtime error '800a01a8'

Object required: ''

/conteudo/grupo_demanda/cod/ins.dados.asp, line 55

OBS.: a linha 55 é essa: rsInsere.close

Segue o codigo atualizado:

<% Option Explicit %>
<!--#Include file="conexao.asp"-->
<%
Dim conbd_gd1, rsInsere, strINS, var_status, var_id, var_sistema, var_descricao, var_cod_grupo, var_observacao, var_fase, var_plano_entrega, var_dt_inc, data, hora, Minuto, Segundo

var_status = TRIM(Request.Form("txt_status"))
var_id = TRIM(Request.Form("txt_id"))
var_sistema = TRIM(Request.Form("txt_sistema"))
var_descricao = TRIM(Request.Form("txt_descricao"))
var_cod_grupo = 1
var_observacao = TRIM(Request.Form("txt_observacao"))
var_fase = TRIM(Request.Form("txt_fase"))
var_plano_entrega = TRIM(Request.Form("txt_plano_entrega"))

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)
data = (ConvertDataMySQL(Date())) & " " & hora & ":" & Minuto & ":" & Segundo


strINS = "INSERT into tab_dados "
strINS = strINS & "(status, id, sistema, descricao, cod_grupo, observacao, fase, plano_entrega, dt_inc) "

strINS = strINS & "VALUES ('" & var_status & "',"
strINS = strINS & "'" & var_id & "',"
strINS = strINS & "'" & var_sistema & "'," 
strINS = strINS & "'" & var_descricao & "'," 
strINS = strINS & var_cod_grupo & ","
strINS = strINS & "'" & var_observacao & "',"
strINS = strINS & "'" & var_fase & "',"
strINS = strINS & "'" & var_plano_entrega & "',"
strINS = strINS & "'" & data & "'"
strINS = strINS & ")"


Call AbreConexao
conbd_gd1.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_id & " foi incluído com sucesso!</font></b><br>
        Else
            response.write ("Erro: " + err.description)
        End if

rsInsere.close
Call FechaConexao
set rsInsere = Nothing
%>

Editado por Martinsrj
Link para o comentário
Compartilhar em outros sites
Visitante
Este tópico está impedido de receber novos posts.
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

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