只会用SQLEXEC你就OUT了？小张把它对象化，节省一天时间看小丽

加菲猫的VFP

发布于 2021-09-10 17:25:48

7010

发布于 2021-09-10 17:25:48

文章被收录于专栏：加菲猫的VFP

“ 书读的越多而不加思考,你就会觉得你知道得很多;而当你读书而思考得越多的时候,你就会越清楚地看到,你知道得很少。——伏尔泰”

小丽今天请假了，小张今天看不到小丽了，甚是惆怅，于是又开始向吃瓜群众分享VFP开发技术咯。

很多狐友会用SQLEXEC就以为掌握了真正的CS开发了，每次操作数据库就是创句柄，SQLEXEC ，嫌麻烦，弄了一个公共变量存放句柄，也不对句柄的状态进行管理，也不对暗线错误处理去处理，而是抄别人的一个错误处理程序，也不求甚解。久而久之，网络中断，程序出错，抄来的错误处理程序，不断地弹窗弹窗弹窗，弹弹弹，弹走鱼尾纹。

MSSQLhelper 是执行SQL命令的封装类，,封装了常用的数据库操作。

特点是：无需管连接，可以获取执行失败的错误信息。

很多狐友写程序喜欢用SQLEXEC，执行失败就笼统提示执行失败，而不会去跟踪和处理错误，这是要不得的。

以下的示例所使用的数据表来自于MSSQL的NorthWind数据库

—

进行账套管理配置好连接参数

—

打开命令窗口执行如下命令

1 数据查询 SQLQuery方法

参数：SQL语句,游标名

返回表：返回查询的游标

返回值：>=0 返回查询记录数， <0 表示查询出错

错误信息：存放于类的errmsg属性

*-- 查询雇员表
oDBSQLhelper=NEWOBJECT("MSSQLHelper","MSSQLHelper.prg")
nRow=oDBSQLhelper.SQLQuery("select * from Employees","Employees")
if nRow<0
 ?oDBSQLhelper.errmsg
endif
BROWSE

2 数据查询 GetSingle 返回单个值

参数:SQL语句

返回值：返回数据的第一行第一列数据,null 且 errmsg不为空说明查询出错。

*-- 查询雇员表记录数
oDBSQLhelper=NEWOBJECT("MSSQLHelper","MSSQLHelper.prg")
?oDBSQLhelper.GetSingle("select count(*) from Employees")

3 执行非查询SQL命令 ExecuteSQL方法

参数：SQL语句

返回值：>=0 返回影响记录数， <0 表示查询出错

*--插入或修改记录
*--返回影响的记录数
oDBSQLhelper=NEWOBJECT("MSSQLHelper","MSSQLHelper.prg")
?oDBSQLhelper.ExecuteSQL("update Employees set LastName='123' where EmployeeID=1")

4 得到字段列的最大值GetMaxID方法 (MYSQL等其它数据库未测试)

参数: 字段名,表名

oDBSQLhelper=NEWOBJECT("MSSQLHelper","MSSQLHelper.prg")
?oDBSQLhelper.GetMaxID("EmployeeID","Employees")

5 判断某个字段是否存在 ColumnExists方法(MYSQL等其它数据库未测试)

参数: 字段名,表名

返回值：逻辑值

oDBSQLhelper=NEWOBJECT("MSSQLHelper","MSSQLHelper.prg")
?oDBSQLhelper.ColumnExists("EmployeeID","Employees")

6 执行多个语句

需打开程序PRG或表单中进行测试

TEXT TO lcSQLCmd NOSHOW TEXTMERGE
UPDATE LSNBBM SET LSNBBM_DQNM=LSNBBM_DQNM+1 WHERE LSNBBM_NMBH = 'XSFPLS'
SELECT LSNBBM_DQNM FROM LSNBBM WHERE LSNBBM_NMBH = 'XSFPLS'
ENDTEXT
oDBSQLhelper=NEWOBJECT("MSSQLHelper","MSSQLHelper.prg")
lclsh=oDBSQLHelper.GetSingle(lcSQLCmd)

—

参数传递的三种方式

1 private 声明变量，即可以用?传递参数

private myvar
myvar = "张三"
lcSQLCmd="select * from username where username=?myvar"
oDBSQLhelper=NEWOBJECT("MSSQLHelper","MSSQLHelper.prg")
nRow=oDBSQLhelper.SQLQuery(lcSQLCmd,"Employees")
if nRow<0
 ?oDBSQLhelper.errmsg
endif
BROWSE

2 利用Text to 拼接参数，支持多变量

myvar = "张三"
TEXT TO lcSQLCmd NOSHOW ADDITIVE TEXTMERGE PRETEXT 1+2
select * from username where username="<<myvar>>"
ENDTEXT
oDBSQLhelper=NEWOBJECT("MSSQLHelper","MSSQLHelper.prg")
nRow=oDBSQLhelper.SQLQuery(lcSQLCmd,"Employees")
if nRow<0
 ?oDBSQLhelper.errmsg
endif
BROWSE

3 利用StringFormat拼接参数，支持多变量

lcwhere=StringFormat("name='{2}' And 单位名称='{1}'","北京","张三")
lcSQLCmd="select * from username where "+lcwhere
oDBSQLhelper=NEWOBJECT("MSSQLHelper","MSSQLHelper.prg")
nRow=oDBSQLhelper.SQLQuery(lcSQLCmd,"Employees")
if nRow<0
 ?oDBSQLhelper.errmsg
endif
BROWSE

—

传递自定义连接句柄复用句柄

1 多账套通过账套名选择创建连接

ocon=Newobject("qiyu_connection","qiyu超类","","jcbg")  &&第四个参数为账套名
ncon=ocon.createcon()  &&根据指定账套创建连接句柄
oDBSQLhelper=NEWOBJECT("MSSQLHelper","MSSQLHelper.prg","",nCon)
*--执行SQL
oDBSQLhelper.SQLQuery(lcSQLCmd,"Employees")

2 自行创建的句柄

nCon=您自己创建的数据库连接句柄
oDBSQLhelper=NEWOBJECT("MSSQLHelper","MSSQLHelper.prg","",nCon)
*--执行SQL
oDBSQLhelper.SQLQuery(lcSQLCmd,"Employees")

本文参与腾讯云自媒体同步曝光计划，分享自微信公众号。

原始发表：2021-09-07，如有侵权请联系 cloudcommunity@tencent.com 删除

linux

本文分享自加菲猫的VFP 微信公众号，前往查看

如有侵权，请联系 cloudcommunity@tencent.com 删除。

本文参与腾讯云自媒体同步曝光计划，欢迎热爱写作的你一起参与！

登录后参与评论

0 条评论

热度