sqldisconnect( ) 函数示例

下面的示例假定一个名为 myfoxsqlnt 的 odbc 数据可用，该数据源的用户标识是“sa”，发出 sqlconnect( )，其返回值存入名为 gnconnhandle 的内存变量。如果成功地连接到数据源上，sqlconnect( ) 返回一个正数，并显示一个对话框，再发出sqldisconnect( ) 解除和数据库的连接。如果不能连接到数据源上，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