100分求一句SQL的正确写法（在VB中使用），急！！！！

这是我在网上看到的，可怎么试都通不过  
  '"SELECT   field1,field2   INTO   [Text;DATABASE=C:\My   Documents\].["   &   FileTxt   &   "]"   &   "FROM   mdb   "  
   
  是在VB中使用的，将SQL   Server数据库中一个表的记录导出为文本文件  
   
  请问假设数据库为test，导出文本文件为test.txt，该怎么写？谢谢 问题点数：100、回复次数：2Top

1 楼drk928（一起看斜阳）回复于 2003-05-03 13:39:19 得分 20

用SQLSERVER建立一个DTS,执行一个从数据库导出为一个文本文件的操作,然后将本操作存为一个VB模块.代码全部都可以看到.Top

2 楼online（龙卷风V4.0--决战江湖(MS MVP-VB)）回复于 2003-05-03 13:41:01 得分 80

Option   Explicit  
  Dim   db   As   Database  
   
  Private   Sub   Command1_Click()  
  Command1.Enabled   =   False  
  db.Execute   "SELECT   *   INTO   [dBase   III;DATABASE=C:\].[authors.DBF]   FROM   [authors]"  
  Command1.Enabled   =   True  
  End   Sub  
   
  Private   Sub   Command2_Click()  
  Command2.Enabled   =   False  
  db.Execute   "SELECT   *   INTO   [Text;DATABASE=C:\].[authors.TXT]   FROM   [authors]"  
  Command2.Enabled   =   True  
  End   Sub  
   
  Private   Sub   Command3_Click()  
  Command1.Enabled   =   False  
  db.Execute   "SELECT   *   INTO   [HTML   Export;DATABASE=C:\].[authors.HTM]   FROM   [authors]"  
  Command1.Enabled   =   True  
  End   Sub  
   
  Private   Sub   Command4_Click()  
  Command1.Enabled   =   False  
  db.Execute   "SELECT   *   INTO   [Excel   8.0;DATABASE=C:\authors.XLS].[authors]   FROM   [authors]"  
  Command1.Enabled   =   True  
  End   Sub  
   
  Private   Sub   Form_Load()  
  Command1.Enabled   =   False  
  Set   db   =   Workspaces(0).OpenDatabase(App.Path   &   "\biblio.mdb")  
  Command1.Enabled   =   True  
  End   Sub  
   
  Top

相关问题

• 数据库
• database
• falsedb
• trueend subprivate
• 文本文件
• 导出
• enabled
• command
• authors
• sub

• 帖主：74520com
• drk928
• online

• Visual Basic类图书
• Visual Basic类源码下载