4 replies to this topic

[otavio]

<%
'Caminho da conexões
'########################################################
StringdeConexao1 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("database/banco1.mdb") 

'----------------------------------------------- 
StringdeConexao2 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("database/banco2.mdb")

'------------------------------------------------ 

StringdeConexao3 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("database/banco3.mdb")
'########################################################


'inicia as conexões
'########################################################
'Abre conexao 1
'-----------------------------------------------------
set con1 = Server.CreateObject("ADODB.Connection")
con1.Open(StringdeConexao1)

'Abre conexao 2
'-----------------------------------------------------
set con2 = Server.CreateObject("ADODB.Connection")
con2.Open(StringdeConexao2)

'Abre conexao 3
'-----------------------------------------------------
set con3 = Server.CreateObject("ADODB.Connection")
con3.Open(StringdeConexao3)
'########################################################

'########################################################
'exemplos para chamar as conexoes:
'Conexao 1
'---------------------------------------------------
Set rs1 = con1.execute("SELECT * FROM tabela_do_banco1mdb;")
response.write rs1("campo")
rs1.close
Set rs1 = nothing

'Conexao2
'-----------------------------------------------
Set rs2 = con2.execute("SELECT * FROM tabela_do_banco2mdb;")
response.write rs2("campo")
rs2.close
Set rs2 = nothing

'Conexao3
'-----------------------------------------------
Set rs3 = con3.execute("SELECT * FROM tabela_do_banco3mdb;")
response.write rs3("campo")
rs3.close
Set rs3 = nothing

'###########################################################

'###########################################################
'Fecha as tres conexoes

'Fecha conexao1
'-----------------------------------
con1.close
set con1 = nothing

'Fecha conexao2
'-----------------------------------
con2.close
set con2 = nothing

'Fecha conexao3
'-----------------------------------
con3.close
set con3 = nothing
%>

Abraços,
t+

[otavio]

No codigo da conexao vc deve fazer o seguinte:

exemplo:

'------------------------------------------------------------------------------------
Set rs3 = con3.execute("SELECT * FROM tabela_do_banco3mdb;")

'>>>>>>>>>>Coloque essa linha em cada execução<<<<<<<<<<<<<<
DO WHILE NOT rs3.eof
'Para conexao 2 subistitua rs3 por rs2 e assim por diante
'>>>>>>>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<

response.write rs3("campo")

'>>>>>>>>>>>>>>>Coloque essas duas ultimas linhas após chamar os dados e jogar na tela
rs3.movenenxt
loop
'>>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

rs3.close
Set rs3 = nothing

Abraços,
t+

[invictus]

estou fazendo algo parecido mas é para inserir em 2 tabelas:

<%



    p_nome = Request.Form("p_nome")
    p_sexo = Request.Form("p_sexo")
    p_cidade = Request.Form("p_cidade")
    p_estado = Request.Form("p_estado")
    p_emeio = Request.Form("p_emeio")
 
    set usuarios1DB = server.CreateObject("ADODB.CONNECTION")
    usuarios1DB.Open "usuarios"

        theSQL = "insert into dados "
        theSQL = theSQL & "(nome, sexo, cidade, estado, "
        theSQL = theSQL & "emeio)"
        theSQL = theSQL & " values ('"&p_nome&"', '"&p_sexo&"', '"
        theSQL = theSQL & p_cidade&"', '"&p_estado&"', '"&p_emeio&"')"


        usuarios1DB.Execute(theSQL)

        usuarios1DB.close
        set usuarios1DB = Nothing

        set usuarios2DB = server.CreateObject("ADODB.CONNECTION")
      usuarios2DB.Open "email"

      theSQL2 = "insert into dados "
        theSQL2 = theSQL & "(email)"
        theSQL2 = theSQL & " values ('"&p_emeio&"')"
     
        usuarios2DB.Execute(theSQL2)

        usuarios2DB.close
        set usuarios2DB = Nothing
%>

mas nao ta funcionando alguem tem algum ideia??