• 0
Sign in to follow this  
jfranco

Erro Na Inserção De Registro No Access

Question

Boa tarde,

Estou tendo problemas na inserção de um novo registro em uma tabela do Access.

O código que uso é o seguinte:

<%	
Dim conJobSystems
Dim rsJobSystems
Dim SQLInsert
Dim BancoDados

Set conJobSystems = Server.CreateObject("ADODB.Connection")
Set rsJobSystems = Server.CreateObject("ADODB.Recordset")

conJobSystems.Provider = "Microsoft.Jet.OLEDB.4.0"
conJobSystems.ConnectionString = Server.MapPath("\Dados\JobSystems.mdb")

conJobSystems.Open

rsJobSystems.Activeconnection = conJobSystems
rsJobSystems.Cursortype = adOpenkeyset
%>

<!-- #include file="Include/Adovbs.inc"-->

<%
rsJobSystems.Locktype=adlockOptimistic
rsJobSystems.Source="TabClie"

SQLInsert = "Insert Into TabClie (EmpClie, NomeClie, CargoClie, EnderecoClie, EstadoClie, EmailClie, MensClie)"
SQLInsert = SQLInsert & " Values ("
SQLInsert = SQLInsert & "'" & Server.HTMLEncode(Request.FORM("empresa")) & "',"
SQLInsert = SQLInsert & "'" & Server.HTMLEncode(Request.FORM("nome")) & "',"
SQLInsert = SQLInsert & "'" & Server.HTMLEncode(Request.FORM("cargo")) & "',"
SQLInsert = SQLInsert & "'" & Server.HTMLEncode(Request.FORM("endereco")) & "',"
SQLInsert = SQLInsert & "'" & Server.HTMLEncode(Request.FORM("estado")) & "',"
SQLInsert = SQLInsert & "'" & Server.HTMLEncode(Request.FORM("e_mail")) & "',"
SQLInsert = SQLInsert & "'" & Server.HTMLEncode(Request.FORM("msg")) & "')"

conJobSystems.Execute(SQLInsert)

conJobSystems.Close

Set BancoDados = Nothing
Set rsJobSystems = Nothing
Set conJobSystems = Nothing
%>
[/codebox]

O problema é que está criando registros cujos campos ficam em branco.

Alguém pode me ajudar a descobrir o que há de errado no código acima?

Obrigado.

Share this post


Link to post
Share on other sites

4 answers to this question

Recommended Posts

  • 0

Na verdade, acabei me tocando que eu mesmo fiz uma burrada: no código acima, aquelas variáveis que estão no bloco abaixo:

SQLInsert = "Insert Into TabClie (EmpClie, NomeClie, CargoClie, EnderecoClie, EstadoClie, EmailClie, MensClie)"
SQLInsert = SQLInsert & " Values ("
SQLInsert = SQLInsert & "'" & Server.HTMLEncode(Request.FORM("empresa")) & "',"
SQLInsert = SQLInsert & "'" & Server.HTMLEncode(Request.FORM("nome")) & "',"
SQLInsert = SQLInsert & "'" & Server.HTMLEncode(Request.FORM("cargo")) & "',"
SQLInsert = SQLInsert & "'" & Server.HTMLEncode(Request.FORM("endereco")) & "',"
SQLInsert = SQLInsert & "'" & Server.HTMLEncode(Request.FORM("estado")) & "',"
SQLInsert = SQLInsert & "'" & Server.HTMLEncode(Request.FORM("e_mail")) & "',"
SQLInsert = SQLInsert & "'" & Server.HTMLEncode(Request.FORM("msg")) & "')"[/codebox]

vieram de outro formulário. Aí, acabei me mancando e percebi que esqueci de "enviá-las" da página "verifica.asp" para a página "resposta.asp". O único problema é que em "verifica.asp" não existe um 'form' para enviar os dados como acontece com as variáveis da página "verifica.asp" que foram recebidas da página "faleconosco.asp" onde há um 'form'.

Está claro agora o problema? Se alguém puder me dar uma dica, agradeço.

Edited by jfranco

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this