Amigos, Tenho (1) um form com um data1 ligado  ao bco, Tudo bem. O que eu queria era abrir um Blco de nota (leituta.txt) e colocar dentro o endereço do Bco. (Ex.: "C:     elefone.mdb"), no Form Load (Ex.: data1.databasename = Leitura.txt). a função seria quando eu colocar o Bco em outra pasta,Troco  o end. no Blco de nota (Ex.:D:     elefone.mdb) e o programa vai buscar neste novo End.

Agradeço !

Abraço à Tuda família VB.

 

Caro colaborador,

Aconselho a vc usar arquivos ini (Que não eixam de ser um txt) para esse tipo de armazenamento de dados.

Segue um exemplo para vc testar, modificar e manipular de acordo com sua aplicação:

 

 

'Os códigos abaixo servem para ler e escrever em arquivos .INI

'Para ler arquivos INI faça o seguinte:

'Em um módulo .BAS coloque:

 

Private Declare Function GetPrivateProfileString Lib "Kernel32" Alias _
"GetPrivateProfileStringA" (ByVal lpApplicationName As String, _
ByVal lpKeyName As String, ByVal lpDefault As String, ByVal _
lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName _
As String) As Long

Private Declare Function GetProfileString Lib "Kernel32" Alias _
"GetProfileStringA" (ByVal lpAppName As String, ByVal lpKeyName _
As String, ByVal lpDefault As String, ByVal lpReturnedString As _
 String, ByVal nSize As Integer) As Integer

Private Declare Function WritePrivateProfileString Lib "Kernel32" Alias _
"WritePrivateProfileStringA" (ByVal lpAppName As String, ByVal lpKeyName _
As String, ByVal lpDefault As String, ByVal lpFileName As String) As Integer

 

'Esta função lê o conteúdo do arquivo ini
Public Function LerIni(Secao, Chave, NomeArquivo)

'Secao = É o que está entre []
'Chave = É o nome que se encontra antes do sinal de igual (=)
'NomeArquivo = É o nome do arquivo INI

Dim Val As String
Dim valor As Integer

Val = String$(255, 0)
valor = GetPrivateProfileString(Secao, Chave, "", Val, Len(Val), NomeArquivo)

If worked = 0 Then
    LerIni = ""
Else
    LerIni = Left(Val, valor)
End If

End Function

 

'Esta função escreve no arquivo ini
Public Sub EscreverIni(Secao, Chave, Dado, NomeArquivo)

'Secao = É o que está entre []
'Chave = É o nome que se encontra antes do sinal de igual (=)
'Dado = É o valor que vai depois do sinal de igual (=)
'NomeArquivo = É o nome do arquivo INI

Dim Val As String
Dim valor As Integer

Val = String$(255, 0)
valor = WritePrivateProfileString(Secao, Chave, Dado, NomeArquivo)

End Sub

 
'Para chamar as funções faça o seguinte:
'
'Text1.Text = LerIni("EntreColchetes", "AntesDoIgual", "ARQUIVO.INI")
'Call EscreverIni ("EntreColchetes", "AntesDoIgual", "ValorPosIgual", "ARQUIVO.INI")