VB³ÌÐòÖÐÓÃADO¶ÔÏó¶¯Ì¬´´½¨Êý¾Ý¿âºÍ±í
ÕªÒª£º ±¾ÎIJûÊöÁËÔÚVB³ÌÐòÖÐÀûÓÃADO¶ÔÏó¶¯Ì¬´´½¨Êý¾Ý¿âºÍÊý¾Ý±íµÄ·½·¨£¬ÕâЩ·½·¨ÔÚ¿ª·¢VBÊý¾Ý¿âÓ¦ÓóÌÐòÖкÜÓÐʵÓüÛÖµ£¬Ëü¿ÉÒÔÌá¸ßÊý¾Ý¿â³ÌÐòÁé»îÐÔ¡£
¡¡¡¡¹Ø¼ü´Ê£ºÊý¾Ý¿â¡¢Êý¾Ý±í¡¢ADO¡¢ADOX
¡¡¡¡1: ÎÊÌâµÄÌá³ö
¡¡¡¡ÔÚVisual BasicÖУ¬³£ÓõÄÊý¾Ý·ÃÎʽӿÚÓÐÏÂÁÐÈýÖÖ£ºÊý¾Ý¿â·ÃÎʶÔÏó(DAO£¬Data Access Object)¡¢Ô¶³ÌÊý¾Ý¿â¶ÔÏó(RDO£¬Remote Data Object)ºÍActiveXÊý¾Ý¶ÔÏó(ADO£¬ActiveX Data Object )¡£Êý¾Ý¿â·ÃÎʼ¼ÊõÒ»Ö±ÔÚ²»¶Ï½ø²½£¬¶øÕâÈýÖÖ½Ó¿ÚµÄÿһÖÖ¶¼·Ö±ð´ú±íÁ˸ü¼ÊõµÄ²»Í¬·¢Õ¹½×¶Î¡£×îеÄÊÇADO£¬ËüÊDZÈRDOºÍDAO¸ü¼Ó¼òµ¥£¬È»¶ø¸ü¼ÓÁé»îµÄ¶ÔÏóÄ£ÐÍ¡£ÕýÒòÈç´Ë£¬Ô½À´Ô½¶àµÄÈËÔÚÓÃVB¿ª·¢Êý¾Ý¿âÈí¼þʱʹÓÃADO×÷ΪÊý¾Ý·ÃÎʽӿڡ£ÔÚ¿ª·¢¹ý³ÌÖУ¬ÎÒÃÇͨ³£µÄʹÓõķ½·¨ÊÇ£ºÏÈʹÓÃÊý¾Ý¿â¹ÜÀíϵͳ(ÀýÈ磺Microsoft Access)»òVBÖеĿÉÊÓ»¯Êý¾Ý¹ÜÀíÆ÷½¨Á¢ºÃÊý¾Ý¿âºÍÊý¾Ý±í½á¹¹£¬È»ºóÔÚ³ÌÐòÖÐͨ¹ýʹÓÃADODCÊý¾Ý¿â¿Ø¼þ»òÒýÓÃADO¶ÔÏóÓëÊý¾Ý¿âÖÐµÄ±í½¨Á¢Á¬½Ó£¬ÔÙͨ¹ýÊý¾Ý¿â¸ÐÖª¿Ø¼þ(ÀýÈ磺Îı¾¿ò¡¢DataGridµÈ)À´½øÐÐÊý¾Ý¿âµÄ¸÷ÖÖ²Ù×÷¡£ÔÚÕâÖÖ¿ª·¢¹ý³ÌÖУ¬ÎÒÃÇÓÐʱÐèÒªÃæ¶ÔÕâÑùÒ»¸öÎÊÌ⣺ÈçºÎÈÃÓû§ÔÚ³ÌÐòÔËÐйý³ÌÖж¯Ì¬µØ½¨Á¢×Ô¼ºËùÐèµÄÊý¾Ý¿âºÍÊý¾Ý±íÒÔÌá¸ß³ÌÐòµÄÁé»îÐÔÄØ£¿ÔÚ³ÌÐòÔËÐйý³ÌÖн¨Á¢×Ô¼ºËùÐèµÄÊý¾Ý¿âºÍÊý¾Ý±í£¬Æä±¾ÖʾÍÊÇÓôúÂë(»òÕß˵ͨ¹ý±à³Ì)À´½¨Á¢Êý¾Ý¿âºÍÊý¾Ý±í¡£ÖÚËùÖÜÖª£¬ÔÚFoxpro»òASP±à³ÌÖУ¬ÕâÊǺÜÈÝÒ×µÄÒ»¼þʼþ¡£ÄÇôÔÚVBÊý¾Ý¿â±à³ÌÖÐÓÖÊÇÔõÑùÀ´²Ù×÷µÄÄØ£¿ÔÚVBÊý¾Ý¿â±à³ÌÖУ¬Èç¹ûʹÓÃDAO×÷ΪÊý¾Ý¿â·ÃÎʽӿڼ¼Êõ£¬Ôò¿ÉÒÔÓÃCreateDatabase½áºÏCreateTableDef·½·¨À´ÊµÏÖ£¬Ä¿Ç°ÒÑÓв»ÉÙÊéºÍÔÓÖ¾¶¼½²µ½ÁËÕâÖÖ·½·¨£¬±¾ÎľͲ»ÔÙ½²ÊöÁË£»µ«ÄãÈç¹ûʹÓõÄÊÇ×îеÄÊý¾Ý¿â·ÃÎʽӿڼ¼ÊõADO£¬ÄãÈ´·¢ÏÖÄ¿Ç°µÄÊéºÍÔÓÖ¾ÉÏûÓÐÎÄÕ½²µ½ÈçºÎÓôúÂëÀ´½¨Á¢Êý¾Ý¿âºÍÊý¾Ý±íµÄ·½·¨£¬¿ÉÓÐʱÎÒÃǷdz£ÐèÒªÓõ½ÕâÖÖ·½·¨£¬ÏÂÃæÎÒÃǾÍÀ´½â¾öÕâ¸öÎÊÌâ¡£
¡¡¡¡2: ADOÓëADOX
¡¡¡¡ÎÒÃÇÏÈÀ´¶ÔADO ºÍADOX½øÐмòµ¥µÄÈÏʶ¡£ÔÚVB6ÖУ¬Ê¹ÓÃADO¿ª·¢Êý¾Ý¿âÓ¦ÓóÌÐòʱ£¬ÎÒÃÇÒªÒýÓöÔÏó¿â"Microsoft ActiveX Data Objects 2.5 Library"£¬ Õâ¸ö¶«Î÷µÄ¼ò³Æ¾ÍÊÇADO£¬ËüÊÇVB6Êý¾Ý¿â×îºËÐĵĶÔÏóȺ£¬Ò²ÊÇVBÊý¾Ý¿â¿ª·¢ÈËÔ±¾³£ËùÒýÓõĶÔÏó¿â£¬ÔÚVB6ÖÐÄã¿ÉÒÔ¿´µ½ËüµÄ¸÷ÖÖ°æ±¾£¬´Ó2.0°æµ½2.6°æ¶¼ÓУ¬ºÜ¶àÈ˶ÔËüÒѾºÜÊìϤ£¬ÔÚ´ËÎÒÃDz»ÔÙÏêϸ½éÉÜ¡£Èç¹ûÒªÔÚ³ÌÐòÔËÐйý³ÌÖд´½¨Êý¾Ý¿âºÍ±í£¬ÎÒÃÇ»¹ÒªÒýÓöÔÏó¿â"Microsoft ADO Ext 2.1. For DDL Security"£¬¼ò³
Ïà¹ØÎĵµ£º
°ÑÊó±êÒƵ½ÆÁĻָ¶¨Î»Öà È磨111.111£© µ¥»÷Ò»ÏÂ
ÔÙÒƵ½ÆÁÄ»ÁíÒ»Ö¸¶¨Î»ÖÃÖ¸¶¨Î»Öà È磨222.222£©µ¥»÷Ò»ÏÂ
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Private Declare Function SetCursorPo ......
ASP.NetÖÐʹÓÃVB.Netµ÷Óô洢¹ý³Ì²¢µÃµ½·µ»ØÖµ
À´Ô´£ºqqreadÂÛ̳ ×÷Õߣº ³ö´¦£ºÇÉÇɶÁÊé 2006-08-03 ½øÈëÌÖÂÛ×é
//´æ´¢¹ý³Ì´úÂë
¡¡CREATE PROCEDURE [AddNewInvoiceInfo] (@sUserID int,@sClaimMethod varchar(50),@sInvoiceNum ¡¡varchar(50),@sInvoiceDate datetime,@sBuyCity varchar(50))AS
¡¡Insert Into SMB_In ......
дÁËÒ»¸övbµÄ³ÌÐò£¬ÓÃÀ´°ÑÔÀ´Ð´µÄ¼¸¸övbºÍvcµÄ³ÌÐòÕûºÏÆðÀ´¡£¾ÍÊÇʹÓÃShellº¯Êý¡£½á¹û·¢ÏÖ£¬vcµÄ³ÌÐò¿ÉÒԺܺõÄÏÔʾ£¬µ«vbдµÄÈ´Ò»ÔËÐоÍ×îС»¯ÁË¡£×Ðϸ²é¿´ÁËÒ»ÏÂÒÔÏÂÎÄÕ£¬²Å·¢ÏÖÔÀ´shellº¯ÊýµÄĬÈÏÏÔʾģʽÊÇwindowstyleÊǵÈÓÚvbMinimizedFocus¡£È»ºó¾ÍÊÇÖ±½Ó¼ÓÉÏÒ»¸övbNormalFocus¡£Ò»ÇÐok!
vbµÄs ......
vbʹÓÃopen·½·¨¶ÁдÎļþ
£¨Ò»£©´ò¿ªºÍ¹Ø±ÕÎļþ
¡¡¡¡1¡¢Ë³ÐòÎļþ
¡¡¡¡´ò¿ªË³ÐòÎļþ£¬ÎÒÃÇ¿ÉÒÔʹÓÃOpenÓï¾ä¡£ËüµÄ¸ñʽÈçÏ£º
Open pathname For [Input |Output |Append] As [#]filenumber [Len = buffersize]
¡¡¡¡ËµÃ÷£º
¡¡¡¡£¨1£©²ÎÊýpathname ±íʾҪ´ò¿ªµÄÎļþÃû£¬ÎļþÃû¿ÉÒÔ°üº¬ÓÐÇý¶¯Æ÷ºÍÄ¿ ......
VBÏÂÈçºÎ±àдCRCУÑé³ÌÐò
¡¡¡¡Ëæ׿ÆËã»ú¼¼ÊõµÄ²»¶Ï·¢Õ¹£¬ÔÚÏÖ´ú¹¤ÒµÖУ¬ÀûÓÃ΢»ú½øÐÐÊý¾ÝͨѶµÄ¹¤Òµ¿ØÖÆÓ¦ÓõÃÒ²Ô½À´Ô½¹ã·º¡£ÓÉÓÚ´«Êä¾àÀë¡¢ÏÖ³¡×´¿öµÈÖî¶à¿ÉÄܳöÏÖµÄÒòËØÓ°Ï죬¼ÆËã»úÓëÊÜ¿ØÉ豸֮¼äµÄͨѶÊý¾Ý³£»á·¢ÉúÎÞ·¨Ô¤²âµÄ´íÎó¡£ÎªÁË·ÀÖ¹´íÎóËù´øÀ´µÄÓ°Ï죬һ°ãÔÚͨѶʱ²ÉÈ¡Êý¾ÝУÑéµÄ°ì·¨£¬¶øÑ»·ÈßÓàÂëУ ......