连接SQL sevver数据库

include "mapbasic.def"

Dim hdbc,  hstmt As Integer
Dim bbb as string
'qelib是MAPINFO自己使用的内部驱动库.
'用他可连接ACCESS和SQL等数据库
'sqltest 建立的用户DSN
hdbc = Server_Connect("qelib","DSN=sqltest;DB=pubs;UID=sa;PWD=")
hstmt = Server_Execute(hdbc,"select * from authors")
Server hstmt Fetch FIRST
While Not Server_EOT(hstmt)
  bbb=Server_ColumnInfo(hstmt, 2, SRV_COL_INFO_VALUE)
  Server hstmt Fetch Next
  print bbb
Wend
Server hdbc disconnect

好，谢谢