SRick
|
LAVRAS
MG - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 25/07/2011 17:57 hs
Senhores - boa tarde tenho a seguinte conexão:
----------------------------------------------------------------------------------------------
Global conexao As New ADODB.Connection
Public Function Conecta(ByVal Valor As Boolean)
If conexao.State = 1 Then
conexao.Close
Set conexao = Nothing
Valor = True
End If
If Valor = True Then
conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:JornadaTrabalhador.mdb;Jet OLEDB:Database Password=info;"
Else
conexao.Close
Set conexao = Nothing
End If
End Function
Gostaria de saber como faço para o programa ache o banco de dados sem eu precisar de indicar, conforme acima ... c:JornadaTrabalhador.mdb
Se por acaso eu inserir o banco de dados em qualquer diretório, o programa encontre pra mim, é isso que estou precisando.
Obrigado a todos os coVBWEB.
SRICK
|
|
|
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 25/07/2011 19:33 hs
henrique existem algumas maneiras, uma delas é procurar o banco com um common dialog e depois salva o caminho em um arquivo ini
|
|
|
|
LCRamos
|
GOIANIA
GO - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 25/07/2011 21:25 hs
Ou coloca direto o caminho em um arquivo ini, mudando o diretório, ou até mesmo a máquina, basta indicar no arquivo, é a maneira mais fácil e rápida.
vlu//
|
|
|
|
SRick
|
LAVRAS
MG - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 26/07/2011 12:01 hs
Obrigado avocês, vou fazer conforme explicado acima.
SRIck
|
|
|
|
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 27/07/2011 11:44 hs
Meu amigo alfterra, para vc não ter problema basta colocar o arquivo ini na mesma pasta do executavel, e seja lá onde for que esta pasta estiver será lida, ou seja:
app.Path & "\config.ini"
|
|
|
|
