conn2dbc.txt

VFP连接并且使用ACCESS数据库中的数据

*********************如何打开Access数据库
close data all
close table all
crea data data0
CREATE CONNECTION Myconn CONNSTRING "driver={Microsoft Access Driver (*.mdb)};dbq=suminout.mdb"
STORE SQLCONNECT('Myconn') TO gnConnHandle
?gnConnHandle && IF gnConnHandle <= 0 then Cannot make connection
? SQLEXEC(gnConnHandle, 'SELECT * FROM 单位员工', 'MyCursor')
brow
? SQLEXEC(gnConnHandle, "INSERT INTO  单位员工 (员工姓名) values('new00') ",  'MyCursor')
? SQLEXEC(gnConnHandle, 'SELECT * FROM 单位员工', 'MyCursor')
brow
? SQLEXEC(gnConnHandle, "DELETE FROM  单位员工 WHERE 员工姓名='new00' ",  'MyCursor')
? SQLEXEC(gnConnHandle, 'SELECT * FROM 单位员工', 'MyCursor')
brow
? SQLEXEC(gnConnHandle, "UPDATE 单位员工 set 员工姓名='001000' ",  'MyCursor')
? SQLEXEC(gnConnHandle, 'SELECT * FROM 单位员工', 'MyCursor')
brow
******************************************************************
创建一个命名连接并把它存储在当前数据库中。
语法
CREATE CONNECTION [ConnectionName | ?]
[DATASOURCE cDataSourceName
[ USERID cUserID] [ PASSWORD cPassWord]
| CONNSTRING cConnectionString]
******************************************************************
SQLCONNECT([DataSourceName, cUserID, cPassword | cConnectionName])
参数
DataSourceName
数据源的名称，该名称和 ODBC.INI 文件中的定义相同。
cUserID
向数据源注册的用户标识。
cPassword
数据源的口令。
cConnectionName
用 CREATE CONNECTION 创建的命名连接。
返回值类型
数值型
说明
如果成功地连接到数据源上，SQLCONNECT( ) 函数返回一个正的、非零的句柄。应该将这个句柄存入内存变量中，在随后需要连接句柄的函数调用中，就能使用该内存变量。如果不能连接，SQLCONNECT( ) 返回 -2。
如果不带任何附加参数发出 SQLCONNECT( )，那么将显示选择连接或数据源对话框，供您选择数据源。
******************************************************************
SQLDISCONNECT(nConnectionHandle)
参数
nConnectionHandle
由 SQLCONNECT( ) 返回、并指向数据源的连接句柄。nConnectionHandle 为 0 将终止所有活动的连接。
******************************************************************


CLOSE DATABASES
'OPEN DATABASE (SYS(2004) + 'samples\data\testdata')
'CREATE CONNECTION Myconn DATASOURCE "MyFoxSQLNT" USERID "sa"
open DATABASES dbc00
CREATE CONNECTION CONNECTION Myconn CONNSTRING "driver={Microsoft Access Driver (*.mdb)};dbq=suminout.mdb"

CLEAR
DISPLAY CONNECTIONS  && 在数据库中显示命名连接
DELETE CONNECTION Myconn  && 移去刚才创建的连接

CREATE SQL VIEW myview CONNECTION Myconn AS SELECT * FROM 往来单位
brow
sele myview

MODIFY VIEW myview
DELETE VIEW myview

&& IF gnConnHandle <= 0 then Cannot make connection
* 下面的示列假定一个名为 MyFoxSQLNT 的 ODBC 数据源可用，该数据
* 源的用户标识是“sa”。发出 SQLCONNECT( )，其返回值存入名为
*  gnConnHandle 的内存变量。
* 如果成功地连接到数据源上，SQLCONNECT( ) 返回一个正数，并显示
* 一个对话框，再发出 SQLCONNECT( ) 解除和数据源的连接。
* 如果不能连接到数据源上，SQLCONNECT( ) 返回一个负数并显示一条
* 信息。

STORE SQLCONNECT('MyFoxSQLNT', 'sa') TO gnConnHandle
IF gnConnHandle <= 0
	= MESSAGEBOX('Cannot make connection', 16, 'SQL Connect Error')
ELSE
	= MESSAGEBOX('Connection made', 48, 'SQL Connect Message)
	= SQLDISCONNECT(gnConnHandle)
ENDIF

* 下面的示例假定已经成功地发出 SQLCONNECT( ) 并且其返回值存入
* 名为 gnConnHandle 的内存变量。
*  SQLEXEC( ) 用来执行一个查询，该查询将 authors 表中的全部内容
* 返回到名为 MyCursor 的临时表中。

= SQLSETPROP(gnConnHandle, 'asynchronous', .F.)
= SQLEXEC(gnConnHandle, 'SELECT * FROM authors', 'MyCursor')

* 下面的示例假定已经成功执行了 SQLCONNECT( )，并且
* 其返回值存入名为 gnConnHandle 的内存变量。
*  SQLSETPROP( ) 将 BatchMode 属性设置成“假”(.F.)， 
* 这样可以检索单个的结果集合。然后执行两次
*  SQLMORERESULTS( )，创建两个临时表，包含 SQLEXEC( ) 
* 的查询结果。可用 SET 显示查看窗口，并查看
*  SQLEXEC( ) 创建的临时表。

= SQLSETPROP(gnConnHandle, 'BatchMode', .F.)  && 单个的结果集合
= SQLEXEC(gnConnHandle, 'SELECT * FROM authors;
	SELECT * FROM titles')  && 
= SQLMORERES(gnConnHandle)  && 第一个结果集合
= SQLMORERES(gnConnHandle)  && 第二个结果集合