请问如何在vb中将sql server表或查询导出到文本文件或EXCEL文件中？

Question

请问如何在vb中将sql server表或查询导出到文本文件或EXCEL文件中？

Answer 1

这是我用的用ado打开xls文件的连接字串，你可以参考一下
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\WINDOWS\Desktop\Quick Lunch\State Of Account\ARSTMW02.XLS;Extended Properties="Excel 8.0;HDR=NO;IMEX=1";Persist Security Info=False

Answer 2

http://expert.csdn.net/Expert/topic/2072/2072006.xml?temp=.3912775

Answer 3

http://www.csdn.net/develop/read_article.asp?id=14952

Answer 4

Dim Excel As Excel.Application
Dim ExcelWBK As Excel.Workbook
Dim ExcelWS As Excel.Worksheet
Set Excel = CreateObject("Excel.Application")
Set ExcelWBK = Excel.Workbooks.Add
Set ExcelWS = ExcelWBK.Worksheets(2)
Set ExcelWS1 = ExcelWBK.Worksheets(1)
ExcelWS.Cells.HorizontalAlignment = xllfet
ExcelWS.Cells(1, 3) = "JIANGSU SOHO INTERNATIONAL GROUP CORP."
ExcelWS.Cells(3, 3) = "8 ZHONGSHAN NAN LU,NANJING, CHINA                       "
ExcelWS.Cells(5, 3) = "PACKING LIST"
ExcelWS.Cells(6, 1) = "TO:"
ExcelWS.Cells(6, 2) = "HOWARD BERGER CO., INC   "
ExcelWS.Cells(7, 2) = " I SOUTH MIDDLESEX AVE."
ExcelWS.Cells(8, 2) = " MONROE TOWNSHIP"
ExcelWS.Cells(9, 2) = "NJ , 8831"
ExcelWS.Cells(6, 4) = "NO:"
ExcelWS.Cells(7, 4) = "DATE:"
ExcelWS.Cells(8, 4) = "Ctr#"
ExcelWS.Cells(9, 4) = "Destination:"
ExcelWS.Cells(9, 5) = Rec.Fields!Destination
ExcelWS.Cells(6, 5) = Rec.Fields!pno
ExcelWS.Cells(7, 5) = CStr(Format(Rec.Fields!pdate, "yyyy-mm-dd"))
ExcelWS.Cells(8, 5) = Rec.Fields!ctr
ExcelWS.Cells(11, 1) = "PO #"
ExcelWS.Cells(11, 2) = "ITEM"
ExcelWS.Cells(11, 3) = "Description"
ExcelWS.Cells(11, 4) = "MASTER CARTON"
ExcelWS.Cells(11, 5) = "Cube FT."
ExcelWS.Cells(11, 6) = "GROSS WEIGHT (KGS)"
ExcelWS.Cells(11, 7) = "NET WEIGHT (KGS)"