LOGIN:

iMasters | Por uma internet mais criativa e dinâmica

Feeds

Access

Feed da seção Access

Newsletter de Access


Segunda-feira, 06/08/2001 - 01:59 - Por Redação iMasters
Seções relacionadas:

Exportar MDB como ASCII

Fonte: Fábio Cavalcante

Num módulo:

Public Function Mdb2Txt(BD, Tabela, Arquivo As String)
Dim db As Database
Dim rs As Recordset

Set db = OpenDatabase(BD)
Set rs = db.OpenRecordset(Tabela)

‘step 3:
Dim nFile%
Dim vFileName$
vFileName$ = Arquivo

nFile% = FreeFile
Open vFileName$ For Output As #nFile%

‘step 4 / 5:
Dim counter%
Dim MaxFields%
MaxFields% = rs.Fields.Count - 1
Do While Not rs.EOF
For counter% = 0 To MaxFields%
If Not IsNull(rs.Fields(counter%).Value) Then _
Print #nFile, rs.Fields(counter%).Value;
‘Write #nFile, rs.Fields(counter%).Value; ‘Com delimitadores
Next counter%
Print #nFile,
rs.MoveNext
‘walther.musch@kather.net
Loop

‘step 6:
rs.Close
db.Close
Close #nFile%

End Function

Teste:

Private Sub Comando1_Click()
retorno = Mdb2Txt(“c: empescritafiscal.mdb”, “tblTransmissor”, “c: emp este.txt”)
End Sub

Em http://www.kather.net/VisualBasicSource/msa/msaindex.htm

1 comentários publicados

  • 1. Duvidas

    Quarta-feira, 30/06/2004, por José Teles Andrade

    Queira saber como faço para criar um site para abrilo e uma resolução de 1024x - terminei de fazer um site e não sei como fazer isso.

    Responder comentário

Poste um comentário


Os textos publicados neste espaço são de responsabilidade única de seus autores (colunistas e leitores) e podem não expressar necessariamente a opinião do iMasters.


2001 - iMasters FFPA Informática Ltda - Todos os direitos reservados.