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

ÓÃvbÓïÑÔºÍADOÈçºÎ½¨Á¢Ô¶³ÌÊý¾Ý¿âµÄÁ´½Ó£¿

´ËÎÊÌâÒѺܳ¤Ê±¼äûÓнâ¾öÁË£¬ÇëÅóÓѰï°ïæ°¡£¡£¡£¡
ÓÃvbÓïÑÔºÍADOÈçºÎ½¨Á¢Ô¶³ÌÊý¾Ý¿âµÄÁ´½Ó£¿
1¡¢ÔÚ¾ÖÓòÍøÄÚ£¬Ò»Ì¨¼ÆËã»úµÄIP:192.192.10.79¡£ÔÚÆäÉÏÓÃIIS½¨Á¢µÄ·þÎñÆ÷£¬Ãû³ÆÎªWGYS-ZH¡£Êý¾Ý¿âÎļþ£ºC:\WGYSDB\ZWZ.mdf
2¡¢ÓÃVBÓïÑÔ±àдӦÓóÌÐò£¬ÔÚ¿Í»§»úÉÏÔËÐзþÎñÆ÷ÉϵÄÊý¾Ý¿â¡£
3¡¢ÓÃADO·½Ê½²Ù×÷Êý¾Ý¿â¡£
ÎÊÌ⣺Á´½ÓÔ¶³ÌÊý¾Ý¿âµÄÁ´½Ó´úÂëÈçºÎ±àд¡£×îºÃ¸ø³öʵÀý¡£
ÎÒ±àдһ¸öÁ´½Ó×Ö·û´®£¬µ«ÊÇÔËÐÐÊÇÌáʾ£ºÒ»°ãÐÔÍøÂç´íÎó¡£Çë¼ì²éÍøÂçÎļþ¡£²»ÖªºÎÒâ?
´úÂëÈçÏ£º
Server = "192.192.10.79"      '·þÎñÆ÷Ãû
Gdatabase = "ZWZ"            'Êý¾Ý¿âÃû
Uid = "" 
Pwd = ""
Cn.ConnectionString = "Driver={SQL Server};Server=" & Server & ";Database=" & Gdatabase & " ;Uid=" & Uid & ";Pwd=" & Pwd
Cn.Open

´íÎóÌáʾ£º[DBNETLIB][ConnectionOpen(Connect()).]SQL Server ²»´æÔÚ»ò·ÃÎʱ»¾Ü¾ø¡£ 
----------------------------------------------------------------------------
----------------------------------------------------------------------------
°´ÍøÓÑÌáʾ£¬²âÊÔÁ˿ͻ§»úÓë·þÎñÆ÷»úµÄÎïÀíÁ¬½Ó£»ÖØÐ¶Կͻ§»úºÍ·þÎñÆ÷»ú×öÁËÍøÂçÅäÖã¬Ò»ÇÐÕý³£¡£ÈÔÈ»ÎÞ·¨Á¬½Ó¡£
°´ÍøÓѸø³öµÄ´úÂ룺
cn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Êý¾Ý¿âÃû;Data Source=·þÎñÆ÷Ãû»òIPµØÖ·;uid=sa;pw


Ïà¹ØÎÊ´ð£º

¡¾¼±Çó¡¿VBÖÐʹÓÃWScriptµ÷ÓÃÍⲿÃüÁî - VB / »ù´¡Àà

ÔÚÏÂÊÇvbµÄÐÂÊÖ£¬Ïëд¶Î³ÌÐò£¬ÔÚvbÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£
´úÂëÈçÏ£º
VB code:

Private Function getFile_CMD(filename, filepath) As Bo ......

vb.net ´´½¨accessÊý¾Ý±íʵÏÖÒ»Êý¾Ý¿â¶à¸öÊý¾Ý±í£¿

Çë¸÷λָµãÏ£º³ÌÐò´úÂëÈçÏÂmingchen = "C:\Îļþ·¾¶\"
cat = New ADOX.Catalog
cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & min ......

vb Å£Âð - Web ¿ª·¢ / vbScript

vbÊDz»ÊǺÜÅ£°¡ ÔõôÄÇô¶àµÄ²¡¶¾¶¼ÊÇvb×öµÄ°¡ c#Ðв»ÐУ¿
c#ÔÚXPÔËÐв»ÁË£¬³ý·ÇÈñðÈËÏÈ×°ÉÏ.net.
VBÏà¶ÔÓÚC,C++,ASMµÈµÈ£¬¾ÖÏÞÐÔ´ó¶àÁË¡£

±ðÔÙ˵ʲôÓïÑÔ²»ÈçʲôÓïÑԵϰÁË£¬Ö»ÓÐÄã²»»áÓûòÓÃ×Ų»Ë³ÊÖµÄÓ ......

100·Ö£¡¹ØÓÚvbµ÷ÓÃdelphi±àдµÄdllµÄÎÊÌ⣬¼±£¡£¡£¡

¸÷λ¸ßÊָϿì°ï°ïæ¡£
ÏÖÔÚÓÐÒ»¸ödelphiдµÄdll£¬º¯ÊýÖÐÓÐPIntegerµÄ·µ»Ø²ÎÊý£¬ÔÚdelphiÖпÉÒÔÕý³£µ÷Ó㬵«ÊÇÎÒÔÚvbÀïдµÄʱºò¾Í²»ÖªµÀ¸ÃÔõôÀ´µ÷ÓÃÁË¡£
Çë¿´´úÂë
ÒÔÏÂÊÇdelphiÖеĺ¯Êý¶¨ÒåºÍµ÷ÓôúÂ룬ÄÜÕý³£ÔËÐ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ