我们用SQL Server表作为数据源创建远程视图时， Visual FoxPro 会自动把组成主索引关键字的字段的KeyField（关键字段）属性设为真（ .T. ）。如何通过程序获取主键的信息，以取得主键结构的详细内容呢？我们可以使用存储过程 sp—pkeys 来获取。
SQL Server的存储过程 sp—pkeys 可以返回标明主键（PRIMARY KEY）设置的字段的信息。sp—pkeys 与 ODBC 中的SQLPrimaryKeys 功能相同。返回的结果按 TABLE—QUALIFIER, TABLE—OWNER, TABLE—NAME, KEY—SEQ的顺序排列，返回的cursor的结构如表1。
以下例程演示了sp—pkeys的具体应用方法：
＊ GETKeys.prg
＊实用时请用实际服务器名代替下面的服务器名
＃DEFINE Connect—String ′DRIVER={SQL Server};SERVER=MY—SERVER;′ ＋ ;
′DATABASE=PUBS;UID=sa;PWD=′
＊ 创建一个保存信息的 cursor
CREATE CURSOR SQLKeys (Table—Name C(128), Column—Name C(128), ;
Key—Seq I, PK—Name C(128))
＊ 连接 SQL Server
gnConnHandle=SQLSTRINGCONN(Connect—String)
IF gnConnHandle>0
＊ 取得SQL Server中可以使用的表数目
SQLConnTables=SQLTABLES(gnConnHandle)
IF SQLConnTables>0
SELECT SQLResult
INCnt=0
DO WHILE !EOF()
＊ 创建一个执行存储过程的命令字符串
SQLCommand=″sp—pkeys ″＋ ALLTRIM(Table—Name)
＊ 执行存储过程，向cursor返回数据
=SQLEXEC(gnConnHandle,SQLCommand,′syskeys′)
＊ 转到cursor 所在工作区
SELECT SYSKeys
IF RECCOUNT()>0
SCAN
IF RECNO()=1
＊ 向 SQLKeys cursor 中插入新记录
INSERT INTO SQLKeys ;
VALUES ;
(SYSKeys.Table—Name, SYSKeys.Column—Name, ;
SYSKeys.Key—Seq,SYSKeys.PK—Name)
ELSE
＊ 多字段主键
＊ 连接多字段形成索引表达式
SQLKeys.Column—Name WITH ;
ALLTRIM(SQLKeys.Column—Name) ＋ ;
″＋″ ＋ ALLTRIM(SYSKeys.Column—Name)
ENDIF
ENDSCAN
ENDIF
SELECT SQLResult
SKIP
ENDDO
=SQLDISCONN(gnConnHandle)
ENDIF
ENDIF
SELECT SQLKeys
BROW LAST
CLOSE ALL
RETURN
以上程序适用于VFP 3.0以上各版本。
表1 字段名 说 明
table_qualifier 表约束器的名称，就是表所属的数据库的名称，可以返回空值null。
table_owner 表所有者的名称。代表创建这个表的数据库用户的名称，该字段总有返回值。
table_name 表的名称。该字段总有返回值。
column_name 字段名，包括table—name字段返回的表中的所有字段。本字段的内容是在系统字段表（syscolumns）中登记的字段名，并且总有返回值。如果一个主键由多个字段组成，sp—pkeys会为组成主键索引表达式的每个字段都返回一行记录。
key_seq 该字段在一个多字段主键中的顺序编号，总有返回值。
pk_name 主键标识。如果它不适用于数据源，则返回空值null。
责任编辑：小草
