|
|
Postada em 02/03/2006 15:44 hs
boa tarde!!!! Gostaria de saber como eu faço para exportar os dados de uma tabela do access para um arquivo txt, usando o VB. obrigado victor |
|
|
|
|
|
|
|
Postada em 02/03/2006 16:47 hs
Text1 = TABELA!CAMPO1 Text2 = TABELA!CAMPO2 Text3 = TABELA!CAMPO3 E assim consecutivamente, se o nome do campo tiver espaços use colchetes Text1 = TABELA![NOME DO CAMPO 1] Valeu?? |
|
|
|
|
|
Postada em 02/03/2006 17:08 hs
"O pior inimigo que você poderá encontrar será sempre você mesmo."
|
|
|
|
Martini
|
PAROBÉ
RS - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 03/03/2006 07:43 hs
Dim rst As Recordset
Set rst = vgdb.OpenRecordset("SELECT Produtos.Codigo, Produtos.Nome FROM Produtos;")
If rst.RecordCount > 0 Then
Open "C: emp esteexptxt.txt" For Output As #1
Do While Not rst.EOF
Print #1, String(10 - Len(Str(rst![Codigo])), " ") + Str(rst![Codigo]) + rst![Nome] + String(50 - Len(rst![Nome]), " ")
rst.MoveNext
Loop
Close #1
End If
If Not rst Is Nothing Then
rst.Close
Set rst = Nothing
End If
MsgBox "ok" é importante utilizar todo o espaço do campo ... string(...
|
|
|
|
