马上加入TC
您需要 登录 才可以下载或查看，没有帐号？立即注册
x
本帖最后由 venski 于 2015-9-26 01:55 编辑
TC5.4.1版本自带的读配置和写配置已经修复好了，这里就供大家作为操作SQLITE数据库（查、删、改）的例子，改成免回复.
如果使用上有什么问题，你可以通过TC的群找我修正此代码。
功能 文件写配置(数据库文件路径="/sdcard/tegong.db",区段名称="config",属性名称="testkey",属性值="testvalue")
如果(文件是否存在(数据库文件路径)==假)
//新建数据时
变量 返回数组,err
变量 ret = sqlitesqlarray(数据库文件路径,"create table "&区段名称&"(iniName varchar(100),iniValue varchar(100))",返回数组)//创建表
调试输出("创建新表:"& 获取错误信息(1))
如果(ret==真)
调试输出("创建新表:"& 获取错误信息(1))
ret = sqlitesqlarray(数据库文件路径,"insert into "&区段名称&" values(\'" & 属性名称 & "\',\'" & 属性值 & "\');",返回数组)
如果(ret==真)
调试输出("插入数据1:"& 获取错误信息(1))
结束
结束
否则
//老数据中新加或更新
变量 返回数组,err
变量 ret = sqlitesqlarray(数据库文件路径,"select * from "&区段名称&" where iniName=\'"&属性名称&"\'",返回数组)
如果(ret==真)
调试输出("查询数据:"& 获取错误信息(1))
变量 属性数量 = 数组大小(返回数组)
如果(属性数量==1)
//正经的修改
ret = sqlitesqlarray(数据库文件路径,"update "&区段名称&" set iniValue=\'" & 属性值 & "\' where iniName=\'"&属性名称&"\'",返回数组)
如果(ret==真)
调试输出("更新数据:"& 获取错误信息(1))
结束
否则
如果(属性数量>1)
//删除老的再新增
ret = sqlitesqlarray(数据库文件路径,"delete from "&区段名称&" where iniName=\'"&属性名称&"\'",返回数组)
如果(ret==真)
调试输出("删除数据:"& 获取错误信息(1))
结束
结束
//新增
ret = sqlitesqlarray(数据库文件路径,"insert into "&区段名称&" values(\'" & 属性名称 & "\',\'" & 属性值 & "\');",返回数组)
如果(ret==真)
调试输出("插入数据2:"& 获取错误信息(1))
结束
结束
结束
结束
结束
功能 文件读配置(数据库文件路径="/sdcard/tegong.db",区段名称="config",属性名称="testkey")
变量 返回数组,err,属性值
如果(文件是否存在(数据库文件路径)==真)
变量 ret = sqlitesqlarray(数据库文件路径,"select * from "&区段名称&" where iniName=\'"&属性名称&"\'",返回数组)
如果(ret==真)
调试输出("查询数据:"& 获取错误信息(1))
变量 属性数量 = 数组大小(返回数组)
如果(属性数量==1)
arraygetat(返回数组[0],1,属性值)
调试输出(属性值)
结束
结束
结束
返回 属性值
结束
//此贴纯属为了练习，如有错误，请指正，谢谢
|
[复制链接]
/2 
发表于 2015-9-6 08:22:04
