VB5 »P¸ê®Æ®wµ{¦¡³]­p


¦p¦óÂê©w¤@µ§¸ê®Æ¿ý(record) ©Î¬O¤@­Ó¸ê®Æªí(Table)¡H(12/31/97 ¸É¥R»¡©ú)

°Ñ¾\³¹¸`¡G13-1 ¸`¡Ap.410¡C
¥»®Ñ¦b p.410 ´¿¸g¤¶²Ð¡u¦p¦ó±N¸ê®Æ®w¶}±Ò¦¨¿W¦ûªº¸ê®Æ®w¡v¡A ¦ý¬O§_¥i¥HÂê©w¬Y¤@µ§¸ê®Æ¿ý(¦]¬°¼g¤J¸ê®Æ®É¡A ­n¨¾¤î¥t¤@­Óµ{¦¡¤]¼g¤J¸ê®Æ¦Ó¥X²{¸ê®Æ¤£¤@­Pªº²{¶H)¡A ©ÎÂê©w¬Y¤@­Ó¸ê®Æªí(¤j¶q§ó·s¸ê®Æ®É¡A °®¯Ü¸T¤î¨ä¥Lµ{¦¡¨Ï¥Î¦¹¤@¸ê®Æªí)¡H


¤@¡BÂê©w¸ê®Æ¿ý¡G

    ³o­Ó°ÝÃD¡A VB ¸ê®Æ®w¤w¸gÀ°§Ú­Ì³]·Q¨ì¤F¡A ·í¬Y¤@­Óµ{¦¡©I¥s¤F Edit ¤èªk¤§«á(ªí¥Ü­n¼g¤J¸ê®Æ)¡A ¦b³o­Óµ{ÁÙ¨S¦³©I¥s Update(½T©w§ó·s¸ê®Æ) ©Î©I¥s CancelUpdate(¨ú®ø§ó·s¸ê®Æ) ¤§«e¡A¸ê®Æ¿ý¬O¤@ª½Âê©wªº¡A©Ò¥H¦bµ{¦¡ªº¼¶¼g¤W¡A §Ú­Ì¨Ã¤£»Ý­n¯S§OÂê©w¬Y¤@¸ê®Æ¿ý¡C

    ¸É¥R»¡©ú(12/31)¡G¦b mdb ªº¤º³¡¸ê®Æµ²ºc¤W¡A Àx¦s¸ê®Æ¬O¥H Page ¬°³æ¦ì¡A¦]¦¹¡uÂê©w¸ê®Æ¿ý¡v¯u¥¿ªº§@ªk¬OÂê©w Page¡A ¥Ø«e mdb ¤@­Ó Page ªº¹w³]­È¬O 2K(¥i¯à§t¦³¤@¨ì¦hµ§¸ê®Æ¿ý)¡A ³oªí¥Ü¦pªG¦b³QÂê©wªº 2K ¸ê®Æ¤¤§t¦³ 5 µ§¸ê®Æ¿ý¡A ¨º»ò©I¥s Edit ¤§«á¡A ´N¦P®É¦³ 5 µ§¸ê®Æ¿ý³QÂê©w¡A³o¤]ªí¥Ü§Ú­Ì¥uÀ³¸Ó¦b§Y±N¼g¤J¸ê®Æ®É¡A ¤~©I¥s Edit¡A ¤£­n¦b©I¥s Edit ¤§«á¡A ¤S°õ¦æ¤@¤j°ï»P¸ê®Æ¼g¤J¤£¬ÛÃöªº°Ê§@¡C

¤G¡BÂê©w¸ê®Æªí¡G

    ·Q­nÂê©w¸ê®Æªí¡A ¥i¦b OpenRecordset ¶}±Ò¸ê®Æªí®É¡A ¼W¥[¤@­Ó°Ñ¼Æ¡A ¦p¤U¡G

      Set rs = db.OpenRecordset( "¸ê®Æªí¦WºÙ", dbOpenDynaset, dbDenyWrite )
      Set rs = db.OpenRecordset( "¸ê®Æªí¦WºÙ", dbOpenDynaset, dbDenyRead )
      Set rs = db.OpenRecordset( "¸ê®Æªí¦WºÙ", dbOpenDynaset, dbDenyWrite+dbDenyRead  )

    µù(1)¡GdbDenyWrite ªí¥Ü¸T¤î¨ä¥Lµ{¦¡¼g¤J¸ê®Æ¨ì¦¹¤@¸ê®Æªí¡A dbDenyRead ªí¥Ü¸T¤î¨ä¥Lµ{¦¡Åª¨ú¦¹¤@¸ê®Æªíªº¸ê®Æ¡A dbDenyWrite+dbDenyRead «hªí¥Ü¦P®É¸T¤î¼g¤J¤ÎŪ¨ú¡C

    µù(2)¡G¦³Ãö OpenRecordset ªº«e¨â­Ó°Ñ¼Æªº·N¸q½Ð°Ñ¾\®Ñ¥»ªº»¡©ú¡C