鐢╔SD鏍￠獙XML
鐢變簡XML Schema,浣犲彲浠ョ敤鏉ユ牎楠孹ML鏂囨。鐨勮涔夊拰緇撴瀯銆傚湪MSXML 4.0鎶鏈瑙堢増鏈凡緇忔彁渚涗簡鐢╔SD Schema鏉ユ牎楠孹ML鏂囨。鐨勫姛鑳姐傚湪鏍￠獙鏂囨。鏃訛紝灝唖chema娣誨姞鍒癤MLSchemaCache瀵硅薄涓紝璁劇疆鍏?object, set the schemas property of a DOMDocument瀵硅薄鐨剆chemas灞炴у紩鐢╔MLSchemaCache瀵硅薄涓殑schema銆傚湪灝哫ML鏂囨。杞藉叆鍒癉OMDocument瀵硅薄涓椂灝嗚嚜鍔ㄦ墽琛屾牎楠屾搷浣溿傛垜浠笉濡ㄧ敤渚嬪瓙鏉ヨ鏄庡浣曞湪Visual Basic涓氳繃緙栫▼瀹炵幇XML鏂囨。鏍￠獙銆傚叾涓寘鎷細
books.xsd
鐢ㄦ潵鏍￠獙books.xml鏂囦歡鐨凷chema
books.xml
璇ユ枃浠跺皢琚澆鍏ュ茍涓斿拰books.xsd瀵圭収鏍￠獙
Visual Basic鏍￠獙浠ｇ爜
鍒涘緩涓涓猉MLSchemaCache瀵硅薄,灝唖chema娣誨姞緇欏畠,鐒跺悗璁劇疆schemas property of the DOMDocument瀵硅薄鐨剆hemas灞炴с傚湪寮濮嬬殑鏃跺欎綘瑕佽繘琛屽涓嬫搷浣滐細
鎵撳紑Visual Basic 6.0,閫夋嫨Standard EXE鏂伴」鐩?
鍦≒roject鑿滃崟涓夋嫨References.
鍦ˋvailable References鍒楄〃涓夋嫨Microsoft XML,v4.0
緇橣orm1娣誨姞涓涓狢ommand button
瀛樺偍璇ラ」鐩?
books.xml
鍦╔ML緙栬緫鍣ㄧ敋鑷充竴鑸殑鏂囨湰緙栬緫鍣ㄤ腑杈撳叆浠ヤ笅XML浠ｇ爜錛屽茍涓斿瓨涓篵ooks.xml錛?br />
<?xml version="1.0"?>
<x:catalog xmlns:x="urn:books">
<book id="bk101">
<author>Gambardella, Matthew</author>
<title>XML Developer's Guide</title>
<genre>Computer</genre>
<price>44.95</price>
<publish_date>2000-10-01</publish_date>
<description>An in-depth look at creating applications with XML.</description>
<title>2000-10-01</title>
</book>
</x:catalog>
books.xsd
涓嬮潰鏄湰渚嬩腑浣跨敤鐨刡ooks.xsd schema銆?br />
<xsd:schema xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<xsd:element name="catalog" type="CatalogData"/>
<xsd:complexType name="CatalogData">
<xsd:sequence>
<xsd:element name="book" type="bookdata" minOccurs="0" maxOccurs="unbounded"/>
</xsd:sequence>
</xsd:complexType>
<xsd:complexType name="bookdata">
<xsd:sequence>
<xsd:element name="author" type="xsd:string"/>
<xsd:element name="title" type="xsd:string"/>
<xsd:element name="genre" type="xsd:string"/>
<xsd:element name="price" type="xsd:float"/>
<xsd:element name="publish_date" type="xsd:date"/>
<xsd:element name="description" type="xsd:string"/>
</xsd:sequence>
<xsd:attribute name="id" type="xsd:string"/>
</xsd:complexType>
</xsd:schema>
Visual Basic鏍￠獙浠ｇ爜
浣犲彲浠ヨ繍琛屼笅闈㈢殑渚嬪瓙:
鎷瘋礉涓嬮潰鐨勪唬鐮佸埌Command1_Click榪囩▼涓?
Private Sub Command1_Click()
Dim xmlschema As MSXML2.XMLSchemaCache
Set xmlschema = New MSXML2.XMLSchemaCache
xmlschema.Add "urn:books", App.Path & "\books.xsd"
Dim xmldom As MSXML2.DOMDocument
Set xmldom = New MSXML2.DOMDocument
Set xmldom.schemas = xmlschema
xmldom.async = False
xmldom.Load App.Path & "\books.xml"
If xmldom.parseError.errorCode <> 0 Then
MsgBox xmldom.parseError.errorCode & " " & xmldom.parseError.reason
Else
MsgBox "No Error"
End If
End Sub
鎵ц璇ョ▼搴忥紝鐒跺悗鐐瑰嚮Command1鎸夐挳錛屽皢榪斿洖"No Errors"娑堟伅妗嗐?br />
杞澆錛歨ttp://www.xfbbs.com/ArticleShow/43/Article_Show_25431.html
]]>
<head>
<title>VN.ST.錛?a >
www.51windows.Net</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style>
<!--
@media all {
IE\:CLIENTCAPS {behavior:url(#default#clientCaps)}
}
-->
</style>
<style type="text/css">
p, td, input { font-style: normal; font-variant: normal; font-weight: normal; font-size: 9pt;
font-family: 瀹嬩綋, 'MS Song'; cursor: default;padding:3px}
body { font-style: normal; font-variant: normal; font-weight: normal; font-size: 9pt;
font-family: 瀹嬩綋, 'MS Song'; color: windowtext;
background-color: menu; background-repeat: repeat;
background-attachment: scroll; background-position: 0% }
</style>
</head>
<body bgcolor="#FFFFFF" text="#000000" marginwidth="0" marginheight="0">
<IE:CLIENTCAPS ID="oClientCaps" />
<table width="476" border="0" cellspacing="1" cellpadding="0" class="sm9pt" bgcolor="#1892B5" align=center>
<tr>
<td width="73" class="td1" bgcolor="#FFFFFF">嫻忚鍣ㄧ被鍨?lt;/td>
<td width="389" class="td1" bgcolor="#FFFFFF">
<script>document.write(navigator.appName)</script>
</td>
</tr>
<tr>
<td width="73" bgcolor="#FFFFFF">嫻忚鍣ㄧ増鏈?lt;/td>
<td width="389" bgcolor="#FFFFFF">
<script>document.write(navigator.appVersion)</script>
</td>
</tr>
<tr>
<td width="73" class="td1" bgcolor="#FFFFFF">嫻忚鍣ㄨ璦</td>
<td width="389" class="td1" bgcolor="#FFFFFF">
<script>document.write(navigator.browserLanguage)</script>
</td>
</tr>
<tr>
<td width="73" bgcolor="#FFFFFF">CPU綾誨瀷</td>
<td width="389" bgcolor="#FFFFFF">
<script>document.write(navigator.cpuClass)</script>
</td>
</tr>
<tr>
<td width="73" class="td1" bgcolor="#FFFFFF">鎿嶄綔緋葷粺</td>
<td width="389" class="td1" bgcolor="#FFFFFF">
<script>document.write(navigator.platform)</script>
</td>
</tr>
<tr>
<td width="73" bgcolor="#FFFFFF">緋葷粺璇█</td>
<td width="389" bgcolor="#FFFFFF">
<script>document.write(navigator.systemLanguage)</script>
</td>
</tr>
<tr>
<td width="73" class="td1" bgcolor="#FFFFFF">鐢ㄦ埛璇█;</td>
<td width="389" class="td1" bgcolor="#FFFFFF">
<script>document.write(navigator.userLanguage)</script>
</td>
</tr>
<tr>
<td width="73" bgcolor="#FFFFFF">鍦ㄧ嚎鎯呭喌</td>
<td width="389" bgcolor="#FFFFFF">
<script>document.write(navigator.onLine)</script>
</td>
</tr>
<tr>
<td width="73" class="td1" bgcolor="#FFFFFF">灞忓箷鍒嗚鯨鐜?lt;/td>
<td width="389" class="td1" bgcolor="#FFFFFF"> <script>document.write(window.screen.width+"x"+window.screen.height)</script></td>
</tr>
<tr>
<td width="73" class="td1" bgcolor="#FFFFFF">棰滆壊</td>
<td width="389" class="td1" bgcolor="#FFFFFF"> <script>document.write(window.screen.colorDepth+"浣?)</script></td>
</tr>
<tr>
<td width="73" class="td1" bgcolor="#FFFFFF">瀛椾綋騫蟲粦</td>
<td width="389" class="td1" bgcolor="#FFFFFF"><script>document.write(window.screen.fontSmoothingEnabled)</script></td>
</tr>
<tr>
<td width="73" class="td1" bgcolor="#FFFFFF">鏇存柊鐗堟湰</td>
<td width="389" class="td1" bgcolor="#FFFFFF">
<script>document.write(navigator.appMinorVersion)</script>
</td>
</tr>
<tr>
<td width="73" bgcolor="#FFFFFF">appCodeName</td>
<td width="389" bgcolor="#FFFFFF">
<script>document.write(navigator.appCodeName)</script>
</td>
</tr>
<tr>
<td width="73" class="td1" bgcolor="#FFFFFF">cookieEnabled</td>
<td width="389" class="td1" bgcolor="#FFFFFF">
<script>document.write(navigator.cookieEnabled)</script>
</td>
</tr>
<tr>
<td width="73" bgcolor="#FFFFFF">userAgent</td>
<td width="389" bgcolor="#FFFFFF">
<script>document.write(navigator.userAgent)</script>
</td>
</tr>
<tr>
<td width="73" class="td1" bgcolor="#FFFFFF">javaEnabled</td>
<td width="389" class="td1" bgcolor="#FFFFFF">
<script>document.write(navigator.javaEnabled())</script>
</td>
</tr>
<tr>
<td width="73" bgcolor="#FFFFFF">taintEnabled</td>
<td width="389" bgcolor="#FFFFFF">
<script>document.write(navigator.taintEnabled())</script>
</td>
</tr>
<tr>
<td width="73" class="td1" bgcolor="#FFFFFF">connectionType</td>
<td width="389" class="td1" bgcolor="#FFFFFF">
<script>document.write(oClientCaps.connectionType)</script>
</td>
</tr>
</table>
<script Language="錛?106avascript">
if (oClientCaps.connectionType == "modem")
alert("娌℃湁鐢ㄥ甯﹀憖錛熻繕鍦ㄧ敤鐚笂緗戯紝涓嶈繃鍜屾垜涓鏍鳳紒");
else if(oClientCaps.connectionType == "offline")
alert("鎬庝箞娌℃湁涓婄綉錛?)
</script>
</body>
</html>
]]>