|
Bom
Dia,
Estou tentando
aprender ASP, atrav�s de livros, com isso estou com v�rias d�vidas,
principalmente neste c�digo, teria como dar um Help.
Banco de Dados:
Tabela= banco.mdb
Campos = nome; email; empresa; cargo;
departamento
Se for posivel quem
tiver o c�digo pronto, de busca com banco de dados Acess, seria muito
grato.
<% @Language = VBScript
%> <%
strBusca =
Request.QueryString("busca")
if strBusca <> ""
then
stringConexao = "Provider=Microsoft.JET.OLEDB.4.0; Data Source="
& Server.MapPath("banco.mdb")
Set objConexao = Server.CreateObject("ADODB.Connection")
objConexao.Open stringConexao
strSQL = "SELECT * FROM tabela WHERE nome LIKE '%"& strBusca
&"%'"
Set objRS = ObjConexao.Execute(strSQL)
%>
Resultado(s) Encontrado:
<HR>
<% While not objRS.EOF
response.write "tabela: " & objRS("tabela") & "<BR>"
response.write "<A href=''>" &
objRS("cargo") & "</A>" & " - " & objRS("departamento") &
" " & "<a href=''>" &
"[email]" & "</A>" & "<BR><BR>"
objRS.MoveNext
Wend
end if
%>
obrigado pela aten��o.
:: http://www.asp10.net
==================================================
:: Solu��es simples para problemas complexos
:: Sistemas de Links, Not�cias, Faq, Loja,
:: Estat�sticas, Artigos, Mural e muito mais.
==================================================
:: Para entrar, sair ou ver o hist�rico da lista
:: Asp10.net visite http://www.asp10.net
==================================================
|