|
在数据库操作中，有时需要把SQL Server中的表拷贝到VFP表中。下面介绍通过编程，先生成与SQL Server表一致的VFP表结构，然后把数据从SQL Server表中拷贝到VFP表中。
要从SQL Server表向VFP表拷贝数据，可以利用 SQLEXEC(),SQLTABLES()以及
⑴从SQL表中取得表的结构信息；
⑵生成与SQL表结构相同的VFP表；
⑶从SQL向VFP表拷贝数据。
示例代码如下：
＊ 因为SQL Server 表可能包含长字段名，而VFP的自由表不支持长字段名，只有数据库中的表才能使用长字段名。为了保存SQL Server表中的长字段名，需要先建立一个数据库CREATE DATABASE SQLDATA
＊ 建立一个包含表的信息的 cursor
CREATE CURSOR SYS_Tables (Table_Name c(128), Field_Name c(120), ;
Field_Type c(1), Field_len N(3,0), Field_Dec N(3,0))
＊ 建立一个连接到 SQL Server 服务器的连接字符串
＊ 使用时请用正确的服务器名称代替下面文字中的对应项
Connect_String=′DRIVER={SQL Server};Server=MY_Server;′＋ ;
′DATABASE=PUBS;UID=sa;PWD=′
＊ 连接 SQL Server 服务器
gnConnHandle=SQLSTRINGCONNECT(Connect_String)
IF gnConnHandle〉0
＊发送 USE 命令，打开 PUBS 数据库
SQLCOMMAND="USE PUBS"
=sqlexec(gnConnHandle,SQLCOMMAND)
＊ 取得 SQL Server 中可以使用的表的数量
SQLConnTables=SQLTABLES(gnConnHandle)
IF SQLConnTables〉0
SELECT SQLResult
＊ 只操作表,所以SQL的条件子句中表类型 table_type参数设置为TABLE
＊ 否则取得系统表和视图
SELECT Table_Name FROM SQLResult ;
WHERE UPPER(ALLTRIM(Table_Type))="TABLE" ;
INTO CURSOR SQL_Tables
SELECT SQL_Tables
INCnt=0
DO WHILE !EOF()
＊ 生成一个执行存贮过程的命令字符串
SQLCOMMAND="SELECT ＊ FROM " ＋ ALLTRIM(Table_Name)
＊ 执行存储过程,取得数据放到临时 cursor
=sqlexec(gnConnHandle,SQLCOMMAND,′tmp_sys_data′)
＊ 选择包含数据的 cursor
SELECT tmp_sys_data
＊ 使用 DBF()函数取得临时文件的实际名称
this_file=DBF()
＊ 用 AFIELDS() 函数取得字段名和字段属性
=AFIELDS(test_vals)
＊ 字段数据保存到数组 maketab 中
DIMENSION maketab[alen(test_vals,1),6]
＊ 用字段数据填充数组元素
FOR i=1 TO ALEN(test_vals,1)
maketab[i,1]=test_vals[i,1]
maketab[i,2]=test_vals[i,2]
maketab[i,3]=test_vals[i,3]
maketab[i,4]=test_vals[i,4]
maketab[i,5]=test_vals[i,5]
maketab[i,6]=test_vals[i,6]
NEXT
＊ 根据数组 maketab 建立表，先建立命令字符串，然后用宏替换执行
Execute_Cmd="CREATE TABLE "＋ALLTRIM(SQL_Tables.Table_Name)＋ ;
" FROM ARRAY maketab"
＆Execute_Cmd
＊ 选中新建立的表
current_table=ALLTRIM(SQL_Tables.Table_Name)
SELECT (current_table)
＊ 从临时文件中填加数据
APPEND FROM ＆this_file
SELECT SQL_Tables
SKIP
ENDDO
=SQLDISCONN(gnConnHandle)
ENDIF
ENDIF
SELECT SQL_Tables
CLOSE ALL
USE AUTHORS
BROWSE TIMEOUT 15
CLOSE ALL
RETURN
上面的代码执行后会生成一个名为Sqldata.dbc 的VFP数据库，库中包含的表是SQL
|
