mais de um banco de dados


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: mais de um banco de dados

Tristao
não registrado

Postada em 24/01/2006 20:21 hs

Será que é possivel trabalhar com dois ou mais banco de dados ao mesmo tempo, e trocar informações entre eles.... alguem pode me ajudar? por favor!!!

MINER

POTIRENDABA
SP - BRASIL

Postada em 25/01/2006 06:31 hs

na minha opniao achu q é posivel sim, apesar de eu nunca ter estado nestas condições de trabalhar com mais de um BD, mas acho q naum teria problema .

Vc vai fazer uma conexao pra cada BD diferente uma da outra e chama-la na hora de usar os dados dos respectivos BD.

Se a galera do forum discordar eu estou aberto pra correções.

vaini

PARAPUÃ
SP - BRASIL

Postada em 25/01/2006 07:05 hs

Tristão, tem como sim.

Eu costumo trabalhar com DAO.

Primeiramente, crio um modulo onde vou declarar todas as minhas APIs. No mesmo modulo, crio duas variaveis Public para os bancos que serão usadas em qualquer parte do programa. É no modulo que tambem crio as variaveis para o recordset. Depois no evento Load do Form, faço as conexões com os dois bancos e abro as recordsets. Dessa forma, em qualquer ponto do programa, eu consigo acessar meus dois bancos e minhas recordsets. A partir dai, é só voce trocar dados entre eles.

Uso o codigo assim: (considere isso apenas como exemplo)

No módulo

Public Banco1 As Database

Public Banco2 As Database

Public Tabela1 As RecordSet

Public Tabela2 As RecordSet

No evento Load do form principal

Set Banco1 = OpenDatabase(app.Path & "clientes.mdb", dbOpenDynaset)

Set Banco2 = OpenDatabase(app.Path & "fornecedores.mdb", dbOpenDynaset)

Set Tabela1 = Banco1.OpenRecordSet("clientes", dbOpenDynaset)

Set Tabela2 = Banco2.OpenRecordSet("fornecedores", dbOpenDynaset)

Adapte ao seu programa, e bom uso.

Qualquer coisa, poste novamente.

Fernando Cesar Vaini

Se voce morrer daqui a 5 minutos, vai levar todo o seu conhecimento. Antes que isso aconteça, compartilhe-o!!!

Daniel

SÃO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 25/01/2006 10:02 hs

Não existe nenhum impecílio em trabalhar com vários bancos em um mesmo aplicativo inclusive quando voce precisar fazer uma sql trocando informações entre varios bancos segue um exemplo, no qual estou selecinando informações de varias bases e armazenando em uma outra, obvio que irá precisar setar todas as bases:

    Set Base_Relato = Wk.OpenDatabase(Db_Relato$, False, False)
    Set Base_Client = Wk.OpenDatabase(Db_Client$, False, False)
    Set Base_Repres = Wk.OpenDatabase(Db_Repres$, False, False)
    Set Base_Cidade = Wk.OpenDatabase(Db_Cidade$, False, False)
    Set Base_Termin = Wk.OpenDatabase(Db_Termin$, False, False)

    Base_Relato.Execute "DELETE Conteudo.* FROM Conteudo;"
    Base_Relato.Execute "INSERT INTO Conteudo ( Valor20, Texto1, Texto2, Texto3, Texto4, Texto5, Texto6, Texto7, data ) " & _
                        "SELECT Clientes.Codigo, Clientes.Nome_R, Tipo_Cliente.Descricao, Segmentos.Descricao, Cidades.Estado, Representantes.Apelido, Conta.Descricao, Cidades.Cidade_Estado, Clientes.Cadastro " & _
                        "FROM (((([" & Base_Client.Name & "].Clientes LEFT JOIN [" & Base_Repres.Name & "].Representantes ON Clientes.Cod_Repres = Representantes.Codigo) LEFT JOIN [" & Base_Client.Name & "].Tipo_Cliente ON Clientes.TipoCli = Tipo_Cliente.Cod_Tipo) LEFT JOIN [" & Base_Client.Name & "].Segmentos ON Clientes.Segmento = Segmentos.Segmento) LEFT JOIN [" & Base_Cidade.Name & "].Cidades ON Clientes.Cod_Cidade = Cidades.Codigo) LEFT JOIN [" & Base_Termin.Name & "].Conta ON Clientes.Conta = Conta.Codigo " & _
                        "WHERE (((Clientes.Ativo)=True));"

dsmn

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR