当前位置: 首页 > 图文教程 > 网络编程 > ASP > ASP对FoxPro自由表(DBF文件)的操作

ASP
ASP 3.0高级编程(二十七)
ASP 3.0高级编程(二十八)
ASP 3.0高级编程(二十九)
ASP 3.0高级编程(三十)
ASP中时间函数的使用(一)
ASP中时间函数的使用(二)
ASP中时间函数的使用(三)
.NET之ASP WebApplication快速入门(1)
.NET之ASP WebApplication快速入门(2)
.NET之ASP WebApplication快速入门(3)
.NET之ASP WebApplication快速入门(4)
.NET之ASP WebApplication快速入门(5)
asp.NET特写
ASP 3.0高级编程(七)
ASP 3.0高级编程(八)
ASP.NET 入门的五个步骤
ASP 组件指南
XML 数据的编码方式
ASP 3.0高级编程(九)
ASP 3.0高级编程(十)

ASP对FoxPro自由表(DBF文件)的操作


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-11-03   浏览: 36 ::
收藏到网摘: n/a

 

一、问题的提出
    最近一个项目中遇到ASP对FoxPro库表(*.DBF)的操作问题。现实中确有许多应用软件使用DBF表,如何在网络环境中使用这些数据,使很多朋友一筹莫展。
    本人也查了许多资料,没有找到解决方法的详细说明。经过试验,初步解决了这个问题,拿出来和大家分享。
    本文试图解决以下问题:
    1. ASP联接由FoxPro 生成的自由表(*.dbf文件)
    2. 将多种类型的数据及图形文件同时存入dbf表中
    (示例程序可从http://www.netop.cc/downloads/dbf.rar得到)

二、环境
   Windows2000 + IIS5.0 + IE6.0(SP1)
   DBF文件为Microsoft Visual FoxPro 6.0 生成的自由表(非dbc库)

三、解决途径
1. 连接
   DBF文件的ODBC驱动程序名称为 Microsoft Visual FoxPro Driver,在ASP中,通过Connection对象与其联接,需要注意的是,联接时将DBF所在目录视为库名。以下是具体联接代码:
  
   DIM conn,connstr,db
   db="data"
   Set conn = Server.CreateObject("ADODB.Connection")
   connstr = "Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;"&_
                 "SourceDB=" & Server.MapPath(db) &";Exclusive=No"
   conn.Open connstr

   以上代码中,data为我的DBF文件所在的相对路径(相对于此代码所在的文件),通过Server.MapPath(db)将其转为绝对路径。
   http://www.connectionstrings.com 给出了很多类型的库表文件的连接字串,其中对DBF文件,给出的连接字串为:
   "Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq=c:\mydbpath;"
   我用此连接字串没有连接成功,没有进行进一步测试,有兴趣的朋友可以试一下以上字串。
   .www.knowsky.com
2. 在SQL语句中声明表名
   可以用[表名]或[表名.扩展名]的形式在SQL语句中声明要操作的表名,如表文件名为t1.dbf,SQL语句为:
   select * from [t1]  或  select * from [t1.dbf]

3. 各种类型数据的入库操作
   DBF支持的数据类型不是很多,其中值得注意是的Date(日期型)、Memo(备注型)、General(通用型)。在此着重说明一下Data型数据,Memo及Gen型在存储图形文件时用到,稍后说明。
   我一般采用两种方式进行写库操作,一种是使用insert语句,一种是使用addnew方法,对于DBF表,这两种方式略有差别。
   使用insert语句时,要注意Date型数据的书写格式为{^yyyy-mm-dd},分界符不同于Access的#及SQL Server的'。具体SQL语句为:
   insert into [t1.dbf] (name,birthday) values ('MyName',{^1970-1-1})
   在使用addnew方法时,我原先使用的代码为:

   rst.open "[t1]",conn,0,3
   rst.addnew
   rst(0).value = "MyName"
   rst(1).value = {^1970-1-1}
   rst.update
   rst.close
  
   在对SQL Server及Access操作时都没有问题,但是对DBF文件操作时出现了问题。经过试验,终于找到了正确的方法:
  
   sql = "select * from t1"
   rst.open sql,conn,0,3
   rst.addnew
   rst(0).value = "MyName"
   rst(1).value = {^1970-1-1}
   rst.update
   rst.close

   请注意以上两段代码的差别,主要在SQL语句上。前面说过,在SQL语句中,可以用[表名]或[表名.dbf]的方式声明表文件,但在使用addnew方法时,表名不可带扩展名,而且不可加方括号,否则会提示“非简单表名,不可更新” 。

4. 图形文件的存储
   DBF表中,备注形及通用型字段都可用于存储图形、音像、文本等文件(请参考http://www.chinadesign.com.cn/NewsContents1.asp?id=2663)。在这里,我们将字段类型设为memo(binary)(二进制备注型),使用rst(n).AppendChunk()方法将得到的图片二进制数据写入,使用Response.BinaryWrite()方法将二进制数据还原为图片。图片入库的相关文章很多,在此不再赘述。
   至于使用General(通用型)字段存储图片,我试了一下,没有成功,也就没有再试。

5. 数据的删除
   可以使用delete语句将数据删除,但是删除后打开表文件,发现数据只是做了删除标记,并未真正从表中删除。在Foxpro中,要使用pack命令将数据永久删除。查了些资料,说是VB无法