我的学猫框之路004[通俗易懂]

(36) 2023-07-19 16:12

Hi,大家好,我是编程小6,很荣幸遇见你,我把这些年在开发过程中遇到的问题或想法写出来,今天说一说我的学猫框之路004[通俗易懂],希望能够帮助你!!!。

今天继续学习猫框,数据库是SQL SERVER中的NorthWind,知识内容来源于猫老师猫框的网站:www.sn58.com(VFP祺佑三层开发框架),在这里先向猫老师表示感谢。

一、准备NorthWind数据库

费了半天的功夫,终于下载、安装好了。

二、进行账套设置:

我的学猫框之路004[通俗易懂]_https://bianchenghao6.com/blog__第1张

三、运行猫框

运行项目:Qiyuprj

运行环境设置

运行调试服务器

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
我的学猫框之路004[通俗易懂]_https://bianchenghao6.com/blog__第2张

2、数据查询 GetSingle 返回单个值

参数:SQL语句

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

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

运行后,显示9 (雇员表有9条记录)

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

参数:SQL语句

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

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

运行后,返回值:1

查看雇员表

我的学猫框之路004[通俗易懂]_https://bianchenghao6.com/blog__第3张

第一行的lastname 变成了“123”。

再把它变回原状

oDBSQLhelper=NEWOBJECT("MSSQLHelper","MSSQLHelper.prg")

?oDBSQLhelper.ExecuteSQL("update Employees set LastName='Davolio' where EmployeeID=1")

上一篇

已是最后文章

下一篇

已是最新文章

发表回复