易语言的外部数据库怎么读写access数据库

外部数据库组件是一个单独组件,不与其他组件一同使用,主要以

sql语句

为主.

版本2

程序集

窗口程序集_启动窗口

子程序

_按钮1_被单击

局部变量

查询

句柄

整数型

如果真(

取反

(外部数据库1.打开MDB数据库(取运行目录()＋“\db.mdb”,,,,真)))

信息框(“数据库打开失败.”,0,,)

返回()

如果真结束

'----------------------------------------判断是否连接到数据库.

查询句柄＝外部数据库1.查询(“select*from表名”)

'查询句柄,用于读数据,可以添加条件筛选.比如:

'查询句柄＝外部数据库1.查询(“select*from表名wherename=”＋编辑框2.内容)

'-----------------------------------------开始读取数据

判断循环首(取反(外部数据库1.尾记录后(查询句柄)))

列表框

1.加入项目(外部数据库1.读(查询句柄,2),)

'这里的2表示字段位置,也可以直接写名字,比如字段2为name

'外部数据库1.读(查询句柄,“name”)

外部数据库1.到后一记录(查询句柄)

判断循环尾()

外部数据库1.关闭记录集(查询句柄)

'记录集使用完毕后及时关闭.

'-----------------------------------------写数据很简单,直接执行sql语句.

判断开始(外部数据库1.执行(“insertinto表名(对应表内字段名称1,对应表内字段名称2)values('内容','内容')”,))

信息框(“成功”,0,,)

默认

信息框(“失败”,0,,)

判断结束

'内容这里注意前后的单引号必须有.示例:

'外部数据库1.执行(“insertinto表名(ID,name)values('”＋编辑框1.内容＋“','”＋编辑框2.内容＋“')”,)

'------------------------------------------修改命令update

判断开始(外部数据库1.执行(“update表名SetID='”＋编辑框1.内容＋“',name='”＋编辑框2.内容,))

信息框(“成功”,0,,)

默认

信息框(“失败”,0,,)

判断结束

'---------------------------------------删除命令delete

判断开始(外部数据库1.执行(“deletefrom表名where条件”,))

'示例:

'外部数据库1.执行(“deletefrom表名wherename=”＋编辑框2.内容,)

信息框(“成功”,0,,)

默认

信息框(“失败”,0,,)

判断结束

子程序__启动窗口_将被销毁

外部数据库1.关闭()