在SQLSERVER里用SELECT INTO导出DBF，XLS表的问题！！

Question

另外SQLSERVER里有没有实现这样功能的存储过程？？？？

Answer 1

这里没人知道么？？？　高人帮帮忙吧。
我在http://www.developersdex.com/sql/ 老外说对SQLSERVER里的DTS编程就可以做到。
哪位高人做过DTS编程？？？　我到是找到一个DTS编程的例子，是VB的，可是感觉帮助还是
少。哪位做过的？请给点帮助吧？？？？！！！！！　多谢了。
可以加分。

Answer 2

导出好像是要用到ODBC莱连接,就向ASP导出SQL server一样,请参考.

Answer 3

可以試著寫點CODE
 Dim scriptt As New Scripting.FileSystemObject
 Dim tstrSave As TextStream
 Dim strFileName As String
 cmd1.ShowSave
 strFileName = cmd1.FileName 
   Set scriptt = CreateObject("Scripting.FileSystemObject", sunny)
    Set tstrSave = scriptt.OpenTextFile(strFileName, ForWriting, True, TristateFalse)
    strhead = "工號" + Chr(9) + "姓名" + Chr(9) + "部門" + Chr(9) + "事假" + Chr(9) + "病假" + Chr(9) + "喪假" + Chr(9) + "礦工" + Chr(9) + "婚假" + Chr(9) + "公假" + Chr(9) + "工傷" & _
    Chr(9) + "產假" + Chr(9) + "其他" + Chr(9) + "起止日期"(相關字段)
    tstrSave.Write strhead + Chr(13)
    For I = 0 To rs.RecordCount - 1
     strt = rs.Fields("employeeid") + Chr(9) + rs.Fields("name") + Chr(9) + rs.Fields("department") + Chr(9) + Str(rs.Fields("accidenthols")) + Chr(9) & _
      Str(rs.Fields("illhols")) + Chr(9) + Str(rs.Fields("diehols")) + Chr(9) + Str(rs.Fields("miner")) + Chr(9) + Str(rs.Fields("marriagehols")) & _
      Chr(9) + Str(rs.Fields("commhols")) + Chr(9) + Str(rs.Fields("compohols")) + Chr(9) + Str(rs.Fields("newbabyhols")) + Chr(9) + Str(rs.Fields("othershols")) & _
      Chr(9) + CStr(rs.Fields("starttime")) + "--" + CStr(rs.Fields("endtime"))
      
     tstrSave.Write strt + Chr(13)
     rs.MoveNext
    Next I
    tstrSave.Close