8 replies to this topic

[alessancost]

Olá pessoal

Eu tenho 2 sistemas; blog e artigos. Estou querendo colocaros dois na mesma página, mas cada um chama o banco de formas diferentes.

O blog

  <%
	'-------------------------------------------------- 
	' FUNÇÃO BLOG BANCO DE DADOS 
	'-------------------------------------------------- 
     Dim ConnDB
     Set ConnDB =  Server.CreateObject("ADODB.Connection")
     ConnDB.Open "DBQ=" & Server.MapPath("../banco/principal.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"
     Set rs = Server.CreateObject("ADODB.Recordset")

     strSql = "SELECT count (id) AS Total FROM posts"
     set totalposts = ConnDB.execute(strSql)
  
     SQL2 = "Select titblog From login"
     Set RS = ConnDB.Execute(SQL2)

     Session.LCID = 1046 'BRASIL %>

O artigo

 <% 
	'-------------------------------------------------- 
	' FUNÇÃO ARTIGO BANCO DE DADOS 
	'-------------------------------------------------- 
    cnpath="DBQ=" & Server.MapPath("../banco/banco.mdb") 
    DataSource = "Driver={Microsoft Access Driver (*.mdb)}; " & cnpath 
    Set Conn = Server.CreateObject("ADODB.Connection") 
   
    Conn.Open DataSource
    Set RS = Server.CreateObject( "ADODB.Recordset" ) 
	
	strSql = "SELECT count (idnot) AS Total FROM artigos"
    set totalartigos = Conn.execute(strSql) %>

Ve ia deve ter percebido que o banco mdb e o mesmo para os dois. Agora, não estou querendo colocar os dois bancos na mesma página, pois quero melhorar o desempenho e facilitar futuras atualizações.

Como posso fazer o banco do artigo ser iqual a do blog? Pois quero ter apenas um código para os dois...

Obrigado

[Generation]

se o banco for o mesmo..

<% 
'-------------------------------------------------- 
' FUNÇÃO ARTIGO BANCO DE DADOS 
'-------------------------------------------------- 
   Set Conn = Server.CreateObject("ADODB.Connection")
   cnpath="DBQ=" & Server.MapPath("../banco/banco.mdb") 
   Conn.Open = "Driver={Microsoft Access Driver (*.mdb)}; " & cnpath 
    
   Set totalartigos = Server.CreateObject( "ADODB.Recordset" ) 
   strSql = "SELECT count (idnot) AS Total FROM artigos"
   set totalartigos = Conn.execute(strSql) 

'-------------------------------------------------- 
' FUNÇÃO BLOG BANCO DE DADOS 
'-------------------------------------------------- 
    Set totalposts = Server.CreateObject( "ADODB.Recordset" ) 
    strSql = "SELECT count (id) AS Total FROM posts"
    set totalposts = Conn.execute(strSql)
    
    Set RS1 = Server.CreateObject( "ADODB.Recordset" ) 
    SQL2 = "Select titblog From login"
    Set RS1 = Conn.Execute(SQL2)

    Session.LCID = 1046 'BRASIL 

%>

voce so muda o nome do recordset para armazenar os dados....e usa so uma conexao....mas pelo que vi sao dois bancos diferentes.....


T+

[alessancost]

Não funcionou...

repare que a conexão dois dois tem algumas diferenças como ConnDB e Conn... acho que o erro ta ai, mas já tentei mudar e não cosequi nada

[edmais]

Cara, no artigo está usando dois Recordsets. Assim sendo, use dois recordsets no Blog tambem... Simpleeeeesssss

[Generation]

A diferença esta nos bancos, são dois e voce disse que quer usar um seria isso...??pois nao tem como selecionar uma tabela que esta em outro banco, o mais facil é vc fazer uma fusao nos dois....tente postar o erro que ocorre !


T+

[alessancost]

Eu errei... e como vc disse... 2 bancos mas com a mesma conexão...

Vou tentar fazer o que edmais falou...

Obrigado

[edmais]

Peraí, no primeiro exemplo..

É um banco para 2 recordsets

O que vc quer afinal?

[alessancost]

Ok!
Eu sou apenas um amador que nunca fez um curso de qualquer linguagem Net. Um total leigo de Asp ou qualquer assunto relacionado ao mesmo. O que me traz aqui? Minha determinação e força de vontade (paixão). Eu sou um estudante de Direito que sonha em ter um site jurídico. Há um ano venho medindo esforços para alcançar meu sonho. Eu começo adquirindo um código pronto e altero um pouco aqui e ali. Resultado; tenho um site que muito lembra o franquistem.

Na minha index tenho vários incluides

Artigo <!--# include file="../artigo/pcp_artigo1.asp"-->
Blog <!--# include file="../blog/pcp_blog1.asp"-->
Download <!--#include file="../download/pcp_download.asp"-->
E outros mais...

Bem, eu tinha um mdb para cada sistema acima. Tive muito trabalho para deixar somente um mdb. Agora estou tentando modificar o código dentro de cada incluide.
Pq?

No Artigo ta assim

<% 
	'-------------------------------------------------- 
	' FUNÇÃO ARTIGO BANCO DE DADOS 
	'-------------------------------------------------- 
    cnpath="DBQ=" & Server.MapPath("../banco/banco.mdb") 
    DataSource = "Driver={Microsoft Access Driver (*.mdb)}; " & cnpath 
    Set Conn = Server.CreateObject("ADODB.Connection") 
   
    Conn.Open DataSource
    Set RS = Server.CreateObject( "ADODB.Recordset" ) 
	
	strSql = "SELECT count (idnot) AS Total FROM artigos"
    set totalartigos = Conn.execute(strSql) %>

No Blog ta assim

<%
	'-------------------------------------------------- 
	' FUNÇÃO BLOG BANCO DE DADOS 
	'-------------------------------------------------- 
     Dim ConnDB
     Set ConnDB =  Server.CreateObject("ADODB.Connection")
     ConnDB.Open "DBQ=" & Server.MapPath("../banco/principal.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"
     Set rs = Server.CreateObject("ADODB.Recordset")

     strSql = "SELECT count (id) AS Total FROM posts"
     set totalposts = ConnDB.execute(strSql)
  
     SQL2 = "Select titblog From login"
     Set RS = ConnDB.Execute(SQL2)

     Session.LCID = 1046 'BRASIL %>

Vocês devem ter percebido agora que não existe a necessidade de fazer duas conexões com o mesmo banco, pois os dois fazem parte da mesma página (index) através de includes.

Assim, querei eliminar um dos dois, mas existe algumas diferenças entre as duas conexões originais que não consigo modificar.

Eu tento deixar o código mais leve possível, isso é quase uma obsessão minha. Gostaria de saber a opinião de vcs quanto a isso... Se vale ter esse trabalho todo ou se eu deveria deixar do jeito que ta.

Obrigado
Caso vcs estejam curiosos ta ai o endereço do site
http://www.thialeweb...cipal/index.asp

[edmais]

Hmm..

Eu entendi que..

O Blog, os artigos estão no mesmo banco de dados, mas em tabelas diferentes, e você quer trabalhar com essas duas tabelas em uma mesma página, certo? (Tá vendo a objetividade e simplicidade com que tanto esperamos?)

Bom, muito simples. Como eu havia dito antes, basta que você abra um Recordset pra cada tabela, Exemplo:

SqlArtigos = "SELECT * FROM ARTIGOS"
Set RsArtigos = Conn.Execute(SqlArtigos)

SqlBlog = "SELECT * FROM BLOG"
Set RsBlog = Conn.Execute(SqlBlog)


Entendido?