sqlstringconnect( ) 函数示例

下面的示例假定一个名为“myfoxsqlnt”的 odbc 数据源可用，并且该数据源的用户标识是“sa”，口令是“foxpro”。发出 sqlstringconnect( )，返回值存入一个名为 gnconnhandle 的内存变量。如果成功连接到数据源上，sqlstringconnect( ) 返回一个正数，然后显示一个对话框，并发出 sqlstringconnect( )，解除与数据源的连接。如果不能连接到数据源上，sqlstringconnect( ) 返回一个负数，并显示一条信息。

store sqlstringconnect('dsn=myfoxsqlnt;uid=sa;pwd=foxpro');
to gnconnhandle
if gnconnhandle < 0
= messagebox('cannot make connection', 16, 'sql connect error')
else
= messagebox('connection made', 48, 'sql connect message')
= sqldisconnect(gnconnhandle)
endif