[RESOLVIDO]Nao conheço esse erro

[Hugo Eyer 0]

Olha so pessoal,Eu estava excluindo alguns campos da minha tela do site que estou fazendo. Entao, exclui todos ate chegar no campo MUNICIPIO. E quando vou testar no site pra ver se ele foi excluido e se esta funcinando tudo perfeitamente aparece esse erro:Tipo de erro:Microsoft OLE DB Provider for SQL Server (0x80040E14)The name 'BA' is not permitted in this context. Only constants, expressions, or variables allowed here. Column names are not permitted./planejamento/CadAcionamento_exc.asp, line 66Alguem saberia me dizer que erro é esse ?Nao o conheco.No aguardo.Abraços

[Mário Monteiro 179]

qual esta linha de codigo?

[Hugo Eyer 0]

Nao entendi.

 

Vou te passar o Codigo.

 

Segue: -----------------

 

ASP

<!--#include file="conexao/conexao.asp" -->

<%

Set Conex = Server.Createobject("ADODB.Connection")

Conex.open PLANEJAMENTO_STRING

 

filial = REQUEST.FORM("filial")

area = REQUEST.FORM("area")

 

municipio = REQUEST.FORM("municipio")

projeto = TRIM(REQUEST.FORM("projeto"))

equipe = TRIM(REQUEST.FORM("equipe"))

tipoacionamento = TRIM(REQUEST.FORM("tipoacionamento"))

itemcontrato = REQUEST.FORM("itemcontrato")

itemhidden = REQUEST.FORM("itemhidden")

atividade = REPLACE(TRIM(REQUEST.FORM("atividade")), "'", "´")

solicitantetext = REPLACE(TRIM(REQUEST.FORM("solicitantetext")), "'", "´")

coordenadorsolic = REQUEST.FORM("coordenadorsolic")

qtdprevista = REPLACE(REQUEST.FORM("qtdprevista"), ",", ".")

obscadastrante = REPLACE(TRIM(REQUEST.FORM("obscadastrante")), "'", "´")

dtsolicitacao = REQUEST.FORM("dtsolicitacao")

numpedido = TRIM(REQUEST.Form("numpedido"))

numsnc = TRIM(REQUEST.Form("numsnc"))

  v = Right("0" & Mid(dtsolicitacao,4, 2),2) & "/" & Right("0" & Left(dtsolicitacao, 2),2) & "/" & DatePart("yyyy", dtsolicitacao)

  v = Cdate(v)

   dtsolicitacao = v

 

 

IP = request.ServerVariables("REMOTE_ADDR")

LOGIN = REQUEST.Cookies("LOGIN_ACIONA")

 

 

 

SQL = "SELECT * FROM ULTIMO_NUM_ACIONAMENTO WHERE IDFILIAL = " & FILIAL

SQL = SQL & " AND IDAREA = " & AREA

SQL = SQL & " AND ANO = YEAR(GETDATE())"

SET rsULTIMO_NUM = CONEX.EXECUTE(SQL)

 

IF rsULTIMO_NUM.EOF THEN

        ULTIMO_NUMERO = 1

ELSE

        ULTIMO_NUMERO = rsULTIMO_NUM("IDACIONAMENTO_ULTIMO") + 1

END IF

rsULTIMO_NUM.CLOSE

SET rsULTIMO_NUM = NOTHING

 

IF ULTIMO_NUMERO > 1 THEN

        SQL = "UPDATE ULTIMO_NUM_ACIONAMENTO SET IDACIONAMENTO_ULTIMO = " & ULTIMO_NUMERO

        SQL = SQL & " WHERE IDAREA = " & AREA & " AND IDFILIAL = " & FILIAL & " AND ANO = YEAR(GETDATE())"

ELSE

        SQL = "INSERT INTO ULTIMO_NUM_ACIONAMENTO (IDFILIAL, IDAREA, ANO, IDACIONAMENTO_ULTIMO) VALUES "

        SQL = SQL & "(" & FILIAL & "," & AREA & ", YEAR(GETDATE()), " & ULTIMO_NUMERO & ")"

END IF

 

SET rsULTIMO_NUMERO = CONEX.EXECUTE(SQL)

SET rsULTIMO_NUMERO = NOTHING

 

SQL = "INSERT INTO ACIONAMENTOS (IDACIONAMENTO, IDFILIAL, IDAREA, ANO, IDPROJETO, IDEQUIPE, IDTIPOACIONAMENTO, ATIVIDADE, SOLICITANTETEXT, IDMUNICIPIO, IDITEM, "

SQL = SQL & "QTDPREVISTA, DTSOLICITACAO, LOGINCADASTRANTE, IPCADASTRANTE, DTCADASTRO, OBSCADASTRANTE, "

SQL = SQL & "LOGINCOORDSOLIC, NUMPEDIDO, NUMSNC) VALUES (" & ULTIMO_NUMERO & ", "

SQL = SQL & FILIAL & ", " & AREA & ", '" & YEAR(NOW) & "', '" & PROJETO & "', '" & EQUIPE & "', '" & TIPOACIONAMENTO & "', '" & ATIVIDADE &"', '" & SOLICITANTETEXT &"', "

SQL = SQL & MUNICIPIO & ", '" & ITEMHIDDEN & "', '"& QTDPREVISTA & "', '" & DTSOLICITACAO & "', '"

SQL = SQL & LOGIN & "', '" & IP & "', GETDATE(), '" & OBSCADASTRANTE & "','"

SQL = SQL & COORDENADORSOLIC &"', '"& NUMPEDIDO &"', '"& NUMSNC &"')"

'RESPONSE.Write SQL

'RESPONSE.End()

SET rsINSERE = CONEX.EXECUTE(SQL)

SET rsINSERE = NOTHING

 

SQL = "INSERT INTO ACIONAMENTOS_HST (IDACIONAMENTO, IDFILIAL, IDAREA, ANO, IDPROJETO, IDEQUIPE, IDTIPOACIONAMENTO, ATIVIDADE, SOLICITANTETEXT, IDMUNICIPIO, IDITEM, "

SQL = SQL & "QTDPREVISTA, QTDREALIZADA, DTSOLICITACAO, "

SQL = SQL & "OBSCADASTRANTE, LOGINACOMP, IPACOMP, DTINICIOREAL, "

SQL = SQL & "DTFIMREAL, ANDAMENTO, LOGINEXECUTOR1, LOGINEXECUTOR2, OBSACOMP, DTSTATUSSERVICO, "

SQL = SQL & "LOGINSTATUSSERVICO, IPSTATUSSERVICO, OBSSTATUSSERVICO, DTALTERACAO, LOGINALTERACAO, "

SQL = SQL & "DTCANCELAMENTO, LOGINCANCELAMENTO, IPCANCELAMENTO, OBSCANCELAMENTO, IPALTERACAO, LOGINCOORDSOLIC, LOGINCADASTRANTE, IPCADASTRANTE, DTCADASTRO, NUMPEDIDO, NUMSNC) "

SQL = SQL & "SELECT IDACIONAMENTO, IDFILIAL, IDAREA, ANO, IDPROJETO, IDEQUIPE, IDTIPOACIONAMENTO, ATIVIDADE, SOLICITANTETEXT, IDMUNICIPIO, IDITEM, "

SQL = SQL & "QTDPREVISTA, QTDREALIZADA, DTSOLICITACAO, "

SQL = SQL & "OBSCADASTRANTE, LOGINACOMP, IPACOMP, DTINICIOREAL, "

SQL = SQL & "DTFIMREAL, ANDAMENTO, LOGINEXECUTOR1, LOGINEXECUTOR2, OBSACOMP, DTSTATUSSERVICO, "

SQL = SQL & "LOGINSTATUSSERVICO, IPSTATUSSERVICO, OBSSTATUSSERVICO, DTALTERACAO, LOGINALTERACAO, "

SQL = SQL & "DTCANCELAMENTO, LOGINCANCELAMENTO, IPCANCELAMENTO, OBSCANCELAMENTO, IPALTERACAO, LOGINCOORDSOLIC, LOGINCADASTRANTE, IPCADASTRANTE, DTCADASTRO, NUMPEDIDO, NUMSNC"

SQL = SQL & " FROM ACIONAMENTOS WHERE IDFILIAL = " & FILIAL

SQL = SQL & " AND IDAREA = "& AREA & " AND ANO = CAST(YEAR(GETDATE()) AS VARCHAR) AND IDACIONAMENTO = " & ULTIMO_NUMERO

'RESPONSE.Write SQL

'RESPONSE.End()

SET rsHST = CONEX.EXECUTE(SQL)

SET rsHST = NOTHING

 

 

RESPONSE.REDIRECT "detalhes.asp?idfilial="&filial&"&idarea="&area&"&ano="&year(now)&"&idacionamento="&ULTIMO_NUMERO

%>

 

------------------

 

OBS: Nesse codigo esta presente o campo MUNICIPIO, o qual eu quero tirar. E quando eu tiro que da esse erro:

 

Tipo de erro:

Microsoft OLE DB Provider for SQL Server (0x80040E14)

The name 'BA' is not permitted in this context. Only constants, expressions, or variables allowed here. Column names are not permitted.

/planejamento/CadAcionamento_exc.asp, line 66

 

Obrigado

 

Abraços

[Mário Monteiro 179]

Ainda nao entendi de onde vem este BAcomo e de onde esta tirando o MUNICIPIO, so no insert mesmo? tira o nome da coluna e tambem o seu valor?

[Hugo Eyer 0]

Este BA vem de quando eu vou inserir um projeto da FILIAL ( Outro campo ) Bahia.Só no insert, mas acho que ele tem alguma ligacao com a area e a filial. Por isso da esse problema. Mas nao sei como resolve-lo.=/

[Mário Monteiro 179]

de um response.write no resultado final de sua consulta para vermos o que está sendo feito de fato pela pagina e poste aqui o resultado

[Mário Monteiro 179]

geralmente o erro por uso de palavra reservado é outro, erro de sintaxe

[Mário Monteiro 179]

bem estou aguardando ele postar o resultado do que pedi, ficará mais facil de opinar sobre o erro

[jrcardozo 4]

bom...primeiramente, o erro ocorre em qual das tentativas de execussão do sql? no insert ou no select?

 

outro detalhe, no selct você está fazendo assim

 

SQL = SQL & "SELECT IDACIONAMENTO, IDFILIAL, IDAREA, ANO, IDPROJETO, IDEQUIPE, IDTIPOACIONAMENTO, ATIVIDADE, SOLICITANTETEXT, IDMUNICIPIO, IDITEM, "

 

Perceba que a variavel SQL está sendo incrementada e o os dados existentes nela já é uma instrução insert, tem erro ai, não incremente!

 

Uma dica, para instruções update,delete e insert não é necessário crair o objeto recordset, basta colocar CONEX.execute(sql)

 

 

Ahh...não esqueça de fazer o que o Mário pediu...facilita pra ajudar

[Hugo Eyer 0]

Entao pessoal, agradeco muito a ajuda.O resultado com o response.write ficou assim:INSERT INTO ACIONAMENTOS (IDACIONAMENTO, IDFILIAL, IDAREA, ANO, IDPROJETO, IDEQUIPE, IDTIPOACIONAMENTO, ATIVIDADE, SOLICITANTETEXT, IDITEM, QTDPREVISTA, DTSOLICITACAO, LOGINCADASTRANTE, IPCADASTRANTE, DTCADASTRO, OBSCADASTRANTE, LOGINCOORDSOLIC, NUMPEDIDO, NUMSNC) VALUES (30, 13, 15, '2007', '1', '2', '1', '123', '123', RJ-A.0', '123', '9/3/2007', 'U43873 ', '127.0.0.1', GETDATE(), '123','u43873', '123', '123')E com o mesmo erro.Obrigado a todos. Espero conseguir resolver o erro.

[Mário Monteiro 179]

onde ficou aquele BA que estava dando erro??este GETDATE() nao esta gerando a data da forma que está

[Hugo Eyer 0]

Nao sei onde esta o "BA". Eu apenas tirei o municipio do insert e coloquei para gerar como response.write.Esse getdate gera a data atual apenas. E esta gerando sim. So que no banco de dados.E agora nao sei pq nao saiu o BA na query.

[Mário Monteiro 179]

mas no erro ainda tem este BA?

[Hugo Eyer 0]

Nao. Agora é um RJ.Tipo de erro:Microsoft OLE DB Provider for SQL Server (0x80040E14)The name 'RJ' is not permitted in this context. Only constants, expressions, or variables allowed here. Column names are not permitted./planejamento/CadAcionamento_exc.asp, line 66Segue o codigo: -----------<!--#include file="conexao/conexao.asp" --><%Set Conex = Server.Createobject("ADODB.Connection")Conex.open PLANEJAMENTO_STRINGfilial = REQUEST.FORM("filial")area = REQUEST.FORM("area")projeto = TRIM(REQUEST.FORM("projeto"))equipe = TRIM(REQUEST.FORM("equipe"))tipoacionamento = TRIM(REQUEST.FORM("tipoacionamento"))itemcontrato = REQUEST.FORM("itemcontrato")itemhidden = REQUEST.FORM("itemhidden")atividade = REPLACE(TRIM(REQUEST.FORM("atividade")), "'", "´")solicitantetext = REPLACE(TRIM(REQUEST.FORM("solicitantetext")), "'", "´")coordenadorsolic = REQUEST.FORM("coordenadorsolic")qtdprevista = REPLACE(REQUEST.FORM("qtdprevista"), ",", ".")obscadastrante = REPLACE(TRIM(REQUEST.FORM("obscadastrante")), "'", "´")dtsolicitacao = REQUEST.FORM("dtsolicitacao")numpedido = TRIM(REQUEST.Form("numpedido"))numsnc = TRIM(REQUEST.Form("numsnc")) v = Right("0" & Mid(dtsolicitacao,4, 2),2) & "/" & Right("0" & Left(dtsolicitacao, 2),2) & "/" & DatePart("yyyy", dtsolicitacao) v = Cdate(v) dtsolicitacao = vIP = request.ServerVariables("REMOTE_ADDR")LOGIN = REQUEST.Cookies("LOGIN_ACIONA")SQL = "SELECT * FROM ULTIMO_NUM_ACIONAMENTO WHERE IDFILIAL = " & FILIALSQL = SQL & " AND IDAREA = " & AREASQL = SQL & " AND ANO = YEAR(GETDATE())"SET rsULTIMO_NUM = CONEX.EXECUTE(SQL)IF rsULTIMO_NUM.EOF THEN ULTIMO_NUMERO = 1ELSE ULTIMO_NUMERO = rsULTIMO_NUM("IDACIONAMENTO_ULTIMO") + 1END IFrsULTIMO_NUM.CLOSESET rsULTIMO_NUM = NOTHINGIF ULTIMO_NUMERO > 1 THEN SQL = "UPDATE ULTIMO_NUM_ACIONAMENTO SET IDACIONAMENTO_ULTIMO = " & ULTIMO_NUMERO SQL = SQL & " WHERE IDAREA = " & AREA & " AND IDFILIAL = " & FILIAL & " AND ANO = YEAR(GETDATE())"ELSE SQL = "INSERT INTO ULTIMO_NUM_ACIONAMENTO (IDFILIAL, IDAREA, ANO, IDACIONAMENTO_ULTIMO) VALUES " SQL = SQL & "(" & FILIAL & "," & AREA & ", YEAR(GETDATE()), " & ULTIMO_NUMERO & ")"END IFSET rsULTIMO_NUMERO = CONEX.EXECUTE(SQL)SET rsULTIMO_NUMERO = NOTHINGSQL = "INSERT INTO ACIONAMENTOS (IDACIONAMENTO, IDFILIAL, IDAREA, ANO, IDPROJETO, IDEQUIPE, IDTIPOACIONAMENTO, ATIVIDADE, SOLICITANTETEXT, IDITEM, "SQL = SQL & "QTDPREVISTA, DTSOLICITACAO, LOGINCADASTRANTE, IPCADASTRANTE, DTCADASTRO, OBSCADASTRANTE, "SQL = SQL & "LOGINCOORDSOLIC, NUMPEDIDO, NUMSNC) VALUES (" & ULTIMO_NUMERO & ", "SQL = SQL & FILIAL & ", " & AREA & ", '" & YEAR(NOW) & "', '" & PROJETO & "', '" & EQUIPE & "', '" & TIPOACIONAMENTO & "', '" & ATIVIDADE &"', '" & SOLICITANTETEXT &"', "SQL = SQL & ITEMHIDDEN & "', '"& QTDPREVISTA & "', '" & DTSOLICITACAO & "', '"SQL = SQL & LOGIN & "', '" & IP & "', GETDATE(), '" & OBSCADASTRANTE & "','"SQL = SQL & COORDENADORSOLIC &"', '"& NUMPEDIDO &"', '"& NUMSNC &"')"'RESPONSE.Write SQL 'RESPONSE.End()SET rsINSERE = CONEX.EXECUTE(SQL)SET rsINSERE = NOTHINGSQL = "INSERT INTO ACIONAMENTOS_HST (IDACIONAMENTO, IDFILIAL, IDAREA, ANO, IDPROJETO, IDEQUIPE, IDTIPOACIONAMENTO, ATIVIDADE, SOLICITANTETEXT, IDITEM, "SQL = SQL & "QTDPREVISTA, QTDREALIZADA, DTSOLICITACAO, "SQL = SQL & "OBSCADASTRANTE, LOGINACOMP, IPACOMP, DTINICIOREAL, "SQL = SQL & "DTFIMREAL, ANDAMENTO, LOGINEXECUTOR1, LOGINEXECUTOR2, OBSACOMP, DTSTATUSSERVICO, "SQL = SQL & "LOGINSTATUSSERVICO, IPSTATUSSERVICO, OBSSTATUSSERVICO, DTALTERACAO, LOGINALTERACAO, "SQL = SQL & "DTCANCELAMENTO, LOGINCANCELAMENTO, IPCANCELAMENTO, OBSCANCELAMENTO, IPALTERACAO, LOGINCOORDSOLIC, LOGINCADASTRANTE, IPCADASTRANTE, DTCADASTRO, NUMPEDIDO, NUMSNC) "SQL = SQL & "SELECT IDACIONAMENTO, IDFILIAL, IDAREA, ANO, IDPROJETO, IDEQUIPE, IDTIPOACIONAMENTO, ATIVIDADE, SOLICITANTETEXT, IDITEM, "SQL = SQL & "QTDPREVISTA, QTDREALIZADA, DTSOLICITACAO, "SQL = SQL & "OBSCADASTRANTE, LOGINACOMP, IPACOMP, DTINICIOREAL, "SQL = SQL & "DTFIMREAL, ANDAMENTO, LOGINEXECUTOR1, LOGINEXECUTOR2, OBSACOMP, DTSTATUSSERVICO, "SQL = SQL & "LOGINSTATUSSERVICO, IPSTATUSSERVICO, OBSSTATUSSERVICO, DTALTERACAO, LOGINALTERACAO, "SQL = SQL & "DTCANCELAMENTO, LOGINCANCELAMENTO, IPCANCELAMENTO, OBSCANCELAMENTO, IPALTERACAO, LOGINCOORDSOLIC, LOGINCADASTRANTE, IPCADASTRANTE, DTCADASTRO, NUMPEDIDO, NUMSNC"SQL = SQL & " FROM ACIONAMENTOS WHERE IDFILIAL = " & FILIALSQL = SQL & " AND IDAREA = "& AREA & " AND ANO = CAST(YEAR(GETDATE()) AS VARCHAR) AND IDACIONAMENTO = " & ULTIMO_NUMERO'RESPONSE.Write SQL 'RESPONSE.End()SET rsHST = CONEX.EXECUTE(SQL)SET rsHST = NOTHINGRESPONSE.REDIRECT "detalhes.asp?idfilial="&filial&"&idarea="&area&"&ano="&year(now)&"&idacionamento="&ULTIMO_NUMERO%>---------A diferenca desse para o outro é que eu tirei o campo idmunicipio no insert.Att.

[Mário Monteiro 179]

voce esta concatenando um INSERT e um SELECT?

[Hugo Eyer 0]

Po... Eu acho que nao. O select que tem nesse codigo é de outra tabela de outra coisa...Esse insert que da o erro eh apenas um insert mesmo...

[Mário Monteiro 179]

é verdade

 

...................

 

Cansado de tentar procurar solução neste seu problema, fui ao nosso pai dos burros na web o http://forum.imasters.com.br/public/style_emoticons/default/searchbeforeposting.gif

 

La vi que este erro é uma outra forma de erro de tipos

 

veja

 

http://help.maximumasp.com/SmarterTicket/C...x?articleid=380

 

Verifique os campos que sao numericos e strings em seu DB e na sua query os que forem numericos coloque sem as aspas e os que forem com as aspas

[Hugo Eyer 0]

Valeu ai brother. Obrigado.Estava faltando apenas uma aspas simples no item.Abraço

[Mário Monteiro 179]

que bom que resolveu tiozinhoparabens