注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

宝贝小屋

生活 工作 学习

 
 
 

日志

 
 

asp连接DBF数据库  

2009-03-14 16:36:36|  分类: 电脑知识 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |


<%

Dim conn, rs,Driver, SourceType, DBPath
   On Error Resume Next
   Set GetOtherRs = Nothing
   Driver = "Driver={Microsoft Visual FoxPro Driver};"
   SourceType = "SourceType=DBF;"
   DBPath = "SourceDB=" & Server.MapPath( ".")

,“."代表数据所在文件夹
   Set conn = GetConnection( Driver & SourceType & DBPath )
   Set conn = Server.CreateObject("ADODB.Connection")
   conn.Open Driver & SourceType & DBPath
   Set conn = conn
   Set rs = Server.CreateObject("ADODB.Recordset")
   rs.Open "Select * From cjd2", conn, 2, 2


If rs Is Nothing Then
    Response.Write "GetDbfRecordset 调用失败!"
    Response.End
End If
%>

 

<HTML>
<BODY bgcolor="#FFFFFF">
<CENTER><H2>使用王国荣提供的函数-- Dbf 版本 <HR></H2>
<TABLE BORDER=1>
<TR BGCOLOR=#00FFFF>
<%
  ' Part I输出“表头名称”
  For i=0 to rs.Fields.Count-1
     Response.Write "<TD>" & rs(i).Name & "</TD>"
  Next
%>
</TR>
<%
  ' Part II输出数据表的“内容”
  rs.MoveFirst  ' 将目前的数据记录移到第一项
  While Not rs.EOF ' 判断是否过了最后一项
     Row = "<TR>"
     For i=0 to rs.Fields.Count-1
        Row = Row & "<TD>" & rs(i) & "</TD>"
     Next
     Response.Write Row & "</TR>"
     rs.MoveNext ' 移到下一项
  Wend
rs.MoveFirst
While Not rs.EOF
    rs("数学") = rs("数学") + 10
    rs.MoveNext
Wend

%>
</TABLE></CENTER>
</BODY>
</HTML>

 

 

  评论这张
 
阅读(562)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017