查看完整版本: 利用ADO创建、读取VISUAL FOXPRO数据库示例代码

利用ADO创建、读取VISUAL FOXPRO数据库示例代码

我有99年来的上市公司的股东人数表，是VISUAL FOXPRO格式的数据表。

如何能在飞狐的指标中图示呢？

我上传了600001和000001的历年股东人数表，老师能否帮我？

谢谢了。

注：下载后，请把后缀RAR改为DBF。

公式示意如下：

[code]
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
%>
[/code]

请注意代码中，数据库放在的路径要改为跟自己的相符，数据库名称也要相应改

以上公式运行时，如果出错，则可能是少了对vfp驱动的支持文件，需要到微软的网页上下载支持文件，链接如下：
[url]http://download.microsoft.com/download/vfoxodbcdriver/Install/6.1/W9XNT4/EN-US/VFPODBC.msi[/url]

下载并安装该文件后，应该就可以了。


Visual FoxPro: Visual FoxPro ODBC Driver

[url]http://msdn.microsoft.com/vfoxpro/downloads/updates/odbc/default.aspx[/url]

:crying::crying::crying:

谢谢，老师！

显示速度很快，根本无延迟！

:cool::cool::cool:

真是佩服老师啊！

为了回报老师给我的无私帮助，我会更好地支持福建飞狐！

这就是人人为我，我为人人的真实体现！

:clap::clap::clap:

[quote][i]南客[/i] 于 2004-11-3 01:13 写道:
以上公式运行时，如果出错，则可能是少了对vfp驱动的支持文件，需要到微软的网页上下载支持文件，链接如下：
[url]http://download.microsoft.com/download/vfoxodbcdriver/Install/6.1/W9XNT4/EN-US/VFPODBC.ms ... [/quote]
下载后不能在WIN2000安装。

[quote][i]闲人[/i] 于 2004-11-3 10:03 PM 写道:
下载后不能在WIN2000安装。 [/quote]

不能安装是什么意思？有什么提示？
win2000下，按理说双击后就可以自动安装了。

利用ADO创建、读取VISUAL FOXPRO数据库示例代码

微软的网页上下载后，如何安装！
谢谢！

不能运行的，可查看控制面板下ODBC中相关DRIVER的名字是否是和老师原码中一样。不同版本可能不一样的标识。

:no::(

我分不加也就算了，怎么没人给老师加分。真是的。

在老师的帮助下，我到昨晚终于搞通了。其间有很多收获。VFP数据格式在飞狐显示有疑问的正版用户，欢迎在此帖交流。

这个帖子不错

我习惯使用VF，恳请高手将

“利用ADO创建、读取VISUAL FOXPRO数据库示例代码”

完整版发布一下，谢谢。

我想建立一个DBF表，怎么办才好？

[quote][i]lyf_898[/i] 于 2004-11-10 06:30 AM 写道:
:crying::crying::crying: [/quote]

我只上载了2个公司的数据，所以000839的没有。

如果你能加我2分的话，我给你。我想尽快进高级区学习啊。

[quote][i]moneyer[/i] 于 2004-11-11 11:44 AM 写道:
我习惯使用VF，恳请高手将

“利用ADO创建、读取VISUAL FOXPRO数据库示例代码”

完整版发布一下，谢谢。 [/quote]

这个就是完整版了。

老师领进门，修行在自己。

[quote][i]moneyer[/i] 于 2004-11-11 12:19 PM 写道:
我想建立一个DBF表，怎么办才好？ [/quote]

一般的FOXBASE格式，用EXCEL的另存就可以。
但是VFP格式的话，那需要从网上下个VFP了。VISUAL FOXPRO 。
5.0、6.0就可以了。

谢谢！

好，谢谢！