·Òë³Éc#£¬ÎÒ¶ÔvbʵÔÚÊDz»¶®!
VB code:
Public rsTemp As ADODB.Recordset
VB code:
If Objdata.ExecSelect(rsTemp, lcSQL, "") Then Exit Sub
If rsTemp.RecordCount > 0 Then
If Not IsNull(pArray) Then ReDim pArray(rsTemp.RecordCount - 1) As String
If Not IsNull( ......
VB code:
Set g_conn = Server.CreateObject("ADODB.Connection")
Dim ServerName As String, DBname As String, UserName As String, strPwd As String
Dim strDBPath As String
ServerName = "localhost"
DBname = "Ìâ¿â"
UserName = "sa"
s ......
rt
ʹÓÃtoolbar shelltreeview shelllistview splitter statusbar¿Ø¼þ¡£
ÍøÉÏÃâ·ÑµÄ³ÌÐò´ó°Ñ£¬Â¥Ö÷Ïë×Ô¼º×ö¸ö£¿
°ïÂ¥Ö÷¶¥Ò»Ï¡£¡£¡£¡£
ÎÒ֮ǰ×öÁ˸öexcel vba°æµÄ£¬Ö»ÊDz»»á×Ô¶¯Ë¢Ð£¬ÒªÊÖ¶¯Ë¢Ð¡£ÒòΪ¾Ý˵vbaÀïÃætimerºÍthread¶¼²»´óºÃ¸ã¡£
VBÖÆ×÷µÄ×ÊÔ´¹ÜÀíÆ÷:
http://code.ddvip.com/code.php?id=2040&a ......
ÎÒÏëͨ¹ývbµÄwinsockʵÏÖÒÔϵķþÎñÆ÷ºÍ¿Í»§¶Ë¹¦ÄÜ£¬¸ÄÁ˺ܶà´Î¿ÉÊÇ´úÂë×ÜÊÇÓÐÎÊÌ⣬ÄÄλÅóÓÑÄܰï°ïÎÒ°¡£¬×îºÃÓдúÂëʾÀý¡£
¹¦ÄÜÒªÇó£º
1. 1̨·þÎñÆ÷£¬¶¯Ì¬£¨0-20̨£©¿Í»§»ú£»
2. ·þÎñÆ÷Æô¶¯ºóµÈ´ý¿Í»§»úÁ¬½Ó£¬ÖмäÑéÖ¤Á¬½ÓÕý³£Óë·ñ²½ÖèÈô¸É£¬Ò»µ©Õý³£½¨Á¢Á¬½ÓÔòÒÔ1HzµÄƵÂʲ»¼ä¶ÏÏòÿ̨¿Í»§»ú·¢ËÍÏàͬµÄÐÅÏ¢£ ......
ÎÒÏëͨ¹ývbµÄwinsockʵÏÖÒÔϵķþÎñÆ÷ºÍ¿Í»§¶Ë¹¦ÄÜ£¬¸ÄÁ˺ܶà´Î¿ÉÊÇ´úÂë×ÜÊÇÓÐÎÊÌ⣬ÄÄλÅóÓÑÄܰï°ïÎÒ°¡£¬×îºÃÓдúÂëʾÀý¡£
¹¦ÄÜÒªÇó£º
1. 1̨·þÎñÆ÷£¬¶¯Ì¬£¨0-20̨£©¿Í»§»ú£»
2. ·þÎñÆ÷Æô¶¯ºóµÈ´ý¿Í»§»úÁ¬½Ó£¬ÖмäÑéÖ¤Á¬½ÓÕý³£Óë·ñ²½ÖèÈô¸É£¬Ò»µ©Õý³£½¨Á¢Á¬½ÓÔòÒÔ1HzµÄƵÂʲ»¼ä¶ÏÏòÿ̨¿Í»§»ú·¢ËÍÏàͬµÄÐÅ ......
OA°ì¹«ÏµÍ³°ÑÒ»¸öÆóÒµµÄ°ì¹«×ÊÔ´Á¬½Ó³ÉÒ»¸öÕûÌå¡£Èç¹û´ÓOAÀï·¢³öµÄ֪ͨ¡¢ÐÅÏ¢¡¢ÉóÅúÎļþ²»Äܼ°Ê±µÄÈÃͬʽÓÊյϰ£¬°ì¹«×Ô¶¯»¯½«³ÉΪ¿Õ̸¡£³ýÁËÔÚOAÈí¼þÀï¼ÓÈ뼴ʱͨѶ¡¢Óʼþ¹ÜÀíÖ®Í⣬×îÖ±½ÓÓÐЧµÄ¾ÍÊǸúÊÖ»ú¶ÌÐŽáºÏ¡£ÈÃ֪ͨÔÚµÚһʱ¼äµ½´ï½ÓÊÜÈËÔ±µÄÊÖ»úÉÏ¡£
Êý·ÉOAÊÖ»ú¶ÌÐŲ»µ¥ÊµÏÖ´ÓOAÀ ......