VB读写dbf格式数据库

VB编程手札 同时被 2 个专栏收录
14 篇文章 0 订阅
3 篇文章 0 订阅

    dbf曾经是最流行的数据库之一,上世纪末foxbase被微软收购,并入VS6.0,就是大名鼎鼎的FoxPro,然而,微软的亲儿子,小数据库有Access,大数据库有SQL Sever,所以就越来越不待见dbf了,直至2010年1月正式宣布停止支持,FoxPro最后一个版本是9.0。

    然而,dbf还是有很多忠诚粉丝的,dbf的一些特有特征也延长了它的生命力。一般的数据库是一个大的数据库文件,其中包含N个数据表。而如果想对各表自由拷贝,就做不到了。而dbf是单独一个文件,一张数据表就是一个文件。据我所知,也只有后来的SQLite数据库才也有此特性。

    一些老的系统,很顽固地使用着dbf,也难怪,人家系统稳定运行了十几二十年,不能因为微软出幺蛾子就重写系统,花钱之外,出现新BUG又怎么办?比如交易所的清算系统,仍然使用着dbf数据库。有同事来找我写个程序,需求是这样的:交易所提供了一张所有客户的数据表,要把特定客户的数据提取出来生成一个dbf文件发给指定客户。目前是手工在FoxPro软件中用下拉框一个个找出来再打包发送,每天没有几个小时搞不完。这个问题简单啊,不就是一个SQL语句么。然而,困难却出在dbf格式上。

    SQL语句"select  ... into table1"执行后可以自动生成table1.dbf文件。这个特性真是太好了。我用程序写了个for循环,把1000个客户对应的1000个SQL语句生成出来,然后,把这些语句全选拷进FoxPro的命令窗口,全选状态下按回车键执行,于是1000个dbf就生成了。

    第一版程序就是这样写的,最后一步需要同事拷贝出脚本(1000个语句)到FoxPro中执行一下。这个有点丑。因为同事不是IT人,对编程方面一窍不通,就让他copy一下都错误百出,不是复制错了位置就是没全选就执行,然后换同事代班时再重复着这样的错误。于是,很想找一个能用VB或VC执行dbf的SQL语句的方法,因为我不大可能去学那老旧的FoxPro开发了。

    最后真的找到了一段程序,看来很精典,因为N个不同贴子都是这段代码。看完后恍然大悟,关键不在此代码,此代码和普通SQL代码没什么两样,关键在于,这台电脑要装有dbf数据库驱动。数据库处理数据之所以比文本等其他方式快,也就是有了数据库驱动的原因。查找控制面板中ODBC数据表驱动列举,其第一项就是dBase(dbf)数据库驱动,但估计是因为版本太老,它是不能支持读写dbf的程序运行的。

读写dbf的代码如下:

Dim CNN As New ADODB.Connection
Dim STRSQL As String

'打开
Private Sub Form_Load()
    CNN.ConnectionString = "Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDb=E:DBF"
    CNN.Open
    CNN.CursorLocation = adUseClient

End Sub

'创建
Private Sub Command1_Click()
    'STRSQL = "SET DEFAULT TO '" & App.Path & "'"
    'CNN.Execute STRSQL


    STRSQL = "CREATE TABLE dbfdemo.dbf([IDA] CHAR(32),[NAME] CHAR(32))"
    CNN.Execute STRSQL
    'CNN.Close
End Sub

'添加
Private Sub Command2_Click()

    STRSQL = "insert into dbfdemo.dbf([ida],[NAME]) values('1','sdf')"
    CNN.Execute STRSQL
End Sub

'显示
Private Sub Command3_Click()
    Dim rs As New ADODB.Recordset
    STRSQL = "select * from dbfdemo.dbf"
    Set rs = CNN.Execute(STRSQL)
    If Not rs.EOF Then
        Text1.Text = rs.Fields(1)
    End If
End Sub

'修改
Private Sub Command4_Click()
    STRSQL = "update dbfdemo.dbf set name='好好' where ida='1'"
    CNN.Execute STRSQL
End Sub

Private Sub Form_Unload(Cancel As Integer)
    CNN.Close

End Sub

    老司机们都知道,在复制粘贴代码后需引用ADO,即引用列表中引用Microsoft ActiveX Data Object,版本随意(我反正没太注意到不同版本的区别)。上述代码在安装有FoxPro的电脑上运行是没有问题的,因为它有了数据库驱动。如果是一台新的电脑,或你的程序需要发布到任意电脑上使用,则需要安装FoxPro驱动,大小不到1M。

    另外,有个细节需要说明。不知是驱动版本问题还是什么原因,上述代码在新电脑上运行时会出现找不到路径的错误,此时,把SQL语句中的表名指定绝对路径即可,如:

'创建
Private Sub Command1_Click()
    CNN.CursorLocation = adUseClient
    STRSQL = "CREATE TABLE """ & App.Path & "\dbfdemo.dbf""([IDA] CHAR(32),[NAME] CHAR(32))"
    CNN.Execute STRSQL
    'CNN.Close
End Sub

'添加
Private Sub Command2_Click()

    STRSQL = "insert into """ & App.Path & "\dbfdemo.dbf""([ida],[NAME]) values('1','sdf')"
    CNN.Execute STRSQL
End Sub

    上述方法完全OK了。在FoxPro中,还有一种指定目录的方法,即SET DEFAULT TO C:\xxxx这样。可是这行代码却不能在VB中执行,执行时报错,知道的网友告诉我一下哈。

    同事任务中后续的压缩和邮件发送,则是直接调用winrar和outlook完成的。

  • 0
    点赞
  • 0
    评论
  • 2
    收藏
  • 打赏
    打赏
  • 扫一扫,分享海报

参与评论 您还未登录,请先 登录 后发表或查看评论
©️2022 CSDN 皮肤主题:大白 设计师:CSDN官方博客 返回首页

打赏作者

晨山往事

你的鼓励将是我创作的最大动力

¥2 ¥4 ¥6 ¥10 ¥20
输入1-500的整数
余额支付 (余额:-- )
扫码支付
扫码支付:¥2
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值