rogerweplay

eu tentei dessa outra forma tb: <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <!--#include file = "conexao.asp"--> <% dim id_agenda id_agenda =request.QueryString("id_agenda") dim shut set shut = server.CreateObject("ADODB.connection") shut.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.MapPath("BD/bdIntra.mdb") dim RS, SQL Set RS = server.CreateObject("ADODB.Recordset") SQL ="DELETE FROM tbAgenda WHERE id_agenda='"& id_agenda &"'" Set RS = shut.execute(SQL) %> que tb deu erro de sintaxe(operador faltando) na expressão de consulta 'id_agenda=' na linha 15: Set RS = shut.execute(SQL)

na verdade eu não tinha mudado, eu so não percebi que tinha me dado o feedback do id_agenda,, so depois que eu fui responder,,, se ele me deu o mesmo id_agenda da onde eu cliquei, quer dizer que o id_agenda esta sendo indentificado, so não esta deletando a coluna

SQL: delete from tbAgenda id_agenda=17 ele capturou o id_agenda,, so que não excluiu os dados da coluna

deu: SQL: delete from tbAgenda where id_agenda= deu somente isso

ela existe codigo de exclusão <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <!--#include file="conexao.asp"--> <% dim id_agenda id_agenda =request.QueryString("id_agenda") call conect con.execute ("delete from tbAgenda where id_agenda='"&id_agenda&"'") call desconect %> Dados apagados com sucesso! codigo de exibição da tabela <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% data_fone = request.form("data_fone") DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; " DSNtemp=dsntemp & "DBQ=" & server.MapPath("BD/bdIntra.mdb") sqlstmt = "SELECT * FROM tbAgenda WHERE data_fone like '%" & data_fone & "%'" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sqlstmt, DSNtemp, 3, 3 totalrecs = rs.recordcount x = 0 for x = 1 to totalrecs if rs.eof then exit for else id_agenda = rs("id_agenda") nome = rs("nome") data_fone = rs("data_fone") obs = rs("obs") assunto = rs("assunto") %> <table width="500px" border="2px" cellpadding="0" cellspacing="0" bordercolor="#000000"> <tr> <td colspan="2"><br> <br> <br> <p></td> </tr> <tr> <td width="105"><b>Id:</b></td> <td><%=id_agenda%></td> </tr> <tr> <td><b>nome:</b></td> <td><%=nome%></td> </tr> <tr> <td width="110" valign="top"><b>assunto:</b></td> <td><%=assunto%></td> </tr> <tr> <td><b>Data do Contato:</b></td> <td><%=data_fone%></td> </tr> <tr> <td><b>Observação:</b></td> <td><%=obs%></td> </tr> </table> <a href="excluirAgenda.asp?id_agenda=<%=rs("id_agenda")%>">Excluir Registro</a> <p> <% rs.MoveNext %> <% end if next %>

o campo é numeração automatico

Foi o que eu coloquei de primeiro.... os parentese () faz alguma diferença? con.execute ("delete from tbAgenda where id_agenda="&id_agenda) desse jeito que você falou da erro de sintaxe(operador faltando) na expressão de consulta 'id_agenda='

Pessoal peço a juda novamente, pois não estou conseguindo resolver, já procurei em varios foruns e mesmo assim continua dando erro..... alguém sabe deletar uma coluna atraves do id em ASP meu codigo...... nome do arquivo: excluirAgenda.asp <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <!--#include file="conexao.asp"--> <% dim id_agenda id_agenda =request.QueryString("id_agenda") call conect con.execute ("delete from tbAgenda where id_agenda='"&id_agenda&"'") call desconect %> Dados apagados com sucesso! erro....... tipo de error: Microsoft Jet DataBase Engine (0x80040E07) Tipo de dados incompativel na expressão de criterio. linha 8 : con.execute ("delete from tbAgenda where id_agenda='"&id_agenda&"'") já tentei de varias forma entre elas estão: con.execute ("delete from tbAgenda where id_agenda="&id_agenda con.execute ("delete from tbAgenda where id_agenda='"&id_agenda&"'") aqui esta a showAgenda2.asp <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% data_fone = request.form("data_fone") DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; " DSNtemp=dsntemp & "DBQ=" & server.MapPath("BD/bdIntra.mdb") sqlstmt = "SELECT * FROM tbAgenda WHERE data_fone like '%" & data_fone & "%'" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sqlstmt, DSNtemp, 3, 3 totalrecs = rs.recordcount x = 0 for x = 1 to totalrecs if rs.eof then exit for else id_agenda = rs("id_agenda") nome = rs("nome") data_fone = rs("data_fone") obs = rs("obs") assunto = rs("assunto") %> <table width="500px" border="2px" cellpadding="0" cellspacing="0" bordercolor="#000000"> <tr> <td colspan="2"><br> <br> <br> <p></td> </tr> <tr> <td width="105"><b>Id:</b></td> <td><%=id_agenda%></td> </tr> <tr> <td><b>nome:</b></td> <td><%=nome%></td> </tr> <tr> <td width="110" valign="top"><b>assunto:</b></td> <td><%=assunto%></td> </tr> <tr> <td><b>Data do Contato:</b></td> <td><%=data_fone%></td> </tr> <tr> <td><b>Observação:</b></td> <td><%=obs%></td> </tr> </table> <a href="excluirAgenda.asp?id_agenda=<%=rs("id_agenda")%>">Excluir Registro</a> <p> <% rs.MoveNext %> <% end if next %> se alguém poder me ajudar serei grato Roger Almeida

valeu a ajuda,,,, consigui resolver,,, acredita que o erro foi porcausa de uma "/" que faltava? hahahaha

conexao.asp <% 'www.connectionstrings.com dim con sub conect() set con = server.CreateObject("ADODB.connection") con.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.MapPath("dados/bd1.mdb") end sub sub desconect() con.close set con = nothing end sub %> obs: em termos o bd funciona, o problema em si esta na atualização do bd,,, percebo isso porque quando entro no sistema de gerenciamento que fiz, o bd puxa a senha e autentifica o meu login e senha... realmente peço ajuda pois não sei o que esta acontecendo,, no localhost funciona maravilhosamente.......

ola para todos,,,,, fiz um site com banco de dados em asp e acesse, no meu localhost funciona que é uma maravilha,, mas ao post no meu host pago surgiu o seguinte problema: Microsoft JET Database Engine error '80004005' Operation must use an updateable query. /inserirrecados.asp, line 10 não consigo entender o porque desse erro ( já que no meu localhost funciona super bem), e não é erro de permissão... essa é meu codigo da lina 1 a 13: 1 <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> 2 <!--#include file = "conexao.asp"--> 3 <% 4 dim nome, assunto, mensagem 5 nome =request.form("nome") 6 assunto =request.form("assunto") 7 mensagem =request.form("mensagem") 8 9 call conect 10 con.execute("insert into tbrecados(nome,assunto,mensagem) values ('"& nome &"','"& assunto &"','"& mensagem &"')") 11 call desconect 12 response.Redirect("recados.asp") 13 %> se poderam que ajudar ficarei muito grato. atenciosamente, rogercine