ado问题,请教我到底错在那里？？？

[ligis]

各位大狭，我想把一个AA.DBF导入到我新生成的一个表SS.MDB库test22表中，我以下代码在到数第3行ldpGisRS2.Update处，提示“尚未实现”
请教我到底错在那里？？？


Dim str1 As String
Dim conn As Connection
Set conn = New Connection
str1 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= c:\eq0702\EQ\xjdc3.MDB;Persist Security Info=False"
conn.Open str1

Dim conn1 As Connection
Set conn1 = New Connection
conn1.Open "Provider=MSDASQL.1;Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDB=c:\aa.dbf

Set ldpGisRS = New Recordset

ldpGisRS.Open "select *from aa", conn1, 3, 2



Set ldpGisRS2 = New Recordset
conn.Execute "select * into [c:\EQ\SS.MDB].[test22] from 交换表"

ldpGisRS2.Open "select *from test22", conn, 3, 2
ldpGisRS2 = ldpGisRS
ldpGisRS2.Update

ldpGisRS2.Close

Unload Me

[ligis]

没人理我

[daisy8675]

眼睛痛，等一會

[饮水需思源]

还是用两个ADO一条一条循环吧

[daisy8675]

conn.Execute "insert into [test] select * from [Excel 8.0;database=e:\test\test4.xls].[test4]"
Unload Me
你象excel插進mdb就這樣子。

但是偶沒有dbf環境試不了，所以建議最保險，循環插，這是本質。
隻要recordset不被外部錯誤改變，都問題的