Compartilhar BD ACCESS


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Compartilhar BD ACCESS

Formiga

SÃO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 03/02/2010 16:51 hs

Olá Galera

Desenvolvi uma pequena aplicação que controla a entrada de uma portaria, devido ao fluxo de pessoas, umas 600 por dia é necessário mais de uma máquina.

Usei o VB 6 e a base de Dados ACCESS 2003, com comunicação ADO, como deixar esta base de dados compartilhada?

Procurei nos artigos do fórum e não encontrei.

Help

LCRamos

GOIANIA
GO - BRASIL

ENUNCIADA !

Postada em 03/02/2010 18:10 hs

Voce tem que abrir compartilhada, nunca exclusiva, agora para abrir compartilhada, depende que componente voce usa ou qual a sua conexão com o BD, esclareça.

vlu//

Formiga

SÃO PAULO
SP - BRASIL

Postada em 03/02/2010 21:04 hs

Cara!

Bem para compartilhar o Banco de Dados, o deixei em uma máquina e mapei o caminho da rede.

O código ficou assim:

1 - Option Explicit

2 - Global cnnbanco As ADODB.Connection
3 - Global rsBanco As ADODB.Recordset
4 - Global cod_Municipe As Integer

5 - Sub Main()
6 - On Error GoTo traTaError
'conectar banco de dados
7 - conectaBanco
8- Exit Sub
9 - traTaError:
10 - MsgBox "Perca de Conexão com a Base de Dados!!" & vbCrLf & "Contate ADM do SIS"
11 - End Sub

12 - Public Sub conectaBanco()

13 - Set cnnbanco = New ADODB.Connection

14 - cnnbanco.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=x:ancoaseGeral.mdb"

'chama o formulário Principal
15 - mdiFrmPrincipal.Show
16 - End Sub

***********

Enumerei as linhas de código para facilitar o entendimento.

Na Linha número 2 quero declarar a conexão com Eventos, por que a cada momento que ocorrer uma atualização, estou tentando usar a seguinte sintaxe

Global WithEvents cnnBanco As ADODB.Connection

Na compilação aparece a seguinte mensagem:

Only valid in object module

A Pergunta é:

Esqueci de fazer alguma referência? Quando tiro que permite o evento no objeto funciona perfeitamente.

Formiga

SÃO PAULO
SP - BRASIL

Postada em 03/02/2010 21:04 hs

Cara!

Bem para compartilhar o Banco de Dados, o deixei em uma máquina e mapei o caminho da rede.

O código ficou assim:

1 - Option Explicit

2 - Global cnnbanco As ADODB.Connection
3 - Global rsBanco As ADODB.Recordset
4 - Global cod_Municipe As Integer

12 - Public Sub conectaBanco()

13 - Set cnnbanco = New ADODB.Connection

14 - cnnbanco.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=x:ancoaseGeral.mdb"

'chama o formulário Principal
15 - mdiFrmPrincipal.Show
16 - End Sub

***********

Enumerei as linhas de código para facilitar o entendimento.

Na Linha número 2 quero declarar a conexão com Eventos, por que a cada momento que ocorrer uma atualização, estou tentando usar a seguinte sintaxe

Global WithEvents cnnBanco As ADODB.Connection

Na compilação aparece a seguinte mensagem:

Only valid in object module

A Pergunta é:

Esqueci de fazer alguma referência? Quando tiro que permite o evento no objeto funciona perfeitamente.

Treze

SÃO VICENTE
SP - BRASIL

Postada em 04/02/2010 08:58 hs

Exatamente crie uma rede

e apenas mostre o caminho do banco de dado no servidor

ex:

CNN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\servdor\bancodedados.mdb"

quando a base esta em uma maquina da rede aponte a maquina atecedendo de duas barras invertidas e depois o restante do caminho

Formiga

SÃO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 04/02/2010 11:30 hs

OK.

Mapeie um caminho na rede e tudo certo!

Agora quero deixar a minha conexão com Eventos mais apresenta o seguinte erro na hora de declarar

Only valid in object module

Esqueci de algo!

Página(s): 1/2 PRÓXIMA »

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

VOLTAR