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

qhqstar 2002-12-31 07:56:28
我需要做一个数据库系统,主要用data控件.
需要插入删除功能用text控件做界面.
但实现需要SQL
请问data控件中如何执行SQL?
谢谢!
...全文
4 点赞 收藏 7
写回复
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
of123 2003-01-01
首先纠正楼上错误。支持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
回复
chenyu5188 2002-12-31
UP

洞意楼上哈
回复
ttlmsdn 2002-12-31
当然了,excel不支持sql
回复
qhqstar 2002-12-31
原先我用的是Access格式,可是提示不识别。
改用Excel格式。
按这种方法:Data1.Database.Execute "在这里写语句"
还是不行
回复
xks 2002-12-31
添加按钮代码
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.Bookmark = Data1.Recordset.LastModified
End Sub

在这之前你必须先有一个表

我是用外接程序连的access然后生成一个数据库窗体

这是那个窗体的上代码

你不防试试

生成以后的窗体添加记录删除记录都很方便

也不用太多的代码!(借荐)
回复
xks 2002-12-31
Data1.Database.Execute "select * from 表名 where"学号<5"

查询学号小于5的记录

回复
ttlmsdn 2002-12-31
Data1.Database.Execute "在这里写语句"
回复
发动态
发帖子
VB基础类
创建于2007-09-28

7450

社区成员

VB 基础类
申请成为版主
社区公告
暂无公告