Busca Por Vários Bd

[PhoEniXFirE 0]

Galera, como posso fazer uma busca por vários bancos de dados e resultar com paginação ? ;)

[meirelles 0]

eu tenho, mas tá em casa, sabado a tarde eu posso te ajudar caso você não tenha resolvido!

[PhoEniXFirE 0]

eu tenho, mas tá em casa, sabado a tarde eu posso te ajudar caso você não tenha resolvido!

<{POST_SNAPBACK}>

Ok!! Agora se alguem souber e quiser me adiantar, fico grato http://forum.imasters.com.br/public/style_emoticons/default/yes.gif

[meirelles 0]

conforme prometido

ASP

[*]

 

[*]'inicia a busca das mensagens do candidato escolhido

 

[*]sql = "select top 50 * from tbmensagem where id_membro = "& pid &" and id_remetente <> 0 and mensagem <> null order by id_mensagem desc"

 

[*]set rs = conn.execute(sql)

 

[*]

 

[*]'verifica se há mensagens pra esse candidato

 

[*]if (rs.bof and rs.eof) then

 

[*]'se não houver

 

[*]response.write "Cantadas Recebidas: Não existem mensagens para este candidato.<hr>"

 

[*]

 

[*]else

 

[*]'fecho recordset anterior

 

[*]rs.close

 

[*]'se houver

 

[*]

 

[*]

 

[*]

 

[*]registros = 5

 

[*]pagina = Request.QueryString("pagina")

 

[*]If pagina = "" Then

 

[*]pagina = 1

 

[*]End If

 

[*]

 

[*]Set rs = Server.Createobject("ADODB.RECORDSET")

 

[*]set rs.ActiveConnection = Conn

 

[*]rs.CursorType = 3

 

[*]rs.PageSize = registros

 

[*]

 

[*]'sql = "SELECT * FROM tabela ORDER BY id DESC"

 

[*]

 

[*]rs.Open sql

 

[*]If rs.EOF Then

 

[*]Response.Write "Nenhum registro encontrado"

 

[*]Else

 

[*]rs.AbsolutePage = pagina

 

[*]While Not rs.EOF AND x < rs.PageSize

 

[*]x = x + 1 

 

[*]

 

[*]response.write "Quem enviou: <a href=select.asp?pid=" & rs("id_remetente")&"&login="&login&">"& rs("nome_remetente")& "</a><br>"

 

[*]response.write "Mensagem:<br> " & rs("mensagem")&"<br>" 

 

[*]response.write "----------------------------------------<br>"

 

[*]

 

[*]

 

[*]rs.MoveNext

 

[*]Wend

 

[*]

 

[*]anterior = pagina - 1

 

[*]proxima = pagina + 1

 

[*]ultima = rs.PageCount

 

[*]primeira = 1

 

[*]ultm2 = FormatNumber(rs.PageCount - 1,0)

 

[*]%>

 

[*]<font color=gray size=1 face=verdana>Últimas 50 cantadas:<br><br>

 

[*]<%

 

[*]'exibe paginacao

 

[*]If pagina <> 1 Then

 

[*]Response.Write "<a href=select.asp?pagina="&primeira&"&pid="&pid&"><b> «</b></a> "

 

[*]End If

 

[*]If pagina > 1 AND pagina <> 2 Then

 

[*]Response.Write "<b>[ <a href=select.asp?pagina="&anterior - 1&"&pid="&pid&">"&anterior - 1&"</a> ]</b> "

 

[*]End If

 

[*]If pagina > 1 Then

 

[*]Response.Write "<b>[ <a href=select.asp?pagina="&anterior&"&pid="&pid&">"&anterior&"</a> ]</b> "

 

[*]End If

 

[*]Response.Write "<b>[ "&pagina&" ]</b> "

 

[*]If Not rs.EOF Then

 

[*]Response.Write "<b>[ <a href=select.asp?pagina="&proxima&"&pid="&pid&">"&proxima&"</a> ]</b> "

 

[*]End If

 

[*]If Not rs.EOF AND pagina <> ultima AND pagina <> ultm2 Then

 

[*]Response.Write "<b>[ <a href=select.asp?pagina="&proxima + 1&"&pid="&pid&">"&proxima + 1&"</a> ]</b> "

 

[*]End If

 

[*]If Not rs.EOF Then

 

[*]Response.Write "<font color=red size=1 face=verdana><a href=select.asp?pagina="&ultima&"&pid="&pid&"><b> »</b></a></font> "

 

[*]End If

 

[*]End If

 

[*]rs.Close

 

[*]Set rs = Nothing

 

[*]End If

 

[*]

 

[*]end if

 

[*]%>

 

[*]</font>

 

[*]

 

espero que sirve, atualiza as strings sql, e abre conexao antes de executar

boa sorte!

[WebASP 0]

creio eu que sim e so abrir varias conexoes sem problemas

[PhoEniXFirE 0]

conforme prometido...

Este código, só faz busca em mais de uma tabela, n em bancos.

[meirelles 0]

foi mal, enterpretei mal!foi mal mesmo!

[PhoEniXFirE 0]

N eh capaz de alguém já n ter feito isso? Ou saber como se faz.

 

Vamos lá, preciso de ajuda http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[Salgado 4]

Não sei se é possível fazer isso. Mas podemos usar algo que o professor Marcelo Barcellos já mostrou aqui, recordSet desconectado. Faça suas pesquisas nos BDs usando RS's diferentes e depois Crie um "Clone" de um deles e caso seja com os mesmos campos é só seguir usando o ADDNEW enquanto passa de um para outro num Loop.

[PhoEniXFirE 0]

Não sei se é possível fazer isso. Mas podemos usar algo que o professor Marcelo Barcellos já mostrou aqui, recordSet desconectado. Faça suas pesquisas nos BDs usando RS's diferentes e depois Crie um "Clone" de um deles e caso seja com os mesmos campos é só seguir usando o ADDNEW enquanto passa de um para outro num Loop.

<{POST_SNAPBACK}>

Td bem. Até criar os Clones, ou Getrows, q acho q eh a mesma coisa, sei fazer, mas e depois como uso esse ADDNEW? E como faria o loop? :mellow: