Oi recomendações a todos
O parâmetro que vc deve definir são:
Type aqrTxt
Nome As String * 10
Emdereco As String * 15
Numero As String * 5
Cidade As String * 10
Bairro As String * 10
Cep As Trimg * 9
End Type
Este e o procedimento inicial esta variáveis definidas pelo usuário
Vc pode também definir o Nome As String * 256 e o tamanho Maximo permitido por variável.
Passo 2:
Public PegaTxt As aqrTxt
Passo 3:
Open “C:\Banco.txt” For Binary As #1
With PegaTxt
.nome = VariaveSql
.endereco= VariaveSql
put #1, , .nome
put #1, , .endereco
‘para ler o arquivo substituir por get
end with
Basicamente e isto:
Um Exemplo:
Para Executar o exemplo vc deve comferir as biblioteca, va para Project selecione References e procure por Microsoft DAO 2,5/3.51 Compatibility Library celecine e click em OK
Defina :
Public dbBanco As Database
Public StTabela As Recordset
Din Registro as Long
Din TamanhoAqr AS Long
din FileNum as Long
Depois defina
TamanhoAqr = len(PegaTxt)
FileNum = FreeFile
Open “C:\Banco.txt” For RanDom As PegaTxt len = TamanhoAqr
Set dbBanco = OpenDatabase(“C:\Banco.dbf”)
Set StTabela = dbBanco.OpenRecordset(“NomeDaTabela”, dbOpenDynaset)
Registro = 0
StTabela.MoveFirt
Volta:
Registro = Registro + 1
PegaTxt.Nome = ""
PegaTxt.Nome = StTabela![Nome] ' ou StTabela(1) valor do index da coluna do Banco
Put #registro, PegaTxt.Nome ‘Salva Valor TXT
StTabela.MoveNext
if StTabela.EOF goto Volta
Close #registro
