GERANDO ARQUIVO TEXTO

Citação:

exportar para txt

'coloque aqui a rotina para abrir seu mdb

Open "c:\arquivo.txt" For Append As #1

If rs.RecordCount > 0 Then
   Do While Not rs.EOF
      '
      'rotina para definir tamanho das colunas, para quando importar não se perder
      varNome = Right(rs("nome"), 50)
      varNome = varNome + Space(50 - Len(varNome))
      '
      varFone = Right(rs("fone"), 20)
      varFone = varFone + Space(20 - Len(varFone))
      '
      Print #1, varNome;
      Print #1, varFone
      '
      rs.MoveNext
      '
   Loop
End If
Close #1

'feche aqui seu mdb

Citação:

importar para mdb

'coloque aqui a rotina para abrir seu mdb

Open "c:\arquivo.txt" For Input As #1

Do While Not EOF(1)
   Line Input #1, xReg
   If Len(xReg) > 0 Then
      '
      rs.AddNew
      rs("nome") = Right(xReg, 50)
      rs("fone") = Mid(xReg, 51, 20)
      rs.Update
      '
   End If
Loop

Close #1

'feche aqui seu mdb