VBµ÷ÓÃDLLÖеĺ¯Êý - VB / ¿Ø¼þ
ÎÒÏëʵÏÖÕâÑùÒ»¸ö¹¦ÄÜ£¬ÎÒÓÐÒ»¸öXMLÎļþ¸ñʽÈçÏÂ
<Field cnName="ÕʺÅ" fieldType="varchar" fieldLen="40" fieldScale="" ></Field>
<Field cnName="ÕË»§Ãû³Æ" fieldType="varchar" fieldLen="80" fieldScale="" ></Field>
<Field cnName="²¿ÃÅ " fieldType="varchar" fieldLen="4" fieldScale="" ></Field>
<Field cnName="¹ñÔ±×é " fieldType="char" fieldLen="2" fieldScale=""></Field>
cnName= ×Ö¶ÎÃû³Æ fieldType=×Ö¶ÎÀàÐÍ fieldLen=×ֶγ¤¶È fieldScale=СÊýµãµÄλÊý
ÎÒÏë°ÑXMLµÄ¸÷¸ö×Ö¶ÎÊôÐÔ¶ÁÈë±£´æµ½Êý×éÖУ¬È»ºó°ÑÊý×é×÷Ϊ²ÎÊý´«µÝ¸øActivex DLLÖк¯Êý£¬VBͨ¹ýµ÷Óøú¯Êý£¬°Ñ¸÷¸ö×ֶγÉÒ»¸öÄ£°å£¨Ö»Òª°Ñ×Ö¶ÎÒ»´Î´«¸ø¸Ãº¯ÊýµÄ²ÎÊý¼´¿É£©
DLLÃû³ÆÎªmakerdf.dll ÆäÖÐÀàΪ IdeaRDF
º¯ÊýΪAppendField(name As String,desc As String, vartype As Integer, Length As Integer, dec As Integer, impliedDec As Boolean, parameter As String))
name //×Ö¶ÎÃû³Æ>
desc //×Ö¶Î˵Ã÷>
vartype // 1-×Ö·û 2-Êý×Ö 5-ÈÕÆÚ Ê±¼ä 0-ÎÞЧÀàÐÍ>
offset //Æ«ÒÆ ¹Ì¶¨Îª0>
length //³¤¶È>
dec /СÊýλÊý> impliedDec //Èç¹ûÔ´Êý¾Ý°üÀ¨Ð¡Êýλȡfalse ²»°üÀ¨È¡true>
parameter //¸ñʽÑÚÂë ÈçÈÕÆÚÐ͵ĸñʽ¡°ÄêÄêÄêÄêÔÂÔÂÈÕÈÕ¡±
ÎÒдµÄ³ÌÐòÈçÏ£º£¨Ö»Ð´Á˶ÁÈëXML£¬ºÍÒýÓÃDLL²¿·Ö£¬µ÷Óò¿·ÖÂé·
Ïà¹ØÎÊ´ð£º
ÏÖÔÚÎÒÏë¸ù¾ÝtreeviewÉÏÿ¸ö½ÚµãµÄȨÏÞ£¬Ã»ÓÐȨÏ޵Ľڵ㲻Äܱ»Ñ¡ÖУ¬¶øÇҳɻÒÉ«£¬ÔõôʵÏÖ£¬ÔÚÏߵȡ£¡£¡£
Õâ¸ö£¿¡£¡£¡£
Ã²ËÆÃ»·¨¡£
ÊÔÊÔÄܲ»ÄܸÄijЩnodeµÄÑÕÉ«£¬¼Ç¼ÏÂÉϴεÄnodeclickÀïµÄnode¡£
Ï´εã»÷µÄÈç¹ ......
ÎÒÏë°ÑwordÁí´æÎªxmlÖ®ºó£¬ÓÃvb¶ÁÈ¡Õâ¸öxmlµÄÄÚÈÝ£¬ÇëÎÊÈçºÎʵÏÖ£¿
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......
°ÑÒÑÓÐÊý¾Ý£¨Êý¾Ý´óÓÚ20ÐУ©µÄRS(recordset)µÄµÚ10ÐÐÊý¾ÝÓëµÚ11ÐÐÊý¾Ý×ö¼Ó·¨ºó£¬É¾³ýµÚ11ÐеÄÊý¾Ý£¬È»ºó°ÑºóÃæµÄÊý¾ÝÏòÇ°ÒÆ¡£
RSµÄ»°ÐÞ¸ÄÊý¾ÝÊÇ»á¸üÐÂÊý¾Ý¿â£¬ÏÖÔÚµÄÎÊÌâÊÇRSÀïµÄÒÑÓÐÊý¾ÝÊÇÓÃSQLÓï¾ä·ÖÀàͳ¼Æ³öÀ´µÄ ......
xmlDoc1.loadXML(h)×ÜÊÇ·µ»Øfalse£¬ÎªÊ²Ã´£¿Ð»Ð»°ïæ»Ø´ðÒ»ÏÂ
hÊÇÊ²Ã´ÄØ¡£¡£¡£¡£¡£¡£¡£¡£¡£
hÊÇxml¸ñʽµÄ×Ö·û´®
ÄãÊÇÏë´ò¿ª¡£XML¸ñʽµÄÎļþ°É£¿
ÎÒÊǰÑh·ÅÔÚxmlDoc1ÀÓÃxmlDoc1.loadXML(h)£¬È»ºóÈ¡xmlDo ......
ÎÊÌ⣺
ÏÖÔÚAccessÊý¾Ý¿âÖÐÓÐÁ½ÕűíTableAºÍTableB
TableAÖÐÓмǼÈçÏÂ:
×Ö¶Î1(Name) ×Ö¶Î2(Num)
A 3
A 4
B 6
... ......