VBA ACCESS - ABRINDO OUTRO BANCO DE DADOS

DELATORREA 25/07/2009 11:42:56
#317816
GALERA é O SEGUINTE:

EU DESENVOLVO PEQUENAS ROTINAS EM VBA ACCESS.

PRECISO SABER COMO FAÇO P/ ABRIR UM OUTRO BANCO DE DADO E BUSCAR INFORMAÇÕES NELE.
TIPO ASSIM:
TENHO UM MÓDULO COM CADASTRO DE FUNCIONÁRIOS, CONTROLE DE HORAS EXTRAS, CONTROLE DE PERNOITE, ETC...
MAS PRECISO AGORA CRIAR UM OUTRO MÓDULO PARA CONTROLE DE PESSOAL.
C EU FICAR ACRESCENTANDO TODAS AS ROTINAS EM UM ÚNICO MÓDULO VAI FICAR MUITO GRANDE E LENTO. POR ISSO EU QUERIA SEPARAR TUDO. UM MÓDULO PARA CADA ROTINA.
COM ISSO EU TERIA UM PARA CONTROLE DE PESSOAL, ONDE ESTARIAM CADASTRADOS TODOS OS FUNCIONÁRIOS, EM OUTRO TERIA O CONTROLE DE HORAS EXTRAS, Q SERIA NECESSÁRIO BUSCAR INFORMAÇÕES NO MÓDULO DE CONTROLE DE PESSOAL A RESPEITO DOS FUNCIONÁRIOS, ENFIM...
ALGUéM SABE COMO POSSO FAZER ISSO?
JA TENTEI A LINGUAGEM ADO MAS COMO EU USO UM SISTEMA DE BUSCA CHAMADO SEEK NA LINGUAGEM CONVENCIONAL Ñ CONSEGUI MIGRAR.
QND TEN USAR O SEEK NA ADO DA Q A VERSÃO Ñ SUPORTA.
C FOR FACIL ATUALIAR A VERSAO COMO FAÇO?
MAS POR FAVOR ME DEEM UMA LUZ COM RESPEITO A TUDO. COMO FAZER O ACCESO A OUTRO BANCO DE DADOS E A ATUALIZAÇÃO DO ADO.

VLW GALERA!
TECLA 25/07/2009 11:46:54
#317818
Se estivesse usando o VB6 (ou .NET) teria MUITO MAIS flexibilidade para se trabalhar desta forma.
Caso necessite de ajudar para migrar para VB6 ou .NET, utilize o fórum que o pessoal te ajuda.

Pense nisso!
DELATORREA 25/07/2009 11:49:33
#317819
POW KRA BEM Q EU QUERIA...
MAS EU TRABALHO EM UM LUGAR ONDE JA TEM O DEPARTAMENTO DE INFORMÁTICA E EU ESTOU LOTADO NO DEPARTAMENTO DE ENGENHARIA... FAÇO ESSE TRABALHO INTERNAMENTE. A ÚNICA FERRAMENTA DISPONÍVEL é ESSA PARA MIM ENTENDE..

C PUDER ME DAR UMA AJUDA, SERÁ MUITO BEM VINDA!
TECLA 25/07/2009 15:05:09
#317839
Segue uma rotina em VBA, onde um MDB está acesando outro.

Private Sub Comando0_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim num As Integer

Set db = OpenDatabase([Ô]C:\Diretorio\Banco.mdb[Ô])
Set rs = db.OpenRecordset([Ô]contato[Ô])
num = rs.RecordCount

MsgBox num, vbInformation, [Ô]Registros[Ô]

rs.Close
db.Close
End Sub
DELATORREA 25/07/2009 15:18:11
#317841
Beleza...
Até ai tudo bem..
ms com respeito às buscas.... Eu uso muito o seek existe um método semelhante nessa rotina?
TECLA 25/07/2009 17:45:31
#317847
O que postei foi só um exemplo.
Você pode utilizar SEEK, FIND ou qualquer outra função da classe DAO.
DELATORREA 30/07/2009 09:23:28
#318301
Fala galera! To com duificuldade de achar uma apostila da classe DAO! Alguém pode ajudar??

Preciso muito fazer esta rotina! O mais rápido possivel!

vlw!
SMANUT 30/07/2009 09:43:51
#318305
aqui tem alguma coisa, este servidor é meu, aqui do meu lado, é seguro

http://smanut.sytes.net/downloads/vb.zip
TECLA 30/07/2009 09:44:04
#318306
Pode postar o BD aqui?
SMANUT 30/07/2009 09:59:40
#318307
este é um projeto antigo que fiz, em DAO pode ajudar também tem que abrir, depois de baixar mantendo o shift pressionado

http://smanut.sytes.net/downloads/exemplo

deixarei no meu servidor até hoje a noite
DELATORREA 30/07/2009 11:08:49
#318320
pow o bd é enorme!
Tem cerca de 100mb
por isso q quero a rotina para acessar outros bds q ai eu divido todas as rotinas...
Pow baixei o arquivo e não abre!
Eu uso o Access 2003 o arquivo é do formato mdb.
Página 1 de 2 [11 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar