前几日在群里,有小白在提问为什么程序在SQL管理器里面执行成功,在VFP里面执行不成功。
联系猫猫远程后,才发现自己连程序执行失败错误信息在哪里取都不知道,这说明选择一本对的入门书多重要啊。
其二:开发CS程序还是过程性思维,从创建链接开始,再执行程序完毕,完全没有错误处理。
其实我们有没有人想过,建房子不能从二楼开始,那我们程序可以不可以先盖二楼呢?
当然是可以的,我们做成装配性建筑就好了。
我下面有建好的SQL执行类,大家可以看看,是不是感觉眼界大开啊。
MSSQLhelper 是执行SQL命令的封装类,,封装了常用的数据库操作。
特点是:无需管连接,可以获取执行失败的错误信息。
很多狐友写程序喜欢用SQLEXEC,执行失败就笼统提示执行失败,而不会去跟踪和处理错误,这是要不得的。
以下的示例所使用的数据表来自于MSSQL的NorthWind数据库
参数:SQL语句,游标名
返回表:返回查询的游标
返回值:>=0 返回查询记录数, <0 表示查询出错
错误信息:存放于类的errmsg属性
1 数据查询 SQLQuery方法
参数:SQL语句,游标名
返回表:返回查询的游标
返回值:>=0 返回查询记录数, <0 表示查询出错
错误信息:存放于类的errmsg属性
参数:SQL语句
返回值:返回数据的第一行第一列数据,null 且 errmsg不为空说明查询出错。
*-- 查询雇员表记录数
oDBSQLhelper=NEWOBJECT("MSSQLHelper","MSSQLHelper.prg")
?oDBSQLhelper.GetSingle("select count(*) from Employees")
参数:SQL语句
返回值:>=0 返回影响记录数, <0 表示查询出错
*--插入或修改记录
*--返回影响的记录数
oDBSQLhelper=NEWOBJECT("MSSQLHelper","MSSQLHelper.prg")
?oDBSQLhelper.ExecuteSQL("update Employees set LastName='123' where EmployeeID=1")
需打开程序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)
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
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
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
ocon=Newobject("qiyu_connection","qiyu超类","","jcbg") &&第四个参数为账套名
ncon=ocon.createcon() &&根据指定账套创建连接句柄
oDBSQLhelper=NEWOBJECT("MSSQLHelper","MSSQLHelper.prg","",nCon)
*--执行SQL
oDBSQLhelper.SQLQuery(lcSQLCmd,"Employees")
nCon=您自己创建的数据库连接句柄
oDBSQLhelper=NEWOBJECT("MSSQLHelper","MSSQLHelper.prg","",nCon)
*--执行SQL
oDBSQLhelper.SQLQuery(lcSQLCmd,"Employees")
猫猫的心里话
如何帮助使用VFP的人?
用VFP的人,有专业的,有非专业了,很多人其实是小白,问出的问题是小白,如果问题不对,我们引导他们问正确的问题。无论如何请不要嘲笑他们说帮助都不看,这么简单的问题都不会,嘲笑别人不行,而无法提出建设性答案,是很low的。
我们无论工作需要,还是有自己的软件,都是是需要真正的知识,如何让更多人学习真正的VFP知识呢,只需要点赞,在看,能转发朋友圈就更好了。
加菲猫的vfp倡导用VFP极简混合开发,少写代码、快速出活,用VFP,但不局限于VFP,各种语言混合开发。
已经带领一百多名会员成功掌到VFP的黑科技,进入了移动互联网时代,接下来我们要进入物联网领域。