原本写在自己一个DEMO里，怕数据丢失，先往这里暂放一下：
SQLSERVER(在WIN2000 ADV SERVER+SQL2000中测试通过)
local strSqlConnString
local objOleAdoConn
strSqlConnString="Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Northwind;Data Source=NHII03"
strSqlConnString="driver={Sql Server};Database=Northwind;server=NHII03;uid=sa;pwd=521756"
nSqlConnHandle=sqlstringconnect(strSqlConnString)
=sqltables(nSqlConnHandle,"TABLE")
thisform.list1.rowsourcetype=3
thisform.list1.rowsource="select table_name from sqlresult into cursor mycur"
MS ACCESS:
local strConn
strConn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\proj\demos\mdb\oledbcon.mdb;Mode=ReadWrite|Share Deny None;Persist Security Info=False"
*strConn="DSN=myconn;DBQ=D:\proj\demos\mdb\oledbcon.mdb;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;UID=admin;"
intSqlHandle=sqlstringconnect(strConn)
=sqltables(intSqlHandle,"TABLE")
thisform.list1.rowsourcetype=3
thisform.list1.rowsource="select table_name from sqlresult into cursor curtablename"
两段代码实现功能：连接数据源，并枚举当前数据库中的数据表。
Trackback: http://tb.donews.net/TrackBack.aspx?PostId=981219