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

Consulta Atualizável No Access. O Que é?


jfranco

Pergunta

Boa noite,

Estou tentando fazer a seguinte gravação de dados em Access:


<%
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

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)

rsJobSystems.close
conJobSystems.Close

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

Os dados são obtidos de um formulário como abaixo:

[codebox]
<form name="dados" method="post" onsubmit="return VerCampo()" action="verifica.asp">
<table align="center" cellspacing="0" cellpadding="10%" border="0">
<span class="style47">
<font size="1">
<tr>
<td colspan="4" align="center"><span class="style48">
<div align="center">
Informe seus dados e inclua sua mensagem.
</div>
</td>
</tr>
<tr>
<td align="right"><span class="style48">Empresa:</td>
<td colspan="2">
<input name="empresa" size="45" type="text" maxlength=50>
</td>
<td rowspan="5">
<textarea rows=15 cols=36 name="msg"></textarea>
</td>
</tr>
<tr>
<td align="right"><span class="style48">Nome:</td>
<td colspan="2">
<input name="nome" size="40" type="text" maxlength=40 onblur="Required(this)">
<font size="4" color="#ff0000">*</font>
</td>
</tr>
<tr>
<td align="right"><span class="style48">Cargo:</td>
<td colspan="2">
<input name="cargo" size="30" type="text" maxlength=30>
</td>
</tr>
<tr>
<td align="right"><span class="style48">Endereço:</td>
<td>
<input name="endereco" size="20" type="text" maxlength=40>
</td>
<td align="left"><span class="style48">Estado:
<select name="estado">
<option value=" "> </option>
<option value="AC" >AC</option>
<option value="AL" >AL</option>
<option value="AM" >AM</option>
<option value="AP" >AP</option>
<option value="BA" >BA</option>
<option value="CE" >CE</option>
<option value="DF" >DF</option>
<option value="ES" >ES</option>
<option value="GO" >GO</option>
<option value="MA" >MA</option>
<option value="MG" >MG</option>
<option value="MS" >MS</option>
<option value="muito" >muito</option>
<option value="PA" >PA</option>
<option value="PB" >PB</option>
<option value="PE" >PE</option>
<option value="PI" >PI</option>
<option value="PR" >PR</option>
<option value="RJ" >RJ</option>
<option value="RN" >RN</option>
<option value="RO" >RO</option>
<option value="RR" >RR</option>
<option value="RS" >RS</option>
<option value="SC" >SC</option>
<option value="SE" >SE</option>
<option value="SP" >SP</option>
<option value="TO" >TO</option>
</select>
</td>
</tr>
<tr>
<td align="right"><span class="style48">e-mail:</td>
<td colspan="2">
<input name="e_mail" size="45" type="text" maxlength=65 onblur="Required(this)">
<font size="4" color="#ff0000">*
</td>
</tr>
<tr>
<td colspan="3" align="left"><span class="style48">
<font size="4" color="#ff0000">* </font>
Campos obrigatórios
</td>
<td align="left">
<div align="center">
<input name="Enviar" type="submit" value="Enviar">

<input name="Apagar" type="reset" value="Apagar">
</div>
</td>
</tr>
</font>
</span>
</table>
</form>

O erro que aparece é o seguinte:

Tipo de erro:

Microsoft JET Database Engine (0x80004005)

A operação deve usar uma consulta atualizável.

/jobsystems/resposta.asp, line 39

A linha 39 mencionada acima é:

conJobSystems.Execute(SQLInsert)

Alguém pode me ajudar a entender o que está acontecendo? Obrigado.

Link para o comentário
Compartilhar em outros sites

6 respostass a esta questão

Posts Recomendados

  • 0

Andreia,

O que acontece com esse tópico que não abre? Pensei que fosse problema com meu browser (uso o Firefox versão 2.0.0.1); mas não adiantou quando tentei abrir com o IE 6; com o Opera versão 9.10, mesma coisa...

O que pode ser?

Obrigado.

PS: Refiro-me ao tópico http://scriptbrasil.com.br/forum/index.php?showtopic=28873

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,1k
    • Posts
      651,8k
×
×
  • Criar Novo...