公式示意如下：
复制内容到剪贴板
代码:
fc:close;
gpdm:=stklabel;
<%
gpdm=ffl.vardata("gpdm")
Dim conn,Driver,SourceType,DBPath
' 建立Connection 对象
Set conn = CreateObject("ADODB.Connection")
Driver = "Driver={Microsoft Visual FoxPro Driver};"
SourceType = "SourceType=DBF;"
DBPath = "SourceDB=C:\FoxTrader_V3\" '数据库存放的路径
' 调用Open 方法打开数据库
conn.Open Driver & SourceType & DBPath
On Error Resume Next
SQL="SELECT * FROM tempbb WHERE azqdm=" & chr(39) & gpdm & chr(39) '数据库名为tempbb
Set rs = CreateObject("ADODB.Recordset")
rs.Open SQL, conn, 3, 2
if Err.Number<>0 or Rs.RecordCount=0 then
msgbox (gpdm & "数据不存在！")
else
'读取tempbb.dbf的各字段名称
vname="字段名称："
for i=0 to rs.fields.count-1
vname=vname+rs(i).name+","
next
vname=vname & vbCrLf
'读取数据库记录，以下代码读取3个字段
for j=0 to Rs.RecordCount-1
vname=vname & "证券代码：" & rs(0).value
vname=vname & ",日期：" & rs(1).value
vname=vname & ",股东人数：" & rs(2).value & vbCrLf
rs.movenext
next
msgbox vname,0,"FoxPro数据库记录数=" & Rs.RecordCount '显示结果
end if
rs.close
conn.close
%>请注意代码中，数据库放在的路径要改为跟自己的相符，数据库名称也要相应改
