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

2004-05-08 05:32:02 94 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Scratch-陶陶摘苹果 Scratch版-陶陶摘苹果（[蓝桥杯][算法]) 题目要求：陶陶家的院子里有一棵苹果树，每到秋天树上就会结出10个苹果。苹果成熟的时候，陶陶就会跑去摘苹果。陶陶有个30厘米高的板凳，当她不能直接用手摘到苹果的时候，就会踩到板凳上再试试。现在已知10个苹果到地面的高度，以及陶陶把手伸直的时候能够达到的最大高度，请帮陶陶算一下她能够摘到的苹果的数目。假设她碰到苹果，苹果就会掉下来。用scratch怎么完成呢？首先加入角色题目介绍接下来用询问框来录入苹果的高度并且记录到列表里数据初始化 . 阅读详情

各位大狭，我想把一个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

...全文