小丽今天请假了,小张今天看不到小丽了,甚是惆怅,于是又开始向吃瓜群众分享VFP开发技术咯。
很多狐友会用SQLEXEC就以为掌握了真正的CS开发了,每次操作数据库就是创句柄,SQLEXEC ,嫌麻烦,弄了一个公共变量存放句柄,也不对句柄的状态进行管理,也不对暗线错误处理去处理,而是抄别人的一个错误处理程序,也不求甚解。久而久之,网络中断,程序出错,抄来的错误处理程序,不断地弹窗弹窗弹窗,弹弹弹,弹走鱼尾纹。
MSSQLhelper 是执行SQL命令的封装类,,封装了常用的数据库操作。
特点是:无需管连接,可以获取执行失败的错误信息。
很多狐友写程序喜欢用SQLEXEC,执行失败就笼统提示执行失败,而不会去跟踪和处理错误,这是要不得的。
以下的示例所使用的数据表来自于MSSQL的NorthWind数据库
01
—
进行账套管理配置好连接参数
02
—
打开命令窗口执行如下命令
参数:SQL语句,游标名
返回表:返回查询的游标
返回值:>=0 返回查询记录数, <0 表示查询出错
错误信息:存放于类的errmsg属性
*-- 查询雇员表
oDBSQLhelper=NEWOBJECT("MSSQLHelper","MSSQLHelper.prg")
nRow=oDBSQLhelper.SQLQuery("select * from Employees","Employees")
if nRow<0
?oDBSQLhelper.errmsg
endif
BROWSE
参数: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")
参数: 字段名,表名
oDBSQLhelper=NEWOBJECT("MSSQLHelper","MSSQLHelper.prg")
?oDBSQLhelper.GetMaxID("EmployeeID","Employees")
参数: 字段名,表名
返回值:逻辑值
oDBSQLhelper=NEWOBJECT("MSSQLHelper","MSSQLHelper.prg")
?oDBSQLhelper.ColumnExists("EmployeeID","Employees")
需打开程序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)
03
—
参数传递的三种方式
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
04
—
传递自定义连接句柄复用句柄
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")