Pessoal, como faço para executar meu sistema em rede. O link que eu utilizo é esse

o executável e o banco de dados está no servidor Windows XP, mas quando clico a seguinte mensagem de erro é exibida:

Run Time error: 3051

O mecanismo de banco de dados jet não pode abrir o arquivo \celeronsgesge.mdb.

Ele foi aberto em modo exclusivo por outro usuário ou você precisa de permissão para exibir seus dados.

 

O que eu faço ?

Amigo, o melhor para se executar sistemas em rede, é ter um arquivo INI, e instalar o exe em cada máquina, dai no arquivo INI, voce coloca o caminho do BD, fica simples, rápido e prático.

 

vlu//

LCRamos, como eu faço para usar esse arquivo .ini, desculpe minha ignorancia, mas nunca fiz isso, nunca usei programas em rede ? Obrigado...

Ferreira em programo em rede também, e ja usei o arquivo.ini também assim como o nosso amigo LCRamos comentou. Más eu particulamente utilizo uma outra saída e não tenho problema com demora na abertura ou execução dos meus programas

Aqui na empresa, o meu servidor é Linux e minhas estações são Windows XP, no meu projeto eu crio uma variável onde guarda o caminho do banco e outra variável que guarda o campo do banco que estarei utilizando e depois no form eu coloco o caminho. Depois que gero o executável, coloco ele apenas no servidor Linux, e depois para as estações eu simplismente puxo um atalho desse executável e coloco na área de trabalho e só

Ficaria assim:

No General

Public DB As Database
Public Func As Recordset

No Form ( eu utilizo no active )

Set DB = OpenDatabase(App.Path & "cadastro.mdb")
Set Func = DB.OpenRecordset("Funcionario", dbOpenTable)

E particulamente nos meus clientes, esse esquema também é utilizado

Qualquer dúvida sobre esse método posta ai

Abraço

Em um módulo

 

Public Function sGetINI(sINIFILE As String, sSection As String, sKey _
 As String, sDefault As String) As String
 Dim sTEMP As String * 256
 Dim nLENGTH As Integer
 sTEMP = Space$(256)
 nLENGTH = GetPrivateProfileString(sSection, sKey, sDefault, sTEMP, _
 256, sINIFILE)
 sGetINI = Left$(sTEMP, nLENGTH)
End Function

 

No formulário inicial

 

Dim sINIFILE As String

Dim sDRIVE AS sTRING

Dim sMEN As String

 

sINIFILE = App.Path & "NOME.INI"

 

PARA LER O ARQUIVO:

 

 sDRIVE = sGetINI(sINIFILE, "UserDrive", "Drive", "?")
 If sDRIVE = "?" Then
  Beep
  sMEN = MsgBox("Favor Contactar Suporte do Sistema(" & sDRIVE & ")", vbCritical +vbOKOnly, "Suporte Técnico: Fone (0xx62) 9669-5070)")
  Unload ME
  End
 End If

 

 

Exemplo de arquivo INI

[UserDrive]
Drive=C:PASTA

 

Basta voce mapear os terminais com a letra do drive, e no servidor deixe a C, quando quiser alterar basta mudar nos terminais a letra, o BD será encontrado.

 

vlu//