SqlStr="SELECT * FROM Tabela1 WHERE linkli LIKE '%" & "%'"
Set Rs = oConn.Execute(SqlStr)
If Rs.EOF then
Response.Write("O Resultado da solicitação é:")
Do until Rs.eof
If rs.fields.count>0 then
else
Response.Write("Não foi encontrada registro")
End If
Response.Write("<br><br>Protocolo:"& Rs.fields("linkli")&"</br>")
Response.Write("Titulo:"& rs.fields ("httpli")&"<br>")
Response.Write("Tipo:"& rs.fields ("comentli")&"</br>")
Response.Write("Resumo:"& rs.fields ("resumoli")&"<br>")
Response.Write("Titular:"& rs.fields ("tituloli")&"<br>")
Response.Write("Equipe:"& rs.fields ("equipeli")&"<br>")
Rs.movenext
Loop
End If
%>
</body>
</html>
Pergunta
James Dielson Barbosa Do Nascimento
A finalidade do código abaixo é listar todos os registros de determinado campo de um BD *.mdb. Mas o resultado que aparece quando executo o código é:
uma página em branco. Podem me ajudar a resolver o problema.
O código é:
<html>
<body>
<%
Caminho = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\web\localuser\jamesnascimento\banco\bancoG.mdb;"
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open Caminho
SqlStr="SELECT * FROM Tabela1 WHERE linkli LIKE '%" & "%'"
Set Rs = oConn.Execute(SqlStr)
If Rs.EOF then
Response.Write("O Resultado da solicitação é:")
Do until Rs.eof
If rs.fields.count>0 then
else
Response.Write("Não foi encontrada registro")
End If
Response.Write("<br><br>Protocolo:"& Rs.fields("linkli")&"</br>")
Response.Write("Titulo:"& rs.fields ("httpli")&"<br>")
Response.Write("Tipo:"& rs.fields ("comentli")&"</br>")
Response.Write("Resumo:"& rs.fields ("resumoli")&"<br>")
Response.Write("Titular:"& rs.fields ("tituloli")&"<br>")
Response.Write("Equipe:"& rs.fields ("equipeli")&"<br>")
Rs.movenext
Loop
End If
%>
</body>
</html>
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.