ARQUIVO DE TEXTO

USUARIO.EXCLUIDOS 17/04/2007 12:04:13
#212259
Caro colega vi sua resposta muito interessante mais só que ficou um vazio e uma dúvida onde eu uso esse procedimento no módulo ou no evendo desejado

porque quando uso no evendo ele informa um erro sobre esse comando "Open app.path "


Open app.path & "\ConfigBanco.txt" for Ouput as #1
Print #1, "C:\Teste\BD_dados.mdb"
Close #1


Para pegar o Caminho do txt

Dim PathBanco as String
Open app.Path & "\ConfigBanco.txt" for Input as #1
Line Input #1, PathBanco
Close #1


para conectar no banco utilize assim:

Dim db As Database
Dim RsCadastro As Recordset
Set db = OpenDatabase(PathBanco)
USUARIO.EXCLUIDOS 17/04/2007 14:15:31
#212292
A sintaxe correta da linha que está dando erro é :

Open "" & App.Path & "\ConfigBanco.txt" For Output As #1

vc pode coloca-las tanto no módulo como no evento desejado, so que no módulo como vc sabe é necessário que se construa uma função para depois essa função ser chamada pelo evento que vc quer:

public sub abre_arquivo()
Open ""& app.path & "\ConfigBanco.txt" for Output as #1
   Print #1, "C:\Teste\BD_dados.mdb"
Close #1




WHELLNET 17/04/2007 19:02:39
#212407 Resposta escolhida
Cara, utilize as facilidades dos arquivos INI para gravar e ler configuracoes. Fiz esse módulo de leitura de gravação.

Basta adiciona-lo em seu projeto e usar assim para gravar
GravaIni "Chave", "Item", "Valor", "C:\arquivo.ini"

E para ler quase a mesma coisa
Msgbox LeIni "Chave", "Item", "C:\arquivo.ini"


O nome do arquivo é opcional, se vc não informar, ele seguirá o path e nome do seu projeto.
Tópico encerrado , respostas não são mais permitidas
Voltar