Ir para conteúdo

POWERED BY:

Arquivado

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

leo_ases

[Resolvido] Access na web

Por , em Banco de Dados

Recommended Posts

leo_ases    0

leo_ases
Postado

Boa noite, sou leigo e preciso de ajuda.

 

efetuei minha 1ª conexão ao db access no site, mas não consigo exibir o conteúdo da consulta em sql.

 

<html>

<head>

</head>

<body>

<p>

 

<%

<!-- #include file="adovbs.inc" -->

Dim db

db = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\domains\asesdasorte.com.br\db\critters.mdb"

set conexao = server.createobject ("adodb.connection")

conexao.open db

(até aqui dá certo)

 

(a partir daqui erro http 500)

sql = "SELECT jersey, fname, sname, position " & _

"FROM roster " & _

"ORDER BY jersey; "

Set rs = Server.CreateObject("ADODB.Recordset")

rs.Open sql, conexao, 3, 3

 

On Error Resume Next

rs.MoveFirst

Do While Not rs.EOF

Response.Write Server.HTMLEncode(_

rs.Fields("jersey") & ", " & _

rs.Fields("fname") & " " & _

rs.Fields("sname") & ", " & _

rs.Fields("position")) & "<br>" & vbCrLf

rs.MoveNext

Loop

 

rs.Close

Set rs = Nothing

 

conexao.Close

Set conexao = Nothing

%>

</p>

</body>

</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

leo_ases    0

leo_ases
Postado

Boa noite, sou leigo e preciso de ajuda.

 

efetuei minha 1ª conexão ao db access no site, mas não consigo exibir o conteúdo da consulta em sql.

 

<html>

<head>

</head>

<body>

<p>

 

<%

<!-- #include file="adovbs.inc" -->

Dim db

db = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\domains\asesdasorte.com.br\db\critters.mdb"

set conexao = server.createobject ("adodb.connection")

conexao.open db

(até aqui dá certo)

 

(a partir daqui erro http 500)

sql = "SELECT jersey, fname, sname, position " & _

"FROM roster " & _

"ORDER BY jersey; "

Set rs = Server.CreateObject("ADODB.Recordset")

rs.Open sql, conexao, 3, 3

 

On Error Resume Next

rs.MoveFirst

Do While Not rs.EOF

Response.Write Server.HTMLEncode(_

rs.Fields("jersey") & ", " & _

rs.Fields("fname") & " " & _

rs.Fields("sname") & ", " & _

rs.Fields("position")) & "<br>" & vbCrLf

rs.MoveNext

Loop

 

rs.Close

Set rs = Nothing

 

conexao.Close

Set conexao = Nothing

%>

</p>

</body>

</html>

 

depois que coloquei o nome do arquivo depois de rs open "roster" não deu mais erro

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos Banco de Dados
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito