ÓÃ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¶Ë¿Ú
Ïà¹ØÎÊ´ð£º
ÎÒÓÃDelphiдÁËÒ»¸öDLL, DLLÀïÓÐMDIµÄ×Ó´°Ìå,DLL³õʼ»¯Ê± ´«µÝµ÷ÓÃÕßµÄTApplication¸øDLL, ÔÚDelphi7Öе÷ÓÃÒѾͨ¹ý,µ«ÊDz»ÖªµÀÔÚVBÖÐÓÐÎÞTApplication¶ÔÓ¦ÀàÐÍ, ÊÇ·ñÄÜÔÚVBÖе÷ÓÃ?
ÄãºÃ£¬ÓÃinstance²»ÊǾͿÉÒÔÁË ......
±ÈÈç½ø³Ì¼ÓÔØÐµijÌÐò¡£
ÔÚÆäÔËÐÐ֮ǰ×èÖ¹¡£
È»ºóÔÊÐíºó·ÅÐС£
±ÈÈç³ÌÐòÖ÷Îļþ·¾¶ÊÇc:\test\test.exe£¬½¨Á¢ÄÚÈÝÈÎÒâµÄÎļþc:\test\test.exe.manifest¡£
¾ÍÊDz»ÖªµÀ³ÌÐòÎļþ·¾¶¡£
ÉèÖ ......
vb½«winsock¿Ø¼þ·â×°µ½dllÎÊÌâ ÓÐʲôºÃµÄ˼·£¿ Èç¹ûÓÃSocket APIÄØ£¿
ÀýÈ磬ÏñÏÂÃæÕâÑù·â×°Winsock¿Ø¼þ£¬ÐеÄͨ£¿
´´½¨ActiveX dll£¬Ìí¼Ó´°ÌåfrmClient£¬¼ÓÈëWinSock¿Ø¼þwskClient¡£
Àà´úÂ룺
Option Expli ......
¿´ÁËһЩVB iniÎļþдÈë¶ÁÈ¡µÄ·½·¨ µ«ÊÇ»¹ÊDz»ÖªµÀÔõôд£¬ÉÏÃæÐ´Á˺ܳ¤ ºÜ¶à£¬µ«ÊÇÎÒ²»ÖªµÀÔõôÓã¬ÎÒÏëÎÊÒ»ÏÂÔõÑùд²ÅÄÜʵÏÖÔÚTEXT1ÖÐд×Ö£¬È»ºóµãCommand1Ìá½»£¬È»ºóTEXT1ÀïÃæµÄÊý×Ö¾Íд½øINIÀïÃæ[Section]µÄKey1 ......
ÔÚÏÂÊÇvbµÄÐÂÊÖ£¬Ïëд¶Î³ÌÐò£¬ÔÚvbÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£
´úÂëÈçÏ£º
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......