e4a sqlite案例

变量 数据库表名 为 文本型
事件 主窗口.创建完毕()
	数据库表名 = "mytable"
结束 事件

事件 按钮4.被单击()
	如果 文件是否存在(取存储卡路径() & "/mydata.db") = 假 则
		创建数据库(取存储卡路径() & "/mydata.db")
		弹出提示("创建数据库成功！")
	结束 如果
	打开数据库(取存储卡路径() & "/mydata.db") '！！！在进行数据库操作前必须先打开数据库
	弹出提示("打开数据库成功！")
结束 事件

事件 按钮1.被单击()
	如果 数据表是否存在(数据库表名) = 假 则
		'数据库执行("CREATE TABLE " & 数据库表名 & " (id text,value text)") '创建数据表,表的结构有两个列,第一列为id,第二列为value
		创建数据表(数据库表名,"id text,value text")
		'如果要创建自增型id字段,可以这样写 创建数据表(数据库表名,"id integer PRIMARY KEY,value text")
		弹出提示("创建数据表成功！")
	否则	
		弹出提示("数据表已存在！")
	结束 如果	
结束 事件

事件 按钮2.被单击()
'	数据库执行("INSERT INTO " & 数据库表名 & " VALUES ('1','zhangshang@163.com')") '插入记录
'	数据库执行("INSERT INTO " & 数据库表名 & " VALUES ('2','1234567@qq.com')") 
'	数据库执行("INSERT INTO " & 数据库表名 & " VALUES ('3','Lisi@126.com')") 
'	数据库执行("INSERT INTO " & 数据库表名 & " VALUES ('4','Wangwu@163.com')") 
	插入记录(数据库表名,"'1','zhangshang@163.com'")
	插入记录(数据库表名,"'2','1234567@qq.com'")
	插入记录(数据库表名,"'3','Lisi@126.com'")
	插入记录(数据库表名,"'4','Wangwu@163.com'")
	'如果id是自增型字段,应该这样写 插入记录(数据库表名,"null,'Wangwu@163.com'")
	'要插入编辑框的内容,可以这样写：插入记录(数据库表名,"'" & 编辑框1.内容 & "','" & 编辑框2.内容 & "'")
    弹出提示("插入成功！")
结束 事件

事件 按钮3.被单击()
	'编辑框1.内容 = 数据库查询("SELECT * FROM " & 数据库表名 & " WHERE id='1'","-","\n") '查询id='1'的那条记录,每条记录的子项之间用-隔开,各条记录之间用换行符隔开
	'编辑框1.内容 = 条件查询(数据库表名,"id='1'","-","\n")
	如果 删首尾空(编辑框2.内容) = "" 则
		弹出提示("请输入查询条件")
		退出
	结束 如果
	编辑框1.内容 = 条件查询(数据库表名,"id='" & 删首尾空(编辑框2.内容) & "'","-","\n")
	弹出提示("查询成功！")
结束 事件

事件 按钮6.被单击()
	'数据库执行("UPDATE " & 数据库表名 & " SET value='这是修改后的值' WHERE id='1'") '修改id='1'的那条记录
	修改记录(数据库表名,"value='这是修改后的值'","id='1'")
	弹出提示("修改成功！")	
结束 事件

事件 按钮5.被单击()
	'数据库执行("DELETE FROM " & 数据库表名 & " WHERE id='1'") '删除id='1'的那条记录
    删除记录(数据库表名,"id='1'")
	弹出提示("删除成功！")
结束 事件

事件 按钮7.被单击()
	'数据库执行("DROP TABLE " & 数据库表名) '删除整个数据库表
	删除数据表(数据库表名)
	弹出提示("删除数据库表成功！")
结束 事件

事件 按钮8.被单击()
	弹出提示("记录总数为：" & 取记录数(数据库表名) & "条")
结束 事件

事件 按钮9.被单击()
	'编辑框1.内容 = 数据库查询("SELECT * FROM " & 数据库表名 & " WHERE value LIKE '%163.com'","-","\n") '查询所有value以"163.com"结尾的记录
	编辑框1.内容 = 条件查询(数据库表名,"value LIKE '%163.com'","-","\n")
	弹出提示("查询成功！")
结束 事件

事件 按钮10.被单击()
	'编辑框1.内容 = 数据库查询("SELECT * FROM " & 数据库表名 & " LIMIT 0,3","-","\n") '查询从第0条(第一条)开始的3条记录
	编辑框1.内容 = 范围查询(数据库表名,0,3,"-","\n")
	弹出提示("查询成功！")
结束 事件

事件 按钮11.被单击()
	关闭数据库() '！！！在程序结束时关闭数据库
	结束程序()
结束 事件

标签：sqlite,编辑框,数据库,案例,e4a,事件,表名,com,id
来源： https://www.cnblogs.com/--3q/p/11961384.html