Ir para conteúdo

POWERED BY:

Arquivado

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

Scarecrow

Erro na conexao de dados

Por , em ASP Clássico

Recommended Posts

Scarecrow    0

Scarecrow
Postado

Tipo de erro:Microsoft OLE DB Provider for ODBC Drivers (0x80004005)[Microsoft][Driver ODBC para Microsoft Access] A operação deve usar uma consulta atualizável./teste.asp, line 98O que pode estar errado neste codigo de inclusao????<html><head><title> :huh: :huh: </title></head><body><center><font face="Arial" size="4"><b>Formulário de Inclusão</b></h2></center><%If IsEmpty( Request.Form("submit") ) Then%><form method=post action="<%=Request.ServerVariables("script_name")%>"><table border=0 width="80%" align=center> <tr> <td align=right valign=top><font face="Arial" size="2">bairro:</font></td> <td align=left valign=top> <font face="Arial" size="2"> <input type=text name="bairro" value="" size=15 maxlength=50 style="{<font-family:Arial; font-size:12}"> </td> </tr> <tr> <td align=right valign=top><font face="Arial" size="2">cidade:</font></td> <td align=left valign=top> <font face="Arial" size="2"> <input type=text name="cidade" value="" size=15 maxlength=50 style="{<font-family:Arial; font-size:12}"> </td> </tr> <tr> <td align=right valign=top><font face="Arial" size="2">email:</font></td> <td align=left valign=top> <font face="Arial" size="2"> <input type=text name="email" value="" size=15 maxlength=50 style="{<font-family:Arial; font-size:12}"> </td> </tr> <tr> <td align=right valign=top><font face="Arial" size="2">endereco:</font></td> <td align=left valign=top> <font face="Arial" size="2"> <input type=text name="endereco" value="" size=15 maxlength=50 style="{<font-family:Arial; font-size:12}"> </td> </tr> <tr> <td align=right valign=top><font face="Arial" size="2">estado:</font></td> <td align=left valign=top> <font face="Arial" size="2"> <input type=text name="estado" value="" size=15 maxlength=50 style="{<font-family:Arial; font-size:12}"> </td> </tr> <tr> <td align=right valign=top><font face="Arial" size="2">login:</font></td> <td align=left valign=top> <font face="Arial" size="2"> <input type=text name="login" value="" size=15 maxlength=50 style="{<font-family:Arial; font-size:12}"> </td> </tr> <tr> <td align=right valign=top><font face="Arial" size="2">nome:</font></td> <td align=left valign=top> <font face="Arial" size="2"> <input type=text name="nome" value="" size=15 maxlength=50 style="{<font-family:Arial; font-size:12}"> </td> </tr> <tr> <td align=right valign=top><font face="Arial" size="2">senha:</font></td> <td align=left valign=top> <font face="Arial" size="2"> <input type=text name="senha" value="" size=15 maxlength=50 style="{<font-family:Arial; font-size:12}"> </td> </tr> <tr> <td align=right valign=top><font face="Arial" size="2">sobrenome:</font></td> <td align=left valign=top> <font face="Arial" size="2"> <input type=text name="sobrenome" value="" size=15 maxlength=50 style="{<font-family:Arial; font-size:12}"> </td> </tr> </font></table><center><input type=submit name=submit value=Incluir style="{<font-family:Arial; font-size:12}"></center></form><%Else If Not IsEmpty(Request.Form("submit")) AND Trim(Request.Form("bairro")) <> "" AND Trim(Request.Form("cidade")) <> "" AND Trim(Request.Form("email")) <> "" AND Trim(Request.Form("endereco")) <> "" AND Trim(Request.Form("estado")) <> "" AND Trim(Request.Form("login")) <> "" AND Trim(Request.Form("nome")) <> "" AND Trim(Request.Form("senha")) <> "" AND Trim(Request.Form("sobrenome")) <> "" Then Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open "DBQ=C:\Inetpub\wwwroot\Techmore\dados\cadcliente.mdb;Driver={Microsoft Access Driver (*.mdb)};" ComandoSQL = "INSERT INTO cadastro (bairro, cidade, email, endereco, estado, login, nome, senha, sobrenome)" ComandoSQL = ComandoSQL & " VALUES (" ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("bairro")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("cidade")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("email")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("endereco")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("estado")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("login")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("nome")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("senha")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("sobrenome")) & "')" Set bd = Conexao.Execute(ComandoSQL) Conexao.Close Set bd = Nothing Set Conexao = Nothing%> <font face="Arial" size="2"> <center><br>Os dados foram enviados com sucesso! <br><a href="index.asp"><b>Clique aqui</b></a> para continuar</font></center><% Else%> <font face="Arial" size="2"> <center><br>Atenção: Alguns dados necessário não foram preenchidos corretamente <br><a href="java script:history.go(-1)"><b>Clique aqui</b></a> para voltar</font></center><% End IfEnd If%></body></html>

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