Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

¼ÆËã»ú¸ÄÃûºó£¬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ÊÇ·ñ¹¤×÷Õý³£.

½â¾öÁË£¬Ð»Ð»¸÷λÀÏʦ


Ïà¹ØÎÊ´ð£º

vbµÄÀàÖÐʹÓÃ×Ô¶¨ÒåÀàÐÍÊý¾ÝµÄÎÊÌâ - VB / »ù´¡Àà


ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......

vb - VB / »ù´¡Àà

ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£

²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°

Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......

Çë½Ì!ÓõÄÊÇVB 6.0 - VB / ¿Ø¼þ

°ÑÒÑÓÐÊý¾Ý£¨Êý¾Ý´óÓÚ20ÐУ©µÄRS(recordset)µÄµÚ10ÐÐÊý¾ÝÓëµÚ11ÐÐÊý¾Ý×ö¼Ó·¨ºó£¬É¾³ýµÚ11ÐеÄÊý¾Ý£¬È»ºó°ÑºóÃæµÄÊý¾ÝÏòÇ°ÒÆ¡£
RSµÄ»°ÐÞ¸ÄÊý¾ÝÊÇ»á¸üÐÂÊý¾Ý¿â£¬ÏÖÔÚµÄÎÊÌâÊÇRSÀïµÄÒÑÓÐÊý¾ÝÊÇÓÃSQLÓï¾ä·ÖÀàͳ¼Æ³öÀ´µÄ ......

vb - VB / »ù´¡Àà

Êý¾Ý¿âÀïÓÐÒ»¸ö×ֶεÄÄÚÈÝÊǶþ½øÖÆ£¬Ôõô²ÅÄܰÑÕâ¸ö¶þ½øÖƶÁ³öÀ´
ʹÓÃ×Ö½ÚÁ÷¶ÔÏó¿ÉÒÔʵÏÖ

ÀýÈçÏÖÔÚÊý¾Ý¿âÀïÓиö×ֶεÄÄÚÈÝÊÇ0x504B03040A0000000800407F263C3B02465390000000820000000A0000006273CECACCE22E7478 ......

vb - VB / »ù´¡Àà

xmlDoc1.loadXML(h)×ÜÊÇ·µ»Øfalse£¬ÎªÊ²Ã´£¿Ð»Ð»°ïæ»Ø´ðÒ»ÏÂ
hÊÇÊ²Ã´ÄØ¡£¡£¡£¡£¡£¡£¡£¡£¡£

hÊÇxml¸ñʽµÄ×Ö·û´®

ÄãÊÇÏë´ò¿ª¡£XML¸ñʽµÄÎļþ°É£¿

ÎÒÊǰÑh·ÅÔÚxmlDoc1ÀÓÃxmlDoc1.loadXML(h)£¬È»ºóÈ¡xmlDo ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ