ÌÖÂÛÒ»¸ö¶«Î÷×Üϲ»¶Õâ¸ö¶«Î÷ÊÇ´ó¼ÒÒÔÀ´À´Ì½Ìֵġ£ ÒòΪºÃ¾Ã²»ÉÏÍø¡£ÌØÊâÔÒò¡£ Íâ¼ÓVB6 ¾Ý˵ÊÇ98ÄêµÄ²úÎï¡£ÎÒÏëÎÊһϡ£ÏÖÔÚ»¹ÓÐÄÄЩÂÛ̳±È½ÏÈÈ¡£³ýCSDNÍâ¡£ ÎÒÊǸÕѧ ¼ÆËã»ú»ù´¡»¹Ëã²»´í°É¡£ ³ýÁËÕâ¸öVB6»¹ÓÐûÓÐÀàËƼòµ¥Ò»µãµÄ±à³ÌÓïÑÔ£¬Ö÷ÒªÓÃ;ÊÇ Æ½Ê±±àдһЩʵÓõŤ¾ß¡£¼ÙÈç˵Ïñ½Øͼ֮Àࣨµ±È»²»ÊÇÕâÖÖ´óÖÚ¹¤¾ßÊǸù¾ ......
ÎÒÓÃvb±à³Ì£¬ÆäÖÐÒ»¸öcombox¿Ø¼þµÄdataformat ÉèΪÈÕÆÚ£¬Èç2010-7-1£¬Êý¾Ý¿âÖÐÓиö×Ö¶ÎΪÈÕÆÚÐÍ£¬Ò²Èç2010-7-1£¬ÎÒÏëʵÏÖÔÚcomboxÑ¡ÖÐÒ»¸öÈÕÆÚÖ®ºó£¬Ö´ÐÐÓï¾ä£º
Adodc1.RecordSource = "select * from ÏúÁ¿Ä¿±ê where ʱ¼ä='Combo1.Text'"
Adodc1.Refresh
Ìáʾ´íÎ󣺱ê×¼±í´ïʽÖÐÊý¾ÝÀàÐͲ»Æ¥Åä
ÎÒÏëÊÇcombox ......
ÎÒÏëÓÃvbÖеijÌÐò²Ù×÷Ò»¸öÒÑÖªµÄwordÄ£°å£¬ÏëʵÏÖµÄÊÇ£º¿ÉÒÔ¶àÈË·Ö±ðÔÚ¸÷×ԵĻúÆ÷ÉÏͬʱ´ò¿ªÕâ¸öwordÄ£°å£¬È»ºó½øÐб༣¬¾ÍÏñÊÇÊý¾Ý¿âÒ»Ñù£¬¿ÉÒÔ¶àÈËͬʱ²Ù×÷£¬¿ÉÒÔʵÏÖÂð£¿
Õâ¸öÓ¦¸Ã²»¿ÉÒÔ°É
лл¥ÉϵĻشð¡£
......
Çë½Ì¸÷λ´ó´óÃÇ£º¼ÙÉè¾ÖÓòÍøÄÚÓÐA01¡¢B01¡¢C01µÈÓû§£¬ÏÖÔÚÏëÔÚ·þÎñÆ÷¶Ë£¨wind2003serv)ÓÃvbʵÏÖÈçϹ¦ÄÜ£££
1¡¢´´½¨Óû§£¬²¢¿ÉÒÔÉèÖÃÃÜÂë
2¡¢ÔÚij¸öĿ¼ÏÂÈ磺E£º\sharefilesÖн¨Á¢¼¸¸öÓëÓû§ÃûͬÃûµÄÎļþ¼Ð£¬²¢ÉèΪ¹²Ïí£»
3¡¢²¢ÉèÖÃȨÏÞΪ£ºA01Óû§Í¨¹ýÃÜÂëÖ»ÄÜ·ÃÎʲ¢ÄܶÁдA01Õâ¸öÎļþ¼ÐÖеÄÎļþ£»B01Óû§Í¨¹ýÃÜÂë ......
ÕâÑùÁ¬½ÓÊý¾Ý¿âÊǶԵÄ
VB code:
Dim conn As New ADODB.Connection
conn.Open "PROVIDER=SQLOLEDB;DATA SOURCE=116.28.49.177;USER ID=sa;PASSWORD=123456;DATABASE=data;"
ÕâÑù¾Í´íÁË£¬ÎªÊ²Ã´??????????????
VB code:
Dim conn As New ADODB.Connection
dim ip
ip="116.28.49.177"
c ......
ÎÒÏëʵÏÖÔÚ×ÀÃæ»Á½ÌõÏߺáÊúÁ½Ìõ¡£
ΪʲôÎÒÓÃlineto »³öÀ´µÄÆðʼµãÊÇ0£¬0 ¡££¿
Äܲ»ÄÜ×Ô¼ºÉèÖᣣ¿
Èç¹ûÊÇ»µÄÐéÏ߾͸üºÃÁË¡£
Èç¹ûÄÜÔÙÉèÖÃÏÂ͸Ã÷¶È¡£¡£¡£¡£¡£
ҪʵÏÖµÄЧ¹û¡£
ÔÚÆÁÄ»ÖÐÑ뻳öÒ»¸öÊ®×ÖµÄͼ°¸³öÀ´¡£
²»¹ÜÊÇʲôAPI ¡£
Ö»ÒªÄÜʵÏÖÕâ¸öЧ¹û¾Í³É¡£
ÓÃMoveToExÒÆ»±ÊλÖÃ
The MoveToEx function ......
×ܼǼÊý:1659; ×ÜÒ³Êý:277; ÿҳ6 Ìõ;
Ê×Ò³ ÉÏÒ»Ò³ [1] [2] 3
[4] [5] [6] [7] [8] [9] [10] ÏÂÒ»Ò³ βҳ