ERRO COM PROGRAMA NA REDE
Olá amigos:
Não tenho muito conhecimento em utilizar programas na rede mas enfim:
Fiz um programa, e instalei na minha maquina, fui em outra e mapiei um unidade de rede com a pasta do meu programa.
Coloquei um atalho no desktop da outra maquina, mas quando o usuario clica pra entrar no programa da erro.
O erro esta em arquivo anexado.
Obrigado.
Não tenho muito conhecimento em utilizar programas na rede mas enfim:
Fiz um programa, e instalei na minha maquina, fui em outra e mapiei um unidade de rede com a pasta do meu programa.
Coloquei um atalho no desktop da outra maquina, mas quando o usuario clica pra entrar no programa da erro.
O erro esta em arquivo anexado.
Obrigado.
Os parà ¢metros de conexão do bd está definido como modo exclusivo, assim só permitindo uma única conexão ao banco. Para resolver, deverá mudar para modo dinamico, assim conseguirá logar mais do que um usuário ao mesmo tempo.
Coloque mais detalhes de sua conexão com banco.
Até...
Coloque mais detalhes de sua conexão com banco.
Até...
Bom dia !!!
Estava tendo o mesmo problema com um programa que fiz, estava fazendo do mesmo jeito que você fez (mapeando uma unidade de rede), tente criar apenas um atalho sem mapear a unidade.
ex: \
ome da pasta
ome do *.exe, assim o meu problema foi resolvido.
Estava tendo o mesmo problema com um programa que fiz, estava fazendo do mesmo jeito que você fez (mapeando uma unidade de rede), tente criar apenas um atalho sem mapear a unidade.
ex: \
ome da pasta
ome do *.exe, assim o meu problema foi resolvido.
No incio do programa esta assim amigo LREZANI:
Dim lngHMenu As Long
lngHMenu = GetSystemMenu(Me.hwnd, False)
RemoveMenu lngHMenu, SC_CLOSE, MF_BYCOMMAND
Set dtb = OpenDatabase(App.Path & IIf(Right$(App.Path, 1) = "\", "", "\") & "\arquivos.Mdb", False, False, ";PWD=crsgq1")
On Error Resume Next
inc = True
Call SetWindowPos(Me.hwnd, -1, 0, 0, 0, 0, &H1 Or &H2)
ne = "SGQ"
Me.Caption = ne
On Error GoTo erro:
Set area = DBEngine.Workspaces(0)
Set bancodedados = area.OpenDatabase(App.Path & "\arquivos.mdb", False)
Set vmanual = bancodedados.OpenRecordset("manual")
vmanual.Index = "PrimaryKey"
Exit Sub
erro:
MsgBox Format(Err) & "-" & Error
Resume saida
saida:
Exit Sub
Dim lngHMenu As Long
lngHMenu = GetSystemMenu(Me.hwnd, False)
RemoveMenu lngHMenu, SC_CLOSE, MF_BYCOMMAND
Set dtb = OpenDatabase(App.Path & IIf(Right$(App.Path, 1) = "\", "", "\") & "\arquivos.Mdb", False, False, ";PWD=crsgq1")
On Error Resume Next
inc = True
Call SetWindowPos(Me.hwnd, -1, 0, 0, 0, 0, &H1 Or &H2)
ne = "SGQ"
Me.Caption = ne
On Error GoTo erro:
Set area = DBEngine.Workspaces(0)
Set bancodedados = area.OpenDatabase(App.Path & "\arquivos.mdb", False)
Set vmanual = bancodedados.OpenRecordset("manual")
vmanual.Index = "PrimaryKey"
Exit Sub
erro:
MsgBox Format(Err) & "-" & Error
Resume saida
saida:
Exit Sub
Bem, em sistemas que eu desenvolvo para rede, uso um servidor para manter o Banco de dados. (Normalmente eu mapeio uma unidade de rede com o nome SERVDADOS)
Veja como ficaria no seu projeto:
O uso de app.path só pode ser usado na refência de caminho de banco de dados caso cada máquina trabalhe com um banco diferente.
Tente usar o método que eu te passei.
Até...
Veja como ficaria no seu projeto:
Set dtb = OpenDatabase("\\SERVDADOS\arquivos.Mdb", False, False, ";PWD=crsgq1") O uso de app.path só pode ser usado na refência de caminho de banco de dados caso cada máquina trabalhe com um banco diferente.
Tente usar o método que eu te passei.
Até...
ok farei o teste.
obrigado
obrigado
Tópico encerrado , respostas não são mais permitidas