?? 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 + -