sqltables( ) 函数示例

下面的示例假定名为“myfoxsqlnt”的数据源可用，并且该数据源的用户标识是“sa”。发出 sqlconnect( )，并且返回值存入名为 gnconnhandle 内存变量。如果不能连接到数据源上，sqlconnect( ) 返回一个负数，并且显示一条信息。如果成功地连接到数据源上，sqlconnect( )返回一个正数并且显示一个对话框。sqltables( ) 用来创建一个名为 mycursor 的临时文件，该临时文件包含有关数据源中表的信息，用 list 显示与表有关的信息。

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)
store sqltables(gnconnhandle, 'tables', 'mycursor') to ntables
if ntables = 1
select mycursor
list
endif
endif