WINDOWS 7 DUAS MAQUINAS

FERRAZ 07/07/2011 15:49:55
#378683
Meus amigos do VbMania tudo bem.

Tenho um projeto para rodar em duas maquinas rodando o windows 7, usando esta conexao como seria.

Option Explicit
Global cn As ADODB.Connection
Global rs As ADODB.Recordset
Global Fechar As Boolean
Private Sub Main()
[ô]===========================================================================================================
[ô]===========================================================================================================
Dim strArquivo As String
Dim strLocal As String
Dim ConectaAccess As String

Load MDISysTerraMar
MDISysTerraMar.Show
DoEvents
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset


strArquivo = [Ô]BaseTerraMar.mdb[Ô]
strLocal = [Ô]C:\Arquivos de programas\SysTerraMar\Dados[Ô]
Set cn = CreateObject([Ô]ADODB.Connection[Ô])
ConectaAccess = [Ô]Driver={Microsoft Access Driver (*.mdb)};[Ô] & _
[Ô]Dbq=[Ô] & strArquivo & [Ô];[Ô] & _
[Ô]DefaultDir=[Ô] & strLocal & [Ô];[Ô] & _
[Ô]Uid=Admin;Pwd=;[Ô]

cn.Open ConectaAccess



End Sub


Acho que como esta teria problemas com o banco de dados certo ?


Deste ja agradeco a todos.
PAULOOLIVEIRA 07/07/2011 23:18:53
#378724
veja o strlocal,se vai rodar em rede, o caminho do bd muda de acordo com a maquina... ok1
FERRAZ 08/07/2011 14:23:56
#378787
Paulo Oliveira,

como seria:
Citação:

veja o strlocal,se vai rodar em rede, o caminho do bd muda de acordo com a maquina... ok1



Eu teria que mostrar o caminho para a cada maquina, vou compartilhar uma delas para me servir como servidor dai o sistema tera que procurar o banco nessa maquina e a outra tambem, o problema eh que nao sei como fazer.

Vc teria uma dica de como fazer esse caminho na minha estrutura ?

Valeu por sua atencao e de todos os amigos do VbMania.
PAULOOLIVEIRA 08/07/2011 16:06:57
#378794
+- ASSIM:
TEM UMA FORMA MAIS FACIL AINDA..

MAQUINA 1 SERVER, MAQUINA 2 ESTACAO..

CRIE NA MAQUINA 1 UMA PASTA C:\DADOS, E COMPARTILHE COM A MAQUINA 2 BLZ..

INSTALE O SISTEMA COM O SETUP NORMAL EM CADA MAQUINA...

DAI FACA UM ATALHO PUXANDO O .EXE DA PASTA C:\DADOS DO SERVER OK!

DAI NA CONEXAO , COLOCA VOCE USA A STRING ASSIM -> strLocal = APP.PATH

FACIN FACIN.. , UMA DICA , VAI PENSANDO EM LARGAR DO ACCES, E VAI PRO MYSQL, MUUITO MAIS RAPIDO E SEGURO OK!

boa sorte
FERRAZ 08/07/2011 16:15:16
#378798
Paulo, valeu, vou seguir este caminho.
FERRAZ 17/08/2011 14:50:47
#381898
Tarde, amigos, estou sem solucao, nao consigo por em rede no windows 7, seguindo as dicas do paulo nao deu ou eu estou fazendo algo erredo. Favor como eu poderia resolver.

Meu caminho:

Option Explicit
Global cn As ADODB.Connection
Global rs As ADODB.Recordset
Global Fechar As Boolean
Private Sub Main()
[ô]===========================================================================================================
[ô]===========================================================================================================
Dim strArquivo As String
Dim strLocal As String
Dim ConectaAccess As String

Load MDISysCheirodaPaz
MDISysCheirodaPaz.Show
DoEvents
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset


strArquivo = [Ô]BancoCheirodaPaz.mdb[Ô]
strLocal = [Ô]APP.PATH[Ô]
Set cn = CreateObject([Ô]ADODB.Connection[Ô])
ConectaAccess = [Ô]Driver={Microsoft Access Driver (*.mdb)};[Ô] & _
[Ô]Dbq=[Ô] & strArquivo & [Ô];[Ô] & _
[Ô]DefaultDir=[Ô] & strLocal & [Ô];[Ô] & _
[Ô]Uid=Admin;Pwd=;[Ô]

cn.Open ConectaAccess



End Sub

O que fiz:

1-Instalei normal na maquina 1 e na maquina 2 usando o setup, sem problemas.

2-Destino do executavel = C:\SysCheirodaPaz\Sistema\SysCheirodaPaz.exe

3-Inicia em = \\Centro_02-pc\c\BdCheirodaPaz


Minha estrutura do executavel:

C:\SyscheirodaPaz\Sistema

Minha estrutura do banco:

C:\BdCheirodaPaz

Quando executo na maquina 2 ele diz que o caminho nao he valido, nao entendo o porque.

Estou no cliente e nao consigo fazer funcionar em rede meu executavel, amigos favor uma ajuda.

Quando eu criei este topico mostrei um caminho do banco diferente porque eu nao tinha o sistema pronto ainda e usei como exemplo, apenas e fiquei confiante e foi adiante, mais agora o bicho pegou e estou sem solucao no cliente.

Desde ja fico grato a todos do VbMania
FERRAZ 17/08/2011 15:18:17
#381901
Alguem pode me ajudar nessa.
FERRAZ 17/08/2011 16:30:03
#381917
Amigos, estou batendo na mesma tecla porque nao estou conseguindo resolver, ja fiz mil e uma e nada, eu estou com problems de acesso a net em casa como eu ja falei antes e ainda nao resolvi. Estou tentando justificar minha aucencia aqui no site, caros sei que ja passaram por isso antes, pelo menos os mais experientes. Favor estou sem solucao, uma ajuda por favor.

Grato,
Ferraz
FERRAZ 17/08/2011 17:56:42
#381927
Citação:

Caros colegas, me digam como tenho que escrever meu [Ô]app.path[Ô] para que o mesmo banco de dados seja executado nas duas maquinas, sei que estou ate sendo chato, mais o saber depende de outras pessoas, nao estou conseguindo resolver, estou a mais de 9 horas no cliente e nao consigo por em rede meu sistema que roda perfeitamente em uma maquina.



Ja usei todos meus conhecimentos e nada.


Colegas do VbMania, qual a solucao, considerem este meu apelo.


Valeu atenco de todos.
FERRAZ 18/08/2011 11:16:55
#381962
Amigos, dia, fiz uma ultima alteracao em meu modulo e estou vendo o mesmo bd nas duas maquinas, agora preciso acompanhar as movimentacoes e fazer os ajustes, finais.

Meu ajuste:

Private Sub Main()
[ô]Aqui eu uso um form main no projeto e nele eu trato as variaveis de conecxao com o banco de dados.
[ô]Logo em seguida eu torno a criar as variaveis que fazem as manipulacoes no bando de dados.

Dim strArquivo As String
Dim strLocal As String
Dim ConectaAccess As String

Load MDISysCheirodaPaz
MDISysCheirodaPaz.Show
DoEvents

Set Cnn = New ADODB.Connection
Set rs = New ADODB.Recordset

strArquivo = ([Ô]\BdCheirodaPaz\BancoCheirodaPaz.mdb[Ô])
strLocal = App.Path
Set Cnn = CreateObject([Ô]ADODB.Connection[Ô])
ConectaAccess = [Ô]Driver={Microsoft Access Driver (*.mdb)};[Ô] & _
[Ô]Dbq=[Ô] & strArquivo & [Ô];[Ô] & _
[Ô]DefaultDir=[Ô] & strLocal & [Ô];[Ô] & _
[Ô]Uid=Admin;Pwd=;[Ô]
Cnn.Open ConectaAccess

End Sub



Amigos, valeu atencao de todos e espero poder contar sempre com a ajuda de todos do VbMania.
Tópico encerrado , respostas não são mais permitidas
Voltar