Dim cnt
Set cnt = CreateObject("ADODB.Connection")
cnt.Provider = "SQLOLEDB"
cnt.ConnectionString= "Driver={SQL Server};Server=127.0.0.1;Database=Northwind;UID=sa;PWD="
cnt.Open
Set recordSet = CreateObject("ADODB.Recordset")
Set recordSet1=cnt.Execute("Select * from Employees")
Set objStream=CreateObject("ADODB.Stream")
recordSet1.Save objStream,1
Set objExcel=CreateObject("Excel.Application")
Set objSheet=CreateObject("Excel.Sheet")
objSheet.Application.visible=true
objSheet.activesheet.cells (1,1).CopyFromRecordset recordSet1
objSheet.Saveas "C:\tests.xls"
objExcel.quit
Set objSheet =Nothing
recordSet1.Close
Syndication
2010-03-11 @ 01:10:42 pm
by ed-hardy
I ordered essay papersI conceive they ...
2010-03-10 @ 04:49:21 pm
by Macias18Alfreda
aqian100310 Designer Watches Vacations, Cruises & ...
2010-03-10 @ 08:54:00 am
by Replicawatches
mbt shoes sale , ...
2010-03-10 @ 07:28:17 am
by MBT OUTLET
mbt sale ,MBT Safiri ...
2010-03-10 @ 07:27:06 am
by MBT OUTLET
mbt shoes sale , discount ...
2010-03-10 @ 07:26:17 am
by MBT OUTLET
mbt sale ,
2010-03-10 @ 07:25:12 am
by MBT OUTLET
mbt sale promotion,
2010-03-10 @ 07:24:18 am
by MBT OUTLET
mbt shoes uk direct,
2010-03-10 @ 07:23:12 am
by MBT OUTLET
mbt sale ,
2010-03-10 @ 07:14:23 am
by MBT OUTLET
mbt shoes sale ...
2010-03-10 @ 07:13:11 am
by MBT OUTLET
You are so master and your ...
2010-03-10 @ 05:50:52 am
by Tricia26Yates
We have now very good Internet ...
2010-03-09 @ 11:33:29 pm
by StephensonJoann
Did you have some knowledge that ...
2010-03-09 @ 09:27:34 pm
by SIMONDollie
Oakley and Ray Ban ...
2010-03-09 @ 08:34:35 am
by oakley