ÈçºÎÔÚVB.NET´´½¨accessÊý¾Ý¿â£¿
¸Õ¸Õ½Ó´¥VB.NET£¬¶Ô.NET»ù±¾Ê²Ã´Ò²²»¶®£¬Çë¸ßÊÖ¸øÒ»¶Î½ÏÍêÕû´´½¨accessÊý¾Ý¿âµÄʾÀý´úÂ룬ÈÃÎÒѧϰһÏ¡£
Ëùν½ÏÍêÕû´´½¨Êý¾Ý¿âʱ¶¨Òå¸÷¸ö×Ö¶ÎÀàÐ͵ıíʾ·½·¨£¬ÈçÕûÊýÐÍ£¬¸¡µãÐÍ£¬×Ö·ûÐÍ£¨¶¨Ò峤¶ÈÈçºÎ±íʾ£©¡£Ð»Ð»£¡
ÎÒÒ²ÏëÖªµÀ´ð°¸£¬°ïÄã¶¥!!!!!!!!!!!!!!!!!!!!!!
Ïà¹ØÎÊ´ð£º
ÓÐÒ»¸öÊý¾Ý¿âÀïÖ»ÓÐ2WÌõÊý¾Ý²»µ½£¬È´ÓÐ500MÄÇô´ó,Ôõô»ØÊ°¡£¿ÊÇACCESSµÄÊý¾Ý¿â¡£ºóÀ´ÎÒ°ÑACCESSµ¼Èëµ½MSSQLÖУ¬Ò²Õ¼ÓÃÁË500M×óÓҵĿռ䣬Èç¹ûѹËõÊý¾Ý¿âÄØ£¿Çë¸ßÊÖÖ¸µã
ѹËõÊý¾Ý¿â£¿ÄÜ×öµ½Ã´...
ÆÚ´ý¸ßÈËÖ¸µã ÎÒ ......
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......
ÎÒÏë°Ñ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
......
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......
dim a as string,b as string£¬c as string
a="¹¤³Ì±àºÅ,µ¥Î»¹¤³ÌÃû³Æ,·Ö²¿¹¤³Ì±àºÅ"
b="µ¥Î»¹¤³ÌÃû³Æ"
c="µ¥Î»"
Ôõô²ÅÄÜÅжϳöa×Ö·û´®ÖдæÔÚb×Ö·û´®£¬¶ø²»´æÔÚc×Ö·û´®
¿´¿´i ......