Conexão
#1 cerburus
Posted 25/06/2003, 10:36
#2
Posted 25/06/2003, 13:20
<% '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+
#3 cerburus
Posted 25/06/2003, 15:11
Agora tipo se num for muito incomodo, eu coloquei esse codigo fico legal tudo certim, mas tipo ele só lista 1 noticias! como faz pra ele listar todas do BD?
#4
Posted 25/06/2003, 18:30
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+
#5
Posted 26/06/2003, 16:39
<%
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??
0 user(s) are reading this topic
0 membro(s), 0 visitante(s) e 0 membros anônimo(s)