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

ligis 2004-05-08 05:32:02
各位大狭,我想把一个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

...全文
32 4 点赞 打赏 收藏 举报
写回复
4 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
daisy8675 2004-05-08
conn.Execute "insert into [test] select * from [Excel 8.0;database=e:\test\test4.xls].[test4]"
Unload Me
你象excel插進mdb就這樣子。

但是偶沒有dbf環境試不了,所以建議最保險,循環插,這是本質。
隻要recordset不被外部錯誤改變,都問題的
  • 打赏
  • 举报
回复
饮水需思源 2004-05-08
还是用两个ADO一条一条循环吧
  • 打赏
  • 举报
回复
daisy8675 2004-05-08
眼睛痛,等一會
  • 打赏
  • 举报
回复
ligis 2004-05-08
没人理我
  • 打赏
  • 举报
回复
相关推荐
发帖
VB基础类
加入

7543

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2004-05-08 05:32
社区公告
暂无公告