Foro de programacion

Hola, quisiera saber como exportar un tabla a excel pero utilizando Query Analizer no desde el Enterprise Manager osea haciendolo en T-SQL, para luego poder hacerlo desde Visual Basic desde una conección ADO, muchas gracias, y espero una pronta respuesta, Bye!!!

SQL Server te provee el servicio de conversion de datos DTS, que sirve para IMPORTAR/EXPORTAR datos de muchos manejadores de datos, incluyendo a Access.

Solo DATOS, no te importa las relaciones creadas en access.

'VARIABLES DE EXPORTACION A EXCEL
Public xlApp As Excel.Application
Public xlBook As Excel.Workbook
Public WKS1 As Excel.Worksheet

'RUTINAS DE CREACION, APERTURA, GUARDADO Y CIERRE DE EXCEL.
'RECUERDA AGREGAR LAS REFERENCIA A MICROSOFT EXCEL EN EL MENU PROYECTO.

Private Sub CREAXLS()
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
Set WKS1 = xlBook.Worksheets(1) 'Asigno a WKS1 la hoja 1 del libro de Excel recien creado.
End Sub

Private Sub ABREXLS(Archivo)
Set xlBook = GetObject(App.Path & "\" & Archivo)
Set WKS1 = xlBook.Worksheets(1)
End Sub

Private Sub BORRAGUARDAYCIERRAXLS()
'WKS1.Cells.ClearContents
xlBook.Save
Set WKS1 = Nothing
Set xlBook = Nothing
End Sub

Private Sub GUARDAYCIERRAXLS(NombreArch)
On Error GoTo AA
xlBook.SaveAs NombreArch
AA:
If Err Then
MsgBox "Ha habido un error guardando el archivo. Revise que no este abierto o siendo usado por otra aplicacion", vbCritical
xlBook.Close False
End If
xlApp.Quit
Set WKS1 = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
End Sub

Private sub RUTINADEGUARDADO()
Dim i As Integer
CREAXLS
'Cuentas con un Recorset llamado RST proveniente de una Consulta hecha previamente.
i=1
RST.MoveFirst
Do While RST.EOF = False
WKS1.cells(i,1) = RST("IdCAMPO") 'Los campos son referenciales (Fila i, Columna 1 o A, Hoja 1 )
WKS1.cells(i,2) = RST("Nombre") 'Los campos son referenciales.(Fila i, Columna 2 o B, Hoja 1 )
i = i + 1 'Contador para las lineas de Excel.
RST.MoveNext
Loop
GUARDAYCIERRAXLS "C:\Prueba.xls"

End Sub

'El proceso para exportar a archivos de Excel existentes es el mismo pero se usa la rutina ABREXLS!
'No se como se hace con los requerimientos que pediste.. Pero esta es una forma práctica.
'No abuses con la cantidad de información exportada. Excel-VB envian información de forma muy lenta.
'Hasta ahora este método me ha servido bien.
'Att. Sergio A. Caicedo Mora. sacm@telcel.net.ve