Ôõô°Ñ¿Í»§¶Ë´Ówebservice»ñµÃµÄxmlת»»³Érecordset£¿
ÈçÌâ¡£
webServiceµÄº¯ÊýÈçÏ£º
VB.NET code:
Public Function RecordSetBySql(ByVal Sql As String) As XmlDataDocument
Dim xRs As ADODB.Recordset
Dim cmd As ADODB.Command
Dim st As Stream
Dim xd As XmlDataDocument
xRs = New ADODB.Recordset
cmd = New ADODB.Command
st = New Stream
xd = New XmlDataDocument
xRs.Open(Sql, SDConn, CursorTypeEnum.adOpenDynamic, LockTypeEnum.adLockOptimistic)
xRs.Save(st, PersistFormatEnum.adPersistXML)
st.Flush()
st.Position = 0
xd.LoadXml(st.ReadText(st.Size))
st.Close()
xRs.Close()
conn.Close()
Return xd
End Function
{{
Ïà¹ØÎÊ´ð£º
´ÓÊý¾Ý¿âÖвéѯһÕűíµÄÊý¾Ý
select ²¿ÃÅ,ÐÕÃû from tb
ÈçºÎ²ÅÄÜÉú³ÉÏÂÃæµÄxml¸ñʽÎļþ
<folder state="unchecked" label="È«²¿">
¡¡¡¡<folder state="unchecked" isBra ......
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......
XMLÎļþÄÚÈÝ£º
- <ResList>
<page>0</page>
- <resItem>
<resName>WWW</resName>
</resItem>
- <resItem>
&nb ......
XML_PARSER_STRUCT parser;
ret = xml_new_parser(&parser);
xml_register_element_handler(&parser, mmi_pict_read_xml_start_element_login, mmi_pict_read_xml_end_element_lo ......
htmlÒ³Ãæ¾²Ì¬´´½¨xmlÎļþ£¬²¢±£´æ£¬ÒÔºó¿ÉÒÔ¶ÁÈ¡¡£
²»ÖªÄÄλ´óÏÀ×ö¹ý¡£¡£¡£
лл
javascriptÓ¦¸Ã²»ÄÜ´´½¨Îļþ°É
jsÓÐȨÏÞ´´½¨Ã´£¬´ó¶àÊýÇé¿öϱ»½ûÖ¹°É
ȨÏÞ¡£¡£
ÀúÊ·ÒÅÁôÎÊÌ⣬¿´À´½â¾ö²»ÁËÁË¡£¡£¡£¡£¡ ......