資料導出至txt失敗

[dofly]

SELECT [sysno],[prgno] INTO [TEXT;Database=D:].[55.txt] FROM [pu]

上面的例子是書上寫的.我用的是 ADO連接的,但是執行上面的代碼發生錯誤!
提示如下:
Specified owner name 'TEXT;Database=D:' either does not exist or you do not have permission to use it.
===>各位有位有成功的導出例子,就是導出到 txt 的例子,
謝謝!

[wsd309]

Dim conn As New ADODB.Connection
Dim rsysjh As New ADODB.Recordset
If rsysjh.State = adStateOpen Then rsysjh.Close '如果记录集已打开,则先关闭
rsysjh.CursorLocation = adUseClient
rsysjh.Open "select * from ysjhb conn, adOpenKeyset, adLockBatchOptimistic, adCmdText
Set Adodc1.Recordset = rsysjh
text1.text=rsysjh.feild("字段名")

[online]

引用了dao3.51

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

[dofly]

對了,原來我們看的例子一樣,是用dao做的.

那如果要導出到 Txt ,是不是要先導到 Access 呢.