Çë½Ì¶ÁÈ¡Êý¾Ý¿âAccessÖÐOLE×ֶμǼµÄÎÊÌâ
¶ÁÈ¡Êý¾Ý¿âAccessÖÐOLE×ֶεÄÒ»Ìõ¼Ç¼£¨wordÎļþ£©Ê±£¬»áÉú³ÉÒ»¸öwordÎļþ¡£Òª¶ÁÈ¡ÏÂÒ»Ìõ¼Ç¼£¬±ØÐëÏÈÓÃÏÂÃæµÄ´úÂ룺
Kill App.Path & "\ÌâÄ¿.doc"
ɾ³ýwordÎļþ£¬·ñÔò¶Áȡʧ°Ü£¬ÕâÑùºÜ²»·½±ã£¬ÓÐûÓнâ¾öÕâ¸öÎÊÌâ·½·¨£¿
×¢Ò⣬ÊÇAccessÊý¾Ý¿â¡£
¾ÍÊǶÁÈ¡ÁËÒ»Ìõ¼Ç¼£¬½Ó×ŶÁÈ¡ÏÂÒ»Ìõ¼Ç¼ÁË..........
¸ßÊÖÇë½øÀ²£¡
¸ÉÂïҪɾ£¬¿ÉÒÔ½¨Á¢Ò»¸öcacheĿ¼£¬½«Éú³ÉµÄÎļþ·Åµ½ÕâÀï¡£
Ëæ»úÓøöÎļþÃû¡£
ÎÒÓõÄÊÇÈçÏ´úÂ룬ÔÚ¶ÁÈ¡ÁËÒ»Ìõ¼Ç¼ºó£¬ÔÙ¶ÁÈ¡ÏÂÒ»Ìõ¼Ç¼ʱ£¬»áÌáʾ¡°Ð´ÈëÎļþʧ°Ü¡±£º
Private Sub tk_ReadFile()
Set tm_Stm = New ADODB.Stream
With tm_Stm
.Mode = adModeReadWrite
.Type = adTypeBinary
.Open
.Write Rs("ÌâÄ¿")
.SaveToFile App.Path & "\tm.doc"
End With
With OLE1
.SourceDoc = App.Path & "\tm.doc"
.Action = 1 '´ÓÎļþµÄÄÚÈÝÖд´½¨Á´½Ó¶ÔÏó
End With
End Sub
3Â¥µÄÐв»Í¨£¬2Â¥µÄÒâ˼ÎÒ²»¶®À²£¬Ïêϸµã£¡
ɾ³ýÒ»ÏÂÒ²²»·ÑʲôÊ£¬ÎªÊ²Ã´Òª¸Ä±äÄØ£¿
¼ÓÁËÏÂÃæµÄ´úÂ룬Á
Ïà¹ØÎÊ´ð£º
ACCESSÊý¾Ý¿âÖÐÓÐÒ»¸ötablename±í£¬Éè¼ÆÈçÏÂ
±àºÅ,ÊéÃû,×÷Õß,³ö°æÊ±¼ä,³ö°æÉç,ISBN,Ŀ¼,¼ò½é
ÆäÖгý¡°±àºÅ¡±Îª×Ô¶¯±àºÅÍ⣬ÆäËü¶¼Îª¡°±¸×¢¡±
ÆäÖÐ"±àºÅ"άһ£¬ÔÚ¡°ISBN¡±ÖÐÓеÄΪ¿ÕÖµ£¬ ......
Êý¾Ý¿âÁ¬½ÓÌáʾÈçϱ¨´í£¬¿´µÄ³öÀ´ÊÇÒ³ÃæÓëÊý¾Ý¿âÁ¬½ÓµÄÎÊÌ⣬ÏÖÔÚÎÒµÄÊÇÏà¶ÔÁ¬½Ó¡£
ÒªÔõô½«Æä¸Ã³É¾ø¶ÔÁ¬½ÓÄØ£¿ÎÒµÄÊý¾Ý¿âÎļþ·¾¶ÔÚ£º
D:\web\db
»¹ÊÇÒªÏÈлл´óÈËÃǰïÖúС°×²ËÎÒ
Microsoft O ......
ÎÒĿǰ±íµÄÅÅÁÐÊÇÉÏÃæÕâÕÅͼÕâÇé¿ö£º
ÎÒÏ£Íûµ÷Õû³É£º
ÈçºÎ×öÄØ£¿
¸Õ²ÅÊÔÁËÏ£¬µã¡°¿ªÊ¼¡±--¡°ÊÓͼ¡±--¡°Éè¼ÆÊÓͼ¡±²»ÐÐ
PS£ºÎÒÓõÄÊÇaccess 2007£¬ÉÏÃæÕâ¸ö±íÊÇmdb¸ñʽµÄ
Ö÷²Ëµ¥£¬ ÊÓͼ ......
DbgridÁ¬½Óaccess ÏÔʾÊý¾ÝʱÍ϶¯¹ö¶¯ÌõËÀ»ú£¿Ôõô½â¾ö°¡£¿
»úÆ÷Ì«²îÁ˰ɣ¿
ÊDz»ÊÇÄãÊý¾ÝÁ¿Ì«´óÁ˰¡
ÄãÊý¾ÝÉÙһЩ¿´¿´»¹ËÀ»úÂð£¿
Êý¾ÝºÜÉÙ°¡ ¾ÍÒ»Ò³¡£
ÎÒÔÚBCB6ÏÂ×ö¹ý²»ÉÙ DBGRID+ACCESS £¬´ÓÀ´Ã»ÓÐÓöµ½ ......
ÔÚ°¢ÅÁÆæµÄweb access logÖУ¬ÓÐÒ»¸öÊÇÓû§ÃûÑ¡ÏĬÈÏÊÇÓòÓû§Ãû¡£Èç¹ûÎÒÓõÄÊÇform ·½Ê½µÇ½£¬Ïë°ÑÕâ¸öÓû§Ãûдµ½access logÖÐÔõôʵÏÖ£¿
Â¥Éϵģ¬ ÏÖÔÚµÄaccess log ÊÇÕâÑùµÄ
2009-07-04 02:16:37 110.110 ......