data控件中如何实现SQL(作业,急!)

Question

Data1.Database.Execute "在这里写语句"

Answer 1

Data1.Database.Execute "select * from 表名 where"学号<5"查询学号小于5的记录

Answer 2

添加按钮代码
Private Sub cmdAdd_Click()
  Data1.Recordset.AddNew
End Sub删除按钮代码
Private Sub cmdDelete_Click()
 
  Data1.Recordset.Delete
  Data1.Recordset.MoveNext
End Sub更新按钮代码
Private Sub cmdUpdate_Click()
  Data1.UpdateRecord
  Data1.Recordset.Book = Data1.Recordset.LastModified
End Sub在这之前你必须先有一个表我是用外接程序连的access然后生成一个数据库窗体这是那个窗体的上代码你不防试试生成以后的窗体添加记录删除记录都很方便也不用太多的代码！（借荐）

Answer 3

原先我用的是Access格式，可是提示不识别。
改用Excel格式。
按这种方法：Data1.Database.Execute "在这里写语句"
还是不行

Answer 4

首先纠正楼上错误。支持SQL的不是Excel，而是jet engine。可以通过Data用SQL处理Excel。因为Data控件是建立在jet engine之上，而Excel是它的“内部数据库”，也就是支持几乎所有操作。
不过，我还是建议你使用Access。至于Data不支持Access 2000的问题，这样解决：'首先要引用DAO 3.6，而不是3.51。
dim db as dao.database, rs as dao.recordset
set db = dbengine.opendatabase(app.path & "\yourdb.mdb")
set rs = db.openrecordset("select * from yourtable")
set data1.recordset = rs你可以如下执行SQL:
db.execute yoursqlstring
或
data1.database.execute yoursqlstring