VFP+SQL-动态创建远程视图.docVIP

VFP+SQL-动态创建远程视图 先看源程序 LPARAMETERS cSQLDatabaseName,cConnectionName,cSQLTableName,cViewName,cKey,cCondition,cOrder *cSQLDatabaseName 后端数据库名 * cConnectionName 连接名 * cSQLTableName 后端表名 * cViewName 视图名 * cKey 主键 * cCondition 视图条件 * cOrder 排序 *LOCAL nConnectHandle 数据库连接句柄 LOCAL cFieldName 字段名 *********************************************************************** * 函数名：CreateView * 作用：* 创建远程视图函数 * 参数说明： * cOrder---排序方式 * nHandle---指定的数据库的连接句柄 * cSQLDatabaseName---SQL Server数据库名 * cConnName---连接名 * cSQLTableName---SQL Server表名 * cViewName---要创建的远程视图名 * cKey---主键 * cCondition---条件 * 调用格式: * =CreateView(\数据库名\,\连接名\,\后端表名\,\视图名\,\主键名\,\条件\,\排序\) * 第一步、创建视图 * 如果是带条件的视图 IF NOT EMPTY(cCondition) CREATE SQL VIEW cViewName ; CONNECTION cConnectionName SHARE ; AS SELECT * FROM cSQLTableName WHERE cCondition ; ORDER BY cOrder ELSE 如果是不带条件的视图 CREATE SQL VIEW cViewName ; CONNECTION cConnectionName SHARE ; AS SELECT * FROM cSQLTableName ; ORDER BY cOrder ENDIF * 第二步、设置视图可更新 * 1).Tables 属性 DBSETPROP(\cViewName\,\View\,\Tables\,\cSQLTableName\) * 2).KeyField 属性(将字段cKey设定成关键字栏) DBSETPROP(\cViewName..cKey\,\Field\,\KeyField\,.T.) * 3.UpdateName 属性 DBSETPROP(\cViewName..cKey\,\Field\,\UpdateName\,\cSQLTableName..cKey\) * 4)Updatable 属性(指定可更新的字段) * 取得SQL Server表“cSQLTableName”结构，存放在表“表结构”中 *nConnectHandle=SQLSTRINGCONNECT(\DSN=gcDSN;UID=gcUID;PWD=gcPWD;DATABASE=cSQLDatabaseName\) * 参见《Visual FoxPro 6.X 中文版程序设计》p.431 * 11.12 取得后端字段的相关信息 cCursorName=\C\+SYS(3) N=SQLCOLUMNS(gnHandle,cSQLTableName,FOXPRO,cCursorName) * n=SQLCOLUMNS(nConnectHandle,文档,FOXPRO,基表结构) * n=0 SQLCOLUMNS还在执行中 * n=1 SQLCOLUMNS执行成功 * n=-1 发生连接层次上的错误 * n=-2 发生系统环境上的错误 SELECT(cCursorName) SCAN cFieldName=ALLTRIM(cCursorName..Field_name) DBSETPROP(\cViewName..cFieldName\,\Field\,\Updatable\,.T.) 可更新 DO CASE CASE Field_type=\C\ 如果是Char型字段,默认值是\\ DBSETPROP(\cViewName..cFieldName\,\Field\,\Defaultvalue\,\ \) 默认值 CASE cCursorName..Field_type=\N\ 如果是Number型字段,默认值是0 DBSETPROP(\cViewNa