如何如何使用IE调用RDS实现远程数据库存取？
如何如何使用IE调用RDS实现远程数据库存取？
互连网上的数据库应用大多采用 Web 后台数据库，用 ASP、PHP、JSP 等嵌入式脚本语言编程进行数据的后台存龋实际上，应用微软的 RDS(Remote Data Service 远程数据服务)同样可以进行 Web 服务器端的数据库访问，使用起来更显简单。而这一技术一般的报刊杂志介绍的比较少。
RDS 是微软随 IE4.01 以上浏览器发布的一个 ActiveX 组件，负责网络系统中远端数据库的访问。与 ASP 等数据库访问组件不同的是，RDS 不是工作在 Web 服务器端，而是调用浏览器本地的组件功能，实现真正的远程数据存取，所以在访问服务器端的数据库时，必须提供服务器的 IP 地址和数据库的绝对路径，最后通过 SQL 查询语句，将数据取回到浏览器端显示出来。
更让人欣喜的是，浏览器端数据的显示，不用像 ASP 脚本那样通过编程控制数据的版面编排，而是通过将 RDS 作为数据源与网页中普通的表格进行“绑定”，通过十分简单的脚本语言控制，数据就会在表格中显示出来。(而网页中的表格，我们一般的用法是用它来控制页面排版、布局。)
和一般的 ActiveX 组件的使用一样，RDS 组件在网页中用 <object id="" classid=""></object> 标签进行引用。本例中我们的 id 设为 RDS1，classid 为 BD96C556-65A3-11D0-983A-00C04FC29E33(在注册表中应当能查找到)。用来显示数据的 HTML 表格 id 设为 Cheng_ji。把 RDS1 作为数据源与表格 Cheng_ji 绑定在一起的语法格式为：
<table id="Cheng_ji" DataSrc="#RDS1" DataPagesize="6">
还可以分页显示数据，其中 DataPagesize="6" 表示一页表格显示 6 条记录。
在表格中显示字段变量数据的语法为 <DIV DataFld="字段名">。
本例中，按钮“打开数据库”调用 VB 脚本 OpenDB() 过程，把 IP 地址、数据库路径、SQL 查询语句等参数传递给 RDS1，然后调用 RDS1 的 refresh 方法取回数据在表格 Cheng_ji 中显示出来。表格下面的四个按钮调用翻页函数可以前后查看数据。设置分页功能对大量的数据可以进行有效的缓冲，还可以平衡网络的数据流量。
本例实现了一个学生成绩单的查询功能，Access 数据库 test_db.mdb 中成绩表 cheng_ji 的表结构为：
xing_ming 文本 '姓名
xue_hao 文本 '学号
yu_wen 数字 '语文
shu_xue 数字 '数学
ying_yu 数字 '英语
mei_shu 数字 '美术
ji_suan_ji 数字 '计算机
HTML 代码如下，查询结果见图。本例在 Windows98 第一版下运行通过。
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb_2312-80">
<title>成绩公布</title>
</head>
<body bgcolor="#FFFFFF">
<center><font color=red size=5>成绩公布</font></center><hr>
<Form name="form1">
<table border="0" align="center">
<tr>
<td align="right">服务器 IP 地址：</td>
<td>
<!-定义服务器 IP 地址：-->
<input type="text" size="50" name="Server" value="http://192.168.0.100">
</td>
</tr>
<tr>
<td align="right">数据库路径：</td>
<td>
<!-定义服务器端数据库路径：-->
<input type="text" size="50" name="Dbq" value="c:/tmp/test_db.mdb">
</td>
</tr>
<tr>
<td align="right">SQL 查询语句：</td>
<td>
<!-定义SQL 查询语句：-->
<input type="text" size="50" name="SQL" value="Select * From cheng_ji">
</td>
</tr>
<tr>
<td align="center" colspan="2"><input type="button" value="打开数据库" onclick="OpenDB()"></td>
</tr>
</form>
</table>
<hr width="80%">
<table align="center" width= "400" border="1" cellspacing=0
id="Cheng_ji" DataSrc="#RDS1" DataPagesize="6">
<THEAD>
<tr align="center">
<td bgcolor="#00FFFF">姓名</td>
<td bgcolor="#00FFFF">学号</td>
<td bgcolor="#00FFFF">语文</td>
<td bgcolor="#00FFFF">数学</td>
<td bgcolor="#00FFFF">英语</td>
<td bgcolor="#00FFFF">美术</td>
<td bgcolor="#00FFFF">计算机</td>
</tr>
</THEAD>
<TBODY>
<tr>
<td><DIV DataFld="xing_ming"></DIV></td>
<td align="center"><DIV DataFld="xue_hao"></DIV></td>
<td align="right"><DIV DataFld="yu_wen"></DIV></td>
<td align="right"><DIV DataFld="shu_xue"></DIV></td>
<td align="right"><DIV DataFld="ying_yu"></DIV></td>
<td align="right"><DIV DataFld="mei_shu"></DIV></td>
<td align="right"><DIV DataFld="ji_suan_ji"></DIV></td>
</tr>
</TBODY>
</table>
<br>
<center>
<input type="button" value="第一页" onclick="Cheng_ji.firstPage()">
<input type="button" value="<<上一页" onclick="Cheng_ji.previousPage()">
<input type="button" value="下一页>>" onclick="Cheng_ji.nextPage()">
<input type="button" value="最后一页" onclick="Cheng_ji.lastPage()">
</center>
<hr>
<object id="RDS1" classid="ClsID:BD96C556-65A3-11D0-983A-00C04FC29E33" align="baseline">
</object>
<script language="VBScript">
Sub OpenDB()
RDS1.Server = form1.Server.Value
RDS1.Connect = "driver={Microsoft Access Driver (*.mdb)}" & ";dbq=" & form1.Dbq.Value
RDS1.SQL = form1.SQL.Value
RDS1.Refresh
End Sub
</script>
</body>
</html>
张庆 zhangking@263.net
http://soft.why100000.com