SISTEMA EM REDE
Preciso da ajuda de vcs amigos do VBMania, pois, como sou iniciante em linguagem de programação e estou fazendo o meu primeiro programa, estou com dificuldades em colocar o meu sistema local em rede.
1 - o sistema está na minha pasta local
2 - compartilhei a pasta onde está o sistema
3 - copiei um atalho do executável em outra máquina
4 - abaixo como está a minha conexão com o banco de dados
Dim N As Integer
Dim conexao As New OleDb.OleDbConnection()
Dim read As OleDb.OleDbDataReader
Dim CN As New OleDb.OleDbConnection([Ô]PROVIDER=Microsoft.Ace.oledb.12.0;Data Source=c:\ajuda\agenda.mdb[Ô])
Obs: Estou usando o VB 2008 Expression Edition com Access
Obrigado!
1 - o sistema está na minha pasta local
2 - compartilhei a pasta onde está o sistema
3 - copiei um atalho do executável em outra máquina
4 - abaixo como está a minha conexão com o banco de dados
Dim N As Integer
Dim conexao As New OleDb.OleDbConnection()
Dim read As OleDb.OleDbDataReader
Dim CN As New OleDb.OleDbConnection([Ô]PROVIDER=Microsoft.Ace.oledb.12.0;Data Source=c:\ajuda\agenda.mdb[Ô])
Obs: Estou usando o VB 2008 Expression Edition com Access
Obrigado!
Bom dia
Tenta assim.
Tenta assim.
Dim N As Integer
Dim conexao As New OleDb.OleDbConnection()
Dim read As OleDb.OleDbDataReader
Dim CN As New OleDb.OleDbConnection([Ô]PROVIDER=Microsoft.Ace.oledb.12.0;Data Source=\\PastaCompartilhada\ajuda\agenda.mdb[Ô])
Altair, obrigado pela ajuda, porém, ainda não consegui êxito. Segue o anexo para vc dá uma conferida.
Mais uma vez, obrigado!
Mais uma vez, obrigado!
o erro é aparentemente no caminho do banco.
Faça o seguinte, abra Meu Computador e digita na barra de endereço:
e Veja se vai abrir algo.
Faça o seguinte, abra Meu Computador e digita na barra de endereço:
\\ajuda\
e Veja se vai abrir algo.
O caminho da pasta está errado, por exemplo:
nome do Servidor = [Ô]Servidor[Ô] ou o IP [Ô]192.168.0.1[Ô]
Nome Compartilhamento: [Ô]Projeto[Ô]
Ou
nome do Servidor = [Ô]Servidor[Ô] ou o IP [Ô]192.168.0.1[Ô]
Nome Compartilhamento: [Ô]Projeto[Ô]
Dim N As Integer
Dim conexao As New OleDb.OleDbConnection()
Dim read As OleDb.OleDbDataReader
Dim CN As New OleDb.OleDbConnection([Ô]PROVIDER=Microsoft.Ace.oledb.12.0;Data Source=\\Servidor\Projeto\agenda.mdb[Ô])
Ou
Dim N As Integer
Dim conexao As New OleDb.OleDbConnection()
Dim read As OleDb.OleDbDataReader
Dim CN As New OleDb.OleDbConnection([Ô]PROVIDER=Microsoft.Ace.oledb.12.0;Data Source=\\192.168.0.1\Projeto\agenda.mdb[Ô])
Altair, consegui. Obrigado pela força.
coloquei assim:
o nome host da minha máquina seguido da pasta compartilhada.
\ ec-02\Ajuda\agenda.mdb
coloquei assim:
o nome host da minha máquina seguido da pasta compartilhada.
\ ec-02\Ajuda\agenda.mdb
Ok, se tiver resolvido, não se esqueça de encerrar o tópico.
Abraços.
Abraços.
Tópico encerrado , respostas não são mais permitidas