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

        前几日在群里，有小白在提问为什么程序在SQL管理器里面执行成功，在VFP里面执行不成功。联系猫猫远程后，才发现自己连程序执行失败错误信息在哪里取都不知道，这说明选择一本对的入门书多重要啊。

其二：开发CS程序还是过程性思维，从创建链接开始，再执行程序完毕，完全没有错误处理。

其实我们有没有人想过，建房子不能从二楼开始，那我们程序可以不可以先盖二楼呢？

当然是可以的，我们做成装配性建筑就好了。　

我下面有建好的SQL执行类，大家可以看看，是不是感觉眼界大开啊。

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

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

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

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

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

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

1 数据查询 SQLQuery方法

参数：SQL语句,游标名

返回表：返回查询的游标

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

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

1 数据查询 SQLQuery方法参数：SQL语句,游标名返回表：返回查询的游标返回值：>=0 返回查询记录数， <0 表示查询出错 错误信息：存放于类的errmsg属性

注意，这里已经返回记录数了，不要再Reccount()了

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　执行多个语句

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

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

三、参数传递的三种方式

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

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

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

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

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

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

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

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

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

2 自行创建的句柄

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