shikamaru Postado Agosto 20, 2005 Denunciar Share Postado Agosto 20, 2005 O script esta dando esse erro mas acho q o erro esta na conecção com Banco Tipo de erro:ADODB.Connection (0x800A0BB9)Os argumentos são incorretos, estão fora do intervalo aceitável ou estão em conflito./post.asp, line 19Codigo:<% @Language=VBScript %> <% Option Explicit Response.Buffer = True %> <html> <head> <title>title</title> </head> <body> <% 'Conexão com o banco de dados dim url_conexao, BD, postagem url_conexao = Server.MapPath("senha.mdb") set BD = Server.CreateObject("ADODB.Connection") BD.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao set postagem = BD.Execute("SELECT * FROM postagem") %> <table> <% if not BD.bof and not BD.eof then BD.movefirst do while not BD.eof %> <tr><td><%response.write BD("noticia")%></tr></td></font> <% BD.movenext loop end if%> <form action="inclui.asp" method="post" name="inclui"> <tr><td> Nome: <input type="text" name="txtnome"/> </td></tr> <tr><td> Comentário: <textarea cols="50" rows="3" name="txtacomentario"></textarea> </td></tr> <tr><td> <input type="submit" name="btnenviar" value="Enviar"> </td></tr> </form> </table> </body> </html> Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 .Andreia. Postado Agosto 20, 2005 Denunciar Share Postado Agosto 20, 2005 A melhor forma é colocar a conexão com o BD em separado, além de limpar o código, também pode ser reaproveitado por vários arquivos sem precisá-lo recria-lo.Exemplo:Arquivo bib_conexao.asp <% sub abre_conexao Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open "DBQ=C:\Inetpub\wwwroot\senha.mdb.mdb;Driver={Microsoft Access Driver (*.mdb)}" end sub sub fecha_conexao Conexao.close Set Conexao = nothing end sub %> no seu arquivo: <% @Language=VBScript %> <% Option Explicit Response.Buffer = True %> <html> <head> <title>title</title> </head> <body> <% Dim conexao call abre_conexao sql = "select * from postagem" set tab = Conexao.Execute(sql) %> . . . veja se isso pode lhe ser util.falou Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
shikamaru
O script esta dando esse erro mas acho q o erro esta na conecção com Banco
Codigo:
<% @Language=VBScript %> <% Option Explicit Response.Buffer = True %> <html> <head> <title>title</title> </head> <body> <% 'Conexão com o banco de dados dim url_conexao, BD, postagem url_conexao = Server.MapPath("senha.mdb") set BD = Server.CreateObject("ADODB.Connection") BD.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao set postagem = BD.Execute("SELECT * FROM postagem") %> <table> <% if not BD.bof and not BD.eof then BD.movefirst do while not BD.eof %> <tr><td><%response.write BD("noticia")%></tr></td></font> <% BD.movenext loop end if%> <form action="inclui.asp" method="post" name="inclui"> <tr><td> Nome: <input type="text" name="txtnome"/> </td></tr> <tr><td> Comentário: <textarea cols="50" rows="3" name="txtacomentario"></textarea> </td></tr> <tr><td> <input type="submit" name="btnenviar" value="Enviar"> </td></tr> </form> </table> </body> </html>Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
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.