Visual Basic - SQL a un archivo de texto

Hola gente linda! tengo una consulta tengo que entregar un trabajo practico para la facu y no encuentro nada de info necesito aplanar datos de una base de datos sql a un archivo de texto como se puede hacer esto?

Les agradezco mucho !! Besitos

Primera Forma (DTS)

1.-Abrir el Administrador Corporativo de SQL ,
2.-luego click derecho en la base de datos de la que quieres extraer los datos ,
3.-luego eliges la opcion exportar
4.-Opcion de Origen , mostrara el origen que seleccionaste. dale siguiente
5.-Opcion de destino eliges la primera opcion de la lista que dice archivo de texto.

Segunda Forma

1.-Abrir el analizador de consultas
2.-Generar la consulta que se quiere
3.-Eligen en el menu la opcion consulta , luego ver los resultados en archivo de texto.

Espero te sirva

Saludos

Rolando Lau

Perdon Rolando Lau me explrese mal lo que tengo que hacer es desde un programa de visual basic 6 tengo que entrar a la base de datos de SQL y exportar datos a un archivo de .txt como podria hacer esto??

Besos Gracias

1.- Cargas los registros de SQL en una variable RecordSet en Visual basic

Funcion para cargar un recorset :
Public Function fRetornaRS(GsSentenciaSQL As String) As ADODB.Recordset

Dim Cmd As New ADODB.Command
Dim rs As New ADODB.Recordset
On Error GoTo Msj_error
rs.CursorLocation = adUseClient

With Cmd
.ActiveConnection = "provider=sqloledb;data source=BE02;uid=contable;database=PRUEBAS;pwd=contable;"
.CommandType = adCmdText
.CommandText = GsSentenciaSQL
.Execute
End With

rs.Open Cmd, , adOpenDynamic, adLockOptimistic
Set fRetornaRS = rs
Set rs = Nothing
Set Cmd = Nothing

Msj_error:
If Err.Number <> 32755 Then
If Len(Err.Description) > 1 Then MsgBox "Ocurrió el Siguiente Error:" + Chr(13) + Err.Description, vbCritical, "SISTEMA"
End If
End Function

CARGAS EJEMPLO:

DIM RSClientes as New ADODB.recordset
fRetornaRS ("SELECT * FROM CLIENTES")

' un select a la tabla clientes que tiene los campos : NombreCli y RUC

2.- Luego por ejemplo en un boton

Open "c:Archivo.txt" For Append As #1
for i = 0 to RS.recordcount -1 ' Aqui recorres la lista de registros de tu select
Print #1, RS!NombreCli & " " & RsRUC
next
Close #1

Bien espero te ayude,

Saludos

Rolando