PROGRAMA QUE FUNCIONA PARA REDE

CLEVERTON 09/04/2004 10:57:24
#19586 Resposta escolhida

bem, vou lhe mostrar dois caminhos

mais facil - vá ao site do macoratti ( www.macoratti.net ) , lá tem " milhares " de topicos falando sobre redes.


mais dificil.

grave o nome da estação no registro do windows
para salvar
savesetting app.title,"Servidor", "Caminho" "\
omedoPC\c\caminho..."

para pegar o nome

dim a
a = getsetting(app.title,"servidor","caminho")

set db = opendatabase(a)

CLEVERTON 09/04/2004 12:11:44
#19595

bem...

vc tem que usar o savesetting para salvar informações no regstro do windos
p savesetting salva na hkey
Hkey_current_user\software\VB and VBA settings\

exemplo:
Savesetting "Nome.do.aplicativo","Pasta.a.ser.criada","chave.a.ser.criada","Valor.da.chave
faz a gravação no registro
---------------------------------------------
Getsetting "Nomedoaplicativo","pasta","chave","valorPadrão"
faz a leitura
obs:o valor padrão é um valor opcional
----------------------------------------------
bem... mas vamos ao que interessa.

se vc já estiver sabendo qual a estação que ficará o servidor vc usa

set db = opendatabase("\\micro1\c\arquivos de programas\controle\suabase.mdb"

caso vc nao souber, vc cria um form de configurações

cmd_ok()
savesetting app.title,"Servidor","Caminho","\\" & text1.text & "\c\arquivos de programas\controle\suabase.mdb"
end sub
------------------------------------------------------------------------------------

agora entramos na parte do form que irá abrir a base

Form_load()

dim Servidor as string
Servidor = getsetting(app.title,"Servidor","caminho")
set db = opendatabase(servidor)

end sub
set db = opendatabase

ah. desculpa se fui rude, não foi minha intenção

CLEVERTON 09/04/2004 12:16:43
#19597

se quiser trocar uma ideia

cleverton.on@pop.com.br

ah, depois do end sub ( set db = opendatabase )" NAO USE, oif um erro de digitação)

CLEVERTON 09/04/2004 12:24:24
#19601

qual o seu e-mail

vou lhe passar o projeto

CLEVERTON 09/04/2004 12:45:25
#19608

'FORM1
'este form contem um label uma textbox e um commandbutton
Dim Opcao As String

Private Sub cmd_ok_Click()
'grava o nome da estacao no Registro do windows
SaveSetting App.Title, "Servidor", "CaminhoBD", "\\" & Text1.Text & "\c\arquivos de programas\Controle\SuaBase.mdb"
Unload Me
Form2.Show
End Sub

Private Sub Form_Activate()

If Opcao = "" Then
Form1.Show
Else
Unload Me
Form2.Show
End If


End Sub

Private Sub Form_Initialize()
Opcao = GetSetting(App.Title, "Servidor", "CaminhoBD")

'este evento ocorre antes do evento load
End Sub

-------------------------------------------------------------------------------------
FORM2
'
Dim BD As Database
Dim Opcao As String

Private Sub cmd_abrir_BD_Click()
Opcao = GetSetting(App.Title, "Servidor", "CaminhoBD")
Set BD = opendatabase(Opcao)
End Sub

espero dessa vez ter ajudado