Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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;pwd=sa;"
ÖØÐ²âÊÔ»¹ÊÇÎÞ·¨Á¬½Ó¡£´íÎóÌáʾÈçÉÏ¡£

Á¬½ÓÓï¾äûʲôÎÊÌ⣬
1¡¢ÄÜping
2¡¢1433¶Ë¿Ú




Ïà¹ØÎÊ´ð£º

VBÖÐÓÐÎÞTApplication¶ÔÓ¦ÀàÐÍ

ÎÒÓÃDelphiдÁËÒ»¸öDLL, DLLÀïÓÐMDIµÄ×Ó´°Ìå,DLL³õʼ»¯Ê± ´«µÝµ÷ÓÃÕßµÄTApplication¸øDLL, ÔÚDelphi7Öе÷ÓÃÒѾ­Í¨¹ý,µ«ÊDz»ÖªµÀÔÚVBÖÐÓÐÎÞTApplication¶ÔÓ¦ÀàÐÍ, ÊÇ·ñÄÜÔÚVBÖе÷ÓÃ?
ÄãºÃ£¬ÓÃinstance²»ÊǾͿÉÒÔÁË&# ......

VBÈçºÎ×èֹij³ÌÐòÔËÐС££¿

±ÈÈç½ø³Ì¼ÓÔØÐµijÌÐò¡£

ÔÚÆäÔËÐÐ֮ǰ×èÖ¹¡£

È»ºóÔÊÐíºó·ÅÐС£


±ÈÈç³ÌÐòÖ÷Îļþ·¾¶ÊÇc:\test\test.exe£¬½¨Á¢ÄÚÈÝÈÎÒâµÄÎļþc:\test\test.exe.manifest¡£

¾ÍÊDz»ÖªµÀ³ÌÐòÎļþ·¾¶¡£

ÉèÖ ......

vbÄÜ·ñ°Ñwinsock¿Ø¼þ·â×°µ½dllÖÐ

vb½«winsock¿Ø¼þ·â×°µ½dllÎÊÌâ ÓÐʲôºÃµÄ˼·£¿ Èç¹ûÓÃSocket APIÄØ£¿
ÀýÈ磬ÏñÏÂÃæÕâÑù·â×°Winsock¿Ø¼þ£¬ÐеÄͨ£¿
´´½¨ActiveX dll£¬Ìí¼Ó´°ÌåfrmClient£¬¼ÓÈëWinSock¿Ø¼þwskClient¡£
Àà´úÂ룺
Option Expli ......

VB iniÎļþдÈë ¶ÁÈ¡ - VB / »ù´¡Àà

¿´ÁËһЩVB iniÎļþдÈë¶ÁÈ¡µÄ·½·¨ µ«ÊÇ»¹ÊDz»ÖªµÀÔõôд£¬ÉÏÃæÐ´Á˺ܳ¤ ºÜ¶à£¬µ«ÊÇÎÒ²»ÖªµÀÔõôÓã¬ÎÒÏëÎÊÒ»ÏÂÔõÑùд²ÅÄÜʵÏÖÔÚTEXT1ÖÐд×Ö£¬È»ºóµãCommand1Ìá½»£¬È»ºóTEXT1ÀïÃæµÄÊý×Ö¾Íд½øINIÀïÃæ[Section]µÄKey1 ......

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

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

Private Function getFile_CMD(filename, filepath) As Bo ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ