msgbox "A conexão está aberta: " & CStr(Conn.State)
Rs.CursorLocation = 3
Set Rs = Conn.Execute("Select * From Log") 'Dá erro aqui mas a conexão está aberta
Do While Not Rst.EOF
Response.Write Rst.Fields("Nome").Value
Rst.MoveNext
Loop
Rs.Close
Conn.Close
</SCRIPT>
</BODY>
</HTML>
E, como descrito no código, todas as vezes a conexão se abre porém eu não consigo acessar nenhum dado, sendo apresentado um erro número 4100 indicando que a camada de negócio não pode ser acessada.
Pergunta
Guest Andersonsr
Tenho uma página HTML com o seguinte código:
<HTML>
<HEAD>
<META name=VI60_defaultClientScript content=VBScript>
<TITLE>Teste de Time</TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; CHARSET=iso-8859-1">
<META NAME="AUTHOR" CONTENT="InetSDK">
<META NAME="MS.LOCALE" CONTENT="EN-US">
<META NAME="ROBOTS" CONTENT="noindex">
</HEAD>
<BODY>
<script LANGUAGE=VBScript>
Dim Conn
Dim Rs
Set Conn = CreateObject("ADODB.CONNECTION")
Set Rs = CreateObject("ADODB.Recordset")
msgbox "A conexão está aberta: " & CStr(Conn.State)
Conn.Open "Provider=MS Remote;Remote Provider=Microsoft.Jet.OLEDB.4.0;Data Source=dados.mdb;Remote Server=http://meuservidor;Initial Catalog= Log;UserId=Admin;Password=;"
msgbox "A conexão está aberta: " & CStr(Conn.State)
Rs.CursorLocation = 3
Set Rs = Conn.Execute("Select * From Log") 'Dá erro aqui mas a conexão está aberta
Do While Not Rst.EOF
Response.Write Rst.Fields("Nome").Value
Rst.MoveNext
Loop
Rs.Close
Conn.Close
</SCRIPT>
</BODY>
</HTML>
E, como descrito no código, todas as vezes a conexão se abre porém eu não consigo acessar nenhum dado, sendo apresentado um erro número 4100 indicando que a camada de negócio não pode ser acessada.
Algém sabe como resolver isso?
Link para o comentário
Compartilhar em outros sites
2 respostass 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.