Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

mcdg

Erro ao inserir dados no bd

Por , em ASP Clássico

Recommended Posts

mcdg    0

mcdg
Postado

Pessoal, tenho uma página para inserir dados no bd, mas tá dando o seguinte erro...

Microsoft JET Database Engine error '80040e14' Syntax error in INSERT INTO statement. /adm/agenda/inserir.asp, line 115

o código é esse, quem puder ajudar a solucionar eu agradeço
<%@LANGUAGE="VBSCRIPT"%><!--#include file="../../Connections/dados.asp" --><%' *** Edit Operations: declare variablesDim MM_editActionDim MM_abortEditDim MM_editQueryDim MM_editCmdDim MM_editConnectionDim MM_editTableDim MM_editRedirectUrlDim MM_editColumnDim MM_recordIdDim MM_fieldsStrDim MM_columnsStrDim MM_fieldsDim MM_columnsDim MM_typeArrayDim MM_formValDim MM_delimDim MM_altValDim MM_emptyValDim MM_iMM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Request.QueryStringEnd If' boolean to abort record editMM_abortEdit = false' query string to executeMM_editQuery = ""%><%' *** Insert Record: set variablesIf (CStr(Request("MM_insert")) = "form1") Then MM_editConnection = MM_dados_STRING MM_editTable = "agenda" MM_editRedirectUrl = "../../agenda.asp" MM_fieldsStr  = "evento|value|data|value|local|value|endereco|value|horario|value|showcom|value|entrada|value|apoio|value" MM_columnsStr = "evento|',none,''|data|',none,''|local|',none,''|endereco|',none,''|horario|',none,''|showscom|',none,''|entrada|',none,''|apoio|',none,''" ' create the MM_fields and MM_columns arrays MM_fields = Split(MM_fieldsStr, "|") MM_columns = Split(MM_columnsStr, "|")  ' set the form values For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2   MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i))) Next ' append the query string to the redirect URL If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then   If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then     MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString   Else     MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString   End If End IfEnd If%><%' *** Insert Record: construct a sql insert statement and execute itDim MM_tableValuesDim MM_dbValuesIf (CStr(Request("MM_insert")) <> "") Then ' create the sql insert statement MM_tableValues = "" MM_dbValues = "" For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2   MM_formVal = MM_fields(MM_i+1)   MM_typeArray = Split(MM_columns(MM_i+1),",")   MM_delim = MM_typeArray(0)   If (MM_delim = "none") Then MM_delim = ""   MM_altVal = MM_typeArray(1)   If (MM_altVal = "none") Then MM_altVal = ""   MM_emptyVal = MM_typeArray(2)   If (MM_emptyVal = "none") Then MM_emptyVal = ""   If (MM_formVal = "") Then     MM_formVal = MM_emptyVal   Else     If (MM_altVal <> "") Then       MM_formVal = MM_altVal     ElseIf (MM_delim = "'") Then  ' escape quotes       MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'"     Else       MM_formVal = MM_delim + MM_formVal + MM_delim     End If   End If   If (MM_i <> LBound(MM_fields)) Then     MM_tableValues = MM_tableValues & ","     MM_dbValues = MM_dbValues & ","   End If   MM_tableValues = MM_tableValues & MM_columns(MM_i)   MM_dbValues = MM_dbValues & MM_formVal Next MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")" If (Not MM_abortEdit) Then   ' execute the insert   Set MM_editCmd = Server.CreateObject("ADODB.Command")   MM_editCmd.ActiveConnection = MM_editConnection   MM_editCmd.CommandText = MM_editQuery   MM_editCmd.Execute   MM_editCmd.ActiveConnection.Close   If (MM_editRedirectUrl <> "") Then     Response.Redirect(MM_editRedirectUrl)   End If End IfEnd If%><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"><html><head><title>Documento sem título</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong>Inserir eventos</strong></font><br><form name="form1" method="POST" action="<%=MM_editAction%>"> <table width="38%" border="0">   <tr>      <td width="26%"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Evento        :</font></td>     <td width="74%"><input name="evento" type="text" id="evento"></td>   </tr>   <tr>      <td><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Data : </font></td>     <td><input name="data" type="text" id="data"></td>   </tr>   <tr>      <td><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Local :        </font></td>     <td><input name="local" type="text" id="local"></td>   </tr>   <tr>      <td><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Endereço        : </font></td>     <td><input name="endereco" type="text" id="endereco"></td>   </tr>   <tr>      <td><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Horário        :</font></td>     <td><input name="horario" type="text" id="horario"></td>   </tr>   <tr>      <td><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Show com        : </font></td>     <td><input name="showcom" type="text" id="showcom"></td>   </tr>   <tr>      <td><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Entrada        : </font></td>     <td><input name="entrada" type="text" id="entrada"></td>   </tr>   <tr>      <td><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Apoio :        </font></td>     <td><input name="apoio" type="text" id="apoio"></td>   </tr>   <tr>      <td> </td>     <td><input type="submit" name="Submit" value="Enviar"></td>   </tr> </table> <input type="hidden" name="MM_insert" value="form1"></form></body></html>
1,

Compartilhar este post

Link para o post
Compartilhar em outros sites

mcdg    0

mcdg
Postado

Esse foi o erro que apareceu...valew

Microsoft OLE DB Provider for ODBC Drivers error '80040e14' [Microsoft][ODBC Microsoft Access Driver] Syntax error in INSERT INTO statement. /grava.asp, line 9

1,

Compartilhar este post

Link para o post
Compartilhar em outros sites

cesar    0

cesar
Postado

Faz assim:

 

<%' Conexao com o banco de dadosSet Conexao = CreateObject("ADODB.CONNECTION")Constr ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath("bancodados.mdb")Conexao.Open Constr' Instrução Insert SQL sql = "INSERT INTO nome_da_tabela (campo1, campo2, campo3, campo4) VALUES("& Request.Form("campo1") &", "& Request.Form("campo2") &", "& Request.Form("campo3") &", "& Request.Form("campo4") &")"response.write sqlresponse.endConexao.Execute(sql)Response.Write "Dados gravados com sucesso"%>

 

e posta a mensagem q aparece na página.

Compartilhar este post

Link para o post
Compartilhar em outros sites

mcdg    0

mcdg
Postado

o que apareceu foi isso, porem nao entrou dados no bd

INSERT INTO agenda (evento, data, local, endereco, horario, showcom, entrada, apoio) VALUES(sadad, sadad, d, dd, d, d, d, d)

putz pessoal, to parecendo iniciante...é sempre uso o DW e nunca tive problemas no insert.....obrigado..1,

Compartilhar este post

Link para o post
Compartilhar em outros sites

WLJ    0

WLJ
Postado

o que apareceu foi isso, porem nao entrou dados no bd

INSERT INTO agenda (evento, data, local, endereco, horario, showcom, entrada, apoio) VALUES(sadad, sadad, d, dd, d, d, d, d)

putz pessoal, to parecendo iniciante...é sempre uso o DW e nunca tive problemas no insert.....obrigado..1,

o que apareceu foi isso, porem nao entrou dados no bd

Mas ele não executou a SQL porque tem um response.end()Tira ele.

Compartilhar este post

Link para o post
Compartilhar em outros sites

dimarcinho    0

dimarcinho
Postado

lembrando q na instrução sql, devemos usar: campo_numero = " & Request.Form("numero") & "campo_data = # " & Request.Form("data") & " #campo_texto = ' " & Request.Form("Texto") & " 'de repente eh isso!![]´s

Compartilhar este post

Link para o post
Compartilhar em outros sites

REDBULL    0

REDBULL
Postado

po..iso q dá ficar usando BD porcaria...deveria aprender a usar SQL, muito melhor e naum tem essas frescurinhas. fica usando Access po, isso é coisa do passado mermão...abraços

Compartilhar este post

Link para o post
Compartilhar em outros sites

mcdg    0

mcdg
Postado

ficou confuso pra ca...tentei todas as modificações e nada...ajudem - me por favor, já se completa 1 semana e meia e continua a dar erro ..... preciso estreiar o site dia 13 (DOMINGO).....até lá precisa estar funcionando..se algum irmão puder simplificar....é que sempre uso o DW, valew?1,

Compartilhar este post

Link para o post
Compartilhar em outros sites

WLJ    0

WLJ
Postado

ficou confuso pra ca...tentei todas as modificações e nada...ajudem - me por favor, já se completa 1 semana e meia e continua a dar erro ..... preciso estreiar o site dia 13 (DOMINGO).....até lá precisa estar funcionando..se algum irmão puder simplificar....é que sempre uso o DW, valew?1,

Kra... mais o que mais tem aqui no fórum é exemplo de SQL... INSERT... UPDATE... DELETE... é só pegar um.

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito