Caminho Do Bd Em .txt

[rodfraga]

Bem, eu fiz um programa em que o bd para funcionar tem que estar no mesmo diretório do software. Para "comodidade" do usuário eu queria que ele pudesse mudar o caminho do bancos. Para isso haveria um form que alteraria o caminho do bd, sempre REESCREVENDO o caminho do bd na primeira linha de um arquivo txt. A cada vez que o usuario mudasse o caminho, mudava a conteudo da linha. Toda vez que a conexao fosse aberta, o software LIA a primeira linha do arquivo text e conectava ao caminho escrito ali. Como eu posso fazer isso? Eu já tinha aprendido essas parte de Open, num sei o que(acredito que esteja relacionado a isso) mas to vendo que deixei umas lacunas...

Agradeço desde já

Abraços

[rbordini]

É exatamente isso que eu quero tb

[rodfraga]

É muito útil esse negócio de alterar caminho.

A parte de reescrever (sempre que o usuario trocar o caminho) o endereço do banco de dados tá ok né? Dá pra fazer isso legal assim:?

Dim x As String
Private Sub cmd_Click()
x = Dir1.Path
Open path.txt For Output As #1
Print #1, x
Close #1
End Sub

Tá certo né? Ai como eu faço pra sempre que abrir a conexão com o banco de dados, o software ler esse arquivo(primeira linha) e pegar o caminho, adicionar o nome(sempre o mesmo) do banco(exemplo: produtos.mdb) ao endereço e criar a conexão?

Abraços

[Graymalkin]

A leitura também é simples:

Dim x As String
Dim n as byte
n = freefile()
open "path.txt" for input As #n
input #n, x
close #n

cn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & x & "\produtos.mdb"

No caso, estou supondo que o caminho gravado não tem a última contra-barra (como em "c:\temp").

Abraços,

Graymalkin

[rbordini]

pô... perdoem a minha ignorância mas eu não estou conseguindo transpor isso para o meu programa.

Dêem uma olhada como eu faço a abertura do meu DB (uso DAO):

Public db_fun As Database

Set db_fun = OpenDatabase(App.Path & "\db_fun.mdb", False, False, ";pwd=rbordini")

Alguém poderia me explicar de forma sucinta?

[ ]'s

[rodfraga]

Dim x As String

Dim n as byte

n = freefile()

open "path.txt" for input As #n

input #n, x

close #n

cn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & x & "\produtos.mdb"

Dim x As String
Dim n as byte
n = freefile()
Public db_fun As Database
open "path.txt" for input As #n
input #n, x
Close #n
Set db_fun = OpenDatabase(" & x & "\db_fun.mdb", False, False, ";pwd=rbordini")

Acho que é assim.

Abraços e valeu Graymalkin

[rbordini]

v-a-l-e-u!!

abraço