¼ÆËã»ú¸ÄÃûºó£¬vbÎÞ·¨ÔËÐÐ
¸÷λÀÏʦ£¬ÎҰѼÆËã»úµÄÃû³Æ¸ÄÁË£¬sql serverµÄÃû³ÆÒ²ËæÖ®¸ÄÁË£¬¶øÎÒдµÄvb³ÌÐòÈ´ÎÞ·¨ÔËÐУ¬ÇëÎʸ÷λÀÏʦÊÇÔõô»ØÊ£¬Ð»Ð»
½«Ãû³Æ»»³É±äÁ¿¡£
icpnm = environ("computername")
ÔÀ´Á¬½Ó´úÂëÊÇcn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=²Ö¿â¹ÜÀí5.11SQL"
¼ÆËã»ú¸ÄΪuser_001£¬sql serverµÄÃû³ÆÒ²¸ÄΪuser_001£¬ËùÒÔÎÒ°Ñ´úÂë¸ÄΪcn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=²Ö¿â¹ÜÀí5.11SQL;data source=user_001",½á¹û×Ô¼º±àдµÄvb³É¼¨È´ÎÞ·¨ÔËÐÐÁË£¬ÇëÎʸ÷λÀÏʦÊÇÔõô»ØÊ£¬Ð»Ð»
»úÆ÷Ãû¸Ä³ÉIP¾Í¿ÉÒÔÁË
ÏÈÓÿØÖÆÃæ°åÉϵÄÊý¾ÝÔ´Á¬½ÓÒ»ÏÂÊý¾Ý¿â·þÎñÆ÷¿´¿´ÊÇ·ñÄÜÁ¬½ÓÉÏ,ÊÔÊÔ·þÎñÆ÷SQL SERVERÊÇ·ñ¹¤×÷Õý³£.
½â¾öÁË£¬Ð»Ð»¸÷λÀÏʦ
Ïà¹ØÎÊ´ð£º
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......
ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£
²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°
Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
°ÑÒÑÓÐÊý¾Ý£¨Êý¾Ý´óÓÚ20ÐУ©µÄRS(recordset)µÄµÚ10ÐÐÊý¾ÝÓëµÚ11ÐÐÊý¾Ý×ö¼Ó·¨ºó£¬É¾³ýµÚ11ÐеÄÊý¾Ý£¬È»ºó°ÑºóÃæµÄÊý¾ÝÏòÇ°ÒÆ¡£
RSµÄ»°ÐÞ¸ÄÊý¾ÝÊÇ»á¸üÐÂÊý¾Ý¿â£¬ÏÖÔÚµÄÎÊÌâÊÇRSÀïµÄÒÑÓÐÊý¾ÝÊÇÓÃSQLÓï¾ä·ÖÀàͳ¼Æ³öÀ´µÄ ......
Êý¾Ý¿âÀïÓÐÒ»¸ö×ֶεÄÄÚÈÝÊǶþ½øÖÆ£¬Ôõô²ÅÄܰÑÕâ¸ö¶þ½øÖƶÁ³öÀ´
ʹÓÃ×Ö½ÚÁ÷¶ÔÏó¿ÉÒÔʵÏÖ
ÀýÈçÏÖÔÚÊý¾Ý¿âÀïÓиö×ֶεÄÄÚÈÝÊÇ0x504B03040A0000000800407F263C3B02465390000000820000000A0000006273CECACCE22E7478 ......
xmlDoc1.loadXML(h)×ÜÊÇ·µ»Øfalse£¬ÎªÊ²Ã´£¿Ð»Ð»°ïæ»Ø´ðÒ»ÏÂ
hÊÇÊ²Ã´ÄØ¡£¡£¡£¡£¡£¡£¡£¡£¡£
hÊÇxml¸ñʽµÄ×Ö·û´®
ÄãÊÇÏë´ò¿ª¡£XML¸ñʽµÄÎļþ°É£¿
ÎÒÊǰÑh·ÅÔÚxmlDoc1ÀÓÃxmlDoc1.loadXML(h)£¬È»ºóÈ¡xmlDo ......