VFP的13个SPT函数

Posted 2021-03-10 hnllhq

Visual FoxPro 中内置了13个以SQL开头的函数，我们把它们称为SPT函数。就是这13个函数完成了Visual FoxPro的所有的SQL Pass Though功能。从功能上看，我们可以把它们分成五个部分：
一、连接函数：
连接建立函数：SqlConnect(),SqlStringConnect()
连接的断开函数：SqlDisconnect()
二、核心的执行函数：
SQL语句传输及执行函数：SqlExec(),SqlPrapare()
批次模式下更多数据集的取得函数：SqlMoreResults()
异步模式下撤销正在执行的SPT的函数：SqlCancel()
三、事务处理函数：
SqlCommit(),SqlRollBack()
四、连接通道属性函数：
SqlGetProp(),SqlSetProp()
五、数据源的信息截取函数：
SqlTables(),SqlColumns()

用法：SQLEXEC(nConnectionHandle, [cSQLCommand, [cCursorName]])
例：SQLEXEC(hconn,"SELECT * FROM EMPLOYEES","MyCursor")
Browse
例：SQLEXEC(hconn,"") &&一个空的命令发送，返回1的话证明连接可用！
传递变量的方法：
1）第一种是利用：问号+变量；本方法不用担心变量的类型。
2）第二种是用TransForm()将变量合并到语句中。

把数据集设为可更新：
Visual FoxPro的游标类型：只读游标、可读写游标、可更新游标
1） 只读游标是那种不能被修改的游标，在VFP中使用SQL-Select语句产生的游标就是典型的只读游标；如：SELECT * FROM ORDERS INTO CURSOR MYCURSOR
2） 可读写游标是那种可以进行读写操作，但游标上的数据变更不被反映到数据源的游标；
A、一是用SQLEXEC()得到的游标；
B、第二是VFP7以上的SQL-Select语句加入关键字readwrite产生的游标；
如：SELECT * FROM ORDERS INTO CURSOR MYCURSOR READWRITE
C、第三是“没有设置发送更新”的本地视图和远程视图；（SendUpdate属性为.F.）
3） 可更新游标是那种可以进行读写操作，并且任何数据变动都会反映到数据源的游标；
典型的可更新游标就是可更新视图
把SQLEXEC()得到的结果集设定为可更新游标的五大步骤：
A. CURSORSETPROP("TABLES",数据源表名,可更新游标名)
B. CURSORSETPROP("KEYFIELDLIST",关键字段,可更新游标名)
C. CURSORSETPROP("UPDATABLEFIELDLIST",可更新字段列表,可更新游标名)
D. CURSORSETPROP("UPDATENAMELIST",前后段字段对应关系列表,可更新游标名)
E. CURSORSETPROP("SENDUPDATES",.T.,可更新游标名)
一个很重要的属性——WhereType
当我们设定结果集为可更新游标后，还有一个重要的属性没有设定，就是WhereType。即，Where字句产生的依据，有四种情况：
CURSORSETPROP("WhereType" ,1) &&根据关键字
CURSORSETPROP("WhereType" ,2) &&根据关键字＋可更新字段
CURSORSETPROP("WhereType" ,3) &&根据关键字＋已更新字段
CURSORSETPROP("WhereType" ,4) &&根据关键字＋时间戳
如：cnn=SQLCONNECT("northwind")
SQLEXEC(cnn,"select categoryid as id ,categoryname,description from categories","mycursor")
SELECT mycursor
CURSORSETPROP("Tables","categories","mycursor")
CURSORSETPROP("KeyFieldList","id","mycursor")
CURSORSETPROP("UpdatableFieldList" ,"id,categoryname,description","mycursor")
CURSORSETPROP("UpdateNameList","id categories.categoryid,categoryname categories.categoryname,"+ "description categories.description","mycursor")
CURSORSETPROP("SendUpdates" ,.t.,"mycursor")
CURSORSETPROP("WhereType" ,3)