6 replies to this topic

[Lengrat]

Galera, o que há de errado com meus inserts?

[Microsoft][Driver ODBC para Microsoft Access] Erro de sintaxe na instrução INSERT INTO.

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% Option Explicit %>
<% 'insere usuario
Dim conexao, rs, sql, usuario, matricula, dsn, rs2, sql2, id_dep, rsVerifica, hora_completa, hora, minuto, data_completa, dia, mes,
ano, solicitacao, descricao
usuario= TRIM(request.form("usuario"))
matricula= TRIM(request.form("matricula"))
solicitacao= TRIM(request.form("solicitacao"))
id_dep= TRIM(request.Form("departamento"))
descricao= TRIM(request.Form("descricao"))
hora=Hour(now)
minuto=Minute(now)
dia=Day(date)
mes=Month(now)
ano=Year(now)
hora_completa=hora & ":" & minuto
data_completa=dia & "/" & mes & "/" & ano
sql="insert into solicitacao(num_sol,hr_1,dt_1,desc) values('"&solicitacao&"','"&hora_completa&"','"&data_completa&"','"&descricao&"')"
sql2="insert into solicitacao_usuario(num_sol,matricula,nm_func,id_dep,hr_1,dt_1,desc) values('"&solicitacao&"','"&matricula&"','"&usuario&"','"&id_dep&"','"&hora_completa&"','"&data_completa&"','"&descricao&"')"
Set conexao= server.CreateObject("ADODB.Connection")
dsn = "d:\web\insite3d\dados\sigesa.mdb"
conexao.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & dsn& ";"
Set rsVerifica = conexao.Execute("Select matricula from lotacao Where matricula= "+matricula+" AND nm_func='"+usuario+"' AND id_dep='"+id_dep+"' ")
If rsVerifica.EOF <> True Then
set rs=conexao.execute(sql)
set rs=Nothing
set rs2=conexao.execute(sql2)
set rs2=Nothing
response.Redirect("confirmacao_solicitacao.htm")
Else
Response.write "<p>&nbsp;</p>"
response.write "<p><center><img src='http://www.aspecto.net/sigesa/imagens/logopeq.gif'></center>"
response.write "<br>"
Response.Write "<center><strong><font size=2 face=Verdana, Arial, Helvetica, sans-serif>Dados incorretos!</font></strong></center><p><center><img src='http://www.aspecto.net/sigesa/imagens/gif/fechar.gif'</img></center>"
Response.End
End If
%>

Parece estar certinho, mas tá dando erro.

Edição feita por: Lengrat, 17/10/2003, 00:08.

[UweedI]

Qual erro esta dando???
vc possui campo chave primaria nesta tabela??

[Lengrat]

Qual o erro? eu tinha descrito la em cima

[Microsoft][Driver ODBC para Microsoft Access] Erro de sintaxe na instrução INSERT INTO.

Sim.. tudo relacionado e indexado. O problema é que o erro que dá não é em relação a parâmentros, identificador esperado ou coisa do tipo.. ele Xia erro de Sintaxe mesmo..eu hein.

[knoxville]

tente assim:
sql = "insert into solicitacao(num_sol,hr_1,dt_1,desc) values '"& solicitacao &"', '"& hora_completa &"', '"& data_completa &"', '"&descricao&"'"
vlw!

[crazybaby]

tente assim:
sql = "insert into solicitacao(num_sol,hr_1,dt_1,desc) values '"& solicitacao &"', '"& hora_completa &"', '"& data_completa &"', '"&descricao&"'"
vlw!

knox achuq assim naum vai funcionar!



DIKA: Verifique os request!Você pode ter errado em algum

[UweedI]

i ai cara experimenta verificar o sql resultante, desta forma:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% Option Explicit %>
<% 'insere usuario
Dim conexao, rs, sql, usuario, matricula, dsn, rs2, sql2, id_dep, rsVerifica, hora_completa, hora, minuto, data_completa, dia, mes,
ano, solicitacao, descricao
usuario= TRIM(request.form("usuario"))
matricula= TRIM(request.form("matricula"))
solicitacao= TRIM(request.form("solicitacao"))
id_dep= TRIM(request.Form("departamento"))
descricao= TRIM(request.Form("descricao"))
hora=Hour(now)
minuto=Minute(now)
dia=Day(date)
mes=Month(now)
ano=Year(now)
hora_completa=hora & ":" & minuto
data_completa=dia & "/" & mes & "/" & ano
sql="insert into solicitacao(num_sol,hr_1,dt_1,desc) values('"&solicitacao&"','"&hora_completa&"','"&data_completa&"','"&descricao&"')"
sql2="insert into solicitacao_usuario(num_sol,matricula,nm_func,id_dep,hr_1,dt_1,desc) values('"&solicitacao&"','"&matricula&"','"&usuario&"','"&id_dep&"','"&hora_completa&"','"&data_completa&"','"&descricao&"')"

response.write "sql="& sql&"<br>"

response.write "sql2="& sql2&"<br>"

response.end

Set conexao= server.CreateObject("ADODB.Connection")
dsn = "d:\web\insite3d\dados\sigesa.mdb"
conexao.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & dsn& ";"
Set rsVerifica = conexao.Execute("Select matricula from lotacao Where matricula= "+matricula+" AND nm_func='"+usuario+"' AND id_dep='"+id_dep+"' ")
If rsVerifica.EOF <> True Then
set rs=conexao.execute(sql)
set rs=Nothing
set rs2=conexao.execute(sql2)
set rs2=Nothing
response.Redirect("confirmacao_solicitacao.htm")
Else
Response.write "<p>&nbsp;</p>"
response.write "<p><center><img src='http://www.aspecto.net/sigesa/imagens/logopeq.gif'></center>"
response.write "<br>"
Response.Write "<center><strong><font size=2 face=Verdana, Arial, Helvetica, sans-serif>Dados incorretos!</font></strong></center><p><center><img src='http://www.aspecto.net/sigesa/imagens/gif/fechar.gif'</img></center>"
Response.End
End If
%>


depois disso pegue o resultado obtido no browser e tente executar diretamente no banco, se der certo o erro deve estar na sua conexão ou algo assim, caso de erro dai deve ser incompatibilidade de dados ou sei la, mas fazendo isso no minimo vc vai ter como saber se os dados estão entrando corretamente, acredito que com isso vc consiga resolver seu problema.

[]'s
Uweedy

[K I L L I N G]

Olha soh eu naum li td mas o que deu para perceber foi o que estava acontecento comigo... usando a sintaxe do SQL para inserir muitos dados ele se enbola e naum consegue inserir use a sintaxe do RS...

rs.addNew
rs("nome")=nome
rs.update

onde rs.("nome") vc vai colocando tds os dados para inserir valew?

FUI