Como faço para exportar informações obtidas num sql para um arquivo Txt.

 

Estou com esse código fonte, mas acho que o OUTPUT TO só funciona no sybase.

 

sql = " select top 10 from tbl_atendimentos order by dat_atual, hora_atual; " & _
      " output to C:     este.txt "

 

Podem me ajudar.

 

Grato !!!

Veja estas dicas:

Exportar um recordset como um arquivo texto usando ADO e o FileSystemObject
http://www.vbweb.com.br/dicas_visual.asp?Codigo=1373&Classificacao=

Exportar os dados de uma tabela para um arquivo texto ou DBF  (usando DAO)
http://www.vbweb.com.br/dicas_visual.asp?Codigo=1371&Classificacao=

Exportar tabela para um arquivo texto (usando controle DATA)
http://www.vbweb.com.br/dicas_visual.asp?Codigo=687&Classificacao=

cara eu fiz assim:

 

    Dim Fso As New FileSystemObject
    Dim TxtFile As TextStream, txtFileDeb As TextStream, txtFileDebBB As TextStream
    Set Fso = CreateObject("Scripting.fileSystemObject")
   

    Dim LocDrive As String
    LocDrive = ComboBox1.Text
    Set TxtFile = Fso.CreateTextFile("" & LocDrive & "Remessa.txt", True)
   
Dim VarExp As String
Dim Ord As String
Ord = "1"

'GERA OS DADOS DOS LANÇAMENTOS
    TabLanc.CursorLocation = adUseServer
    TabLanc.Open "Select * From CadLanc order by [Matricula]", BancoAluno, adOpenKeyset, adLockOptimistic, adCmdText
        Ord = "1"
    Do While Not TabLanc.EOF
            VarExp = ""
            VarExp = Ord & "#"
            VarExp = VarExp & "ExpLanc" & "#"
            VarExp = VarExp & TabLanc("matricula") & "#"
            VarExp = VarExp & TabLanc("matinterna") & "#"
            VarExp = VarExp & TabLanc("nome") & "#"
            VarExp = VarExp & TabLanc("sex") & "#"
            VarExp = VarExp & TabLanc("dtnasc") & "#"
            VarExp = VarExp & TabLanc("nat") & "#"
            VarExp = VarExp & TabLanc("nomeresp1") & "#"
            VarExp = VarExp & TabLanc("profresp1") & "#"
            VarExp = VarExp & TabLanc("nomeresp2") & "#"
            VarExp = VarExp & TabLanc("profresp2") & "#"
            VarExp = VarExp & TabLanc("ender") & "#"
            VarExp = VarExp & TabLanc("bairro") & "#"
            VarExp = VarExp & TabLanc("cid") & "#"
            VarExp = VarExp & TabLanc("uf") & "#"
            VarExp = VarExp & TabLanc("codesc") & "#"
            VarExp = VarExp & TabLanc("escola") & "#"
            VarExp = VarExp & TabLanc("codturma") & "#"
            VarExp = VarExp & TabLanc("turma") & "#"
            VarExp = VarExp & TabLanc("serie") & "#"
            VarExp = VarExp & TabLanc("turno") & "#"
            VarExp = VarExp & TabLanc("curso") & "#"
            VarExp = VarExp & TabLanc("ano") & "#"
            VarExp = VarExp & TabLanc("dtmatricula") & "#"
            VarExp = VarExp & TabLanc("foto") & "#"
            VarExp = VarExp & TabLanc("CodCenso") & "#"
        TxtFile.Write VarExp
        TxtFile.WriteBlankLines (1)

    ProgressBar3.Max = TabLanc.RecordCount
    ProgressBar3.Value = ProgressBar3.Value + 1
    TabLanc.MoveNext
    Label16.Caption = Ord
    Ord = Ord + 1
    Loop
    TabLanc.Close

 

 

OBS:

   'No menu Projecto , clique em References , e, em seguida, clique para seleccionar a
   'caixa de verificação Microsoft Scripting Runtime

 

seguinte, esse codigo pega dados d  uma tabela e joga num TXT separado por "#", mas pode ser qualquer outro sinal...

 

Aeeww ..

 

valeu vilmar ..

 

A primeira dica foi certinha !!