📄 0903-0700.htm
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!-- saved from url=(0071)http://162.105.170.55/ASPs/GetLearningArticleTemp.asp?section=0903-0700 -->
<HTML><HEAD><TITLE>XML中国论坛 - 初学进阶 - 9.3.7 InterAccess软件包</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<STYLE type=text/css>TABLE {
FONT-SIZE: 9pt; COLOR: black; LINE-HEIGHT: 15pt; FONT-FAMILY: "宋体"
}
.pt9 {
FONT-SIZE: 9pt; COLOR: black; LINE-HEIGHT: 15pt; FONT-FAMILY: "宋体"
}
.pt10 {
FONT-WEIGHT: 700; FONT-SIZE: 10pt; LINE-HEIGHT: 18pt; FONT-FAMILY: "宋体"
}
.TempOutline {
FONT-SIZE: 9pt; MARGIN-LEFT: 15pt; COLOR: #666666; TEXT-INDENT: -28pt; LINE-HEIGHT: 15pt; FONT-FAMILY: "宋体"; TEXT-DECORATION: none
}
.TempOutline1 {
FONT-SIZE: 9pt; MARGIN-LEFT: 24pt; COLOR: #666666; TEXT-INDENT: -36pt; LINE-HEIGHT: 15pt; FONT-FAMILY: "宋体"; TEXT-DECORATION: none
}
.Outline {
FONT-SIZE: 9pt; MARGIN-LEFT: 15pt; TEXT-INDENT: -28pt; LINE-HEIGHT: 15pt; FONT-FAMILY: "宋体"; TEXT-DECORATION: none
}
.Outline1 {
FONT-SIZE: 9pt; MARGIN-LEFT: 24pt; TEXT-INDENT: -36pt; LINE-HEIGHT: 15pt; FONT-FAMILY: "宋体"; TEXT-DECORATION: none
}
.Outline11 {
FONT-SIZE: 9pt; MARGIN-LEFT: 38pt; TEXT-INDENT: -50pt; LINE-HEIGHT: 15pt; FONT-FAMILY: "宋体"; TEXT-DECORATION: none
}
.passage0 {
FONT-SIZE: 9pt; MARGIN-LEFT: 15pt; TEXT-INDENT: -28pt; LINE-HEIGHT: 15pt; FONT-FAMILY: "宋体"; TEXT-DECORATION: none
}
.passage1 {
FONT-SIZE: 9pt; MARGIN-LEFT: 24pt; TEXT-INDENT: -36pt; LINE-HEIGHT: 15pt; FONT-FAMILY: "宋体"; TEXT-DECORATION: none
}
.passage11 {
FONT-SIZE: 9pt; MARGIN-LEFT: 38pt; TEXT-INDENT: -50pt; LINE-HEIGHT: 15pt; FONT-FAMILY: "宋体"; TEXT-DECORATION: none
}
.passage111 {
FONT-SIZE: 9pt; MARGIN-LEFT: 51pt; TEXT-INDENT: -64pt; LINE-HEIGHT: 15pt; FONT-FAMILY: "宋体"; TEXT-DECORATION: none
}
</STYLE>
<META content="Microsoft FrontPage 5.0" name=GENERATOR></HEAD>
<BODY vLink=#000000 aLink=#000000 link=#000000 leftMargin=0 topMargin=0
onload=""><!-- 以下为主体内容 -->
<div align="center">
<center>
<TABLE border=0 width="100%" style="border-collapse: collapse" bordercolor="#111111" cellpadding="0" cellspacing="0">
<TBODY>
<TR vAlign=top>
<TD width=39 rowSpan=2></TD>
<TD vAlign=center width="835" >
<p align="center"><IMG height=33
src="image/title_learner.gif" width=226></TD>
<TD width=43 rowSpan=2></TD>
</TR>
<TR vAlign=top>
<TD width="835" ><!-- 正文内容 -->
<DIV class=pt10><B>9.3.7 InterAccess软件包</B></DIV>
<DIV></DIV><BR>
<DIV class=pt9>
<P>InterAccess是由XML Software
Corporation开发的一套软件包。该软件包是一种以客户/服务器方式通过互联网访问ODBC/OLE
DB数据库的软件,客户端和服务器之间以XML数据格式双向交换数据,其独特之处在于采用TCP/IP而不是通常的HTTP作为数据传输协议。InterAccess是由三个模块组成的:InterAccess服务器软件、InterAccess客户端COM动态库、InterAccess浏览器。参见下面的InterAccess体系结构图。</P>
<P align=center><IMG height=185
alt="TU000000-0902-0700-01.gif (2812 bytes)"
src="image/TU000000-0902-0700-01.gif" width=414></P>
<P align=left>InterAccess
服务器软件运行于服务器上,专门用于处理客户端请求:从数据库中检索数据生成XML格式数据传送到客户端;或者接受客户端发送的XML格式数据并存储于数据库中。由于XML文档中的数据是以对象树的形式存在,因此很方便地即可将数据保存至数据库表中或从数据库表中检索。
</P>
<P
align=left>在客户端,由一个COM对象处理与服务器的通讯。开发者可以利用内置的API接口函数开发应用程序以检索非XML格式的数据,也可以利用回调函数处理服务器方返回的XML数据。</P>
<P align=left>InterAccess
还提供了一个专用浏览器,通过它,用户可以察看数据库表的内容或者执行SQL语句,最终结果可以保存或者拷贝/粘贴至其他应用程序,如Microsoft
Excel 或Access。 </P>
<P
align=left>下面给出的例子展示了如何通过调用InterAccess提供的COM组件开发基于XML的数据库应用。该例子通过一个数据源连接、登陆远程主机,向数据库发出SQL查询命令,最后打印返回的数据集。从形式上看,同ADO极为相似。</P>
<DIV align=center>
<CENTER>
<TABLE width="80%" border=1>
<TBODY>
<TR>
<TD width="100%">Private Sub btnCommand_Click()<BR>
’定义出错处理<BR> On Error GoTo Error
<P> ’定义变量<BR> Dim cnn As New XMLDB.Connection<BR>
Dim strSQL As String<BR> Dim ds As XMLDB.IDataset<BR>
Dim col As XMLDB.IColumn</P>
<P> ’连接并登陆数据库<BR> cnn.Connect "iaccess.xmlsoft.com.au",
7777<BR> cnn.Login "TRIAL", "", ""</P>
<P> ’执行SQL查询命令<BR> strSQL = "SELECT * FROM clientList
WHERE ID like ’B%’"<BR> cnn.Execute strSQL, E_CMD_TEXT, 0,
30<BR> If cnn.Reply.Result <> 0
Then<BR> DisplayErrors
cnn.Reply<BR> Exit Sub<BR> End If</P>
<P> ’处理数据库返回结果<BR> Set ds = cnn.Reply.Dataset<BR>
While ds.EOD <> True<BR> For Each col In
ds.Columns<BR> Debug.Print
col.Value<BR> Next<BR>
ds.MoveNext<BR> Wend<BR>Exit Sub </P>
<P>Error:<BR> MsgBox Err.Description<BR>End Sub</P>
<P>’显示错误信息<BR>Private Sub DisplayErrors(Reply As
XMLDB.IReply)<BR> Dim Error As XMLDB.IError<BR> For Each
Error In Reply.Errors<BR> Debug.Print
Error.Description<BR> Next<BR>End
Sub</P></TD></TR></TBODY></TABLE></CENTER></DIV>
<P align=left>相关网址:<A
href="http://www.xmlsoft.com.au/iaccess.html">http://www.xmlsoft.com.au/iaccess.html</A><BR></P></DIV>
<P></P>
<P></P></TD></TR></TBODY></TABLE>
</center>
</div>
<P></P>
<P>
<P></P></BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -