ÓйØACCESSÊý¾Ý¿âµÄÁ½¸öСÎÊÌâ - VB / »ù´¡Àà
1.ÿÕűí¿ÉÒÔ½¨Á¢¶àÉÙ¸ö×Ö¶Î
2.Ôõôдһ¸ösqlÓï¾ä½«Ä³¸ö×ֶζ¨ÒåΪ£¬¡°ÊÇ¡±£¬¡°·ñ¡±ÀàÐÍ
(1)ºÜ¶àºÜ¶à¡£
(2)ʹÓÃbitÀàÐÍ¡£
1.ÿÕűí¿ÉÒÔ½¨Á¢¶àÉÙ¸ö×Ö¶Î
Ó¦¸ÃÊÇ255¸ö
2.Ôõôдһ¸ösqlÓï¾ä½«Ä³¸ö×ֶζ¨ÒåΪ£¬¡°ÊÇ¡±£¬¡°·ñ¡±ÀàÐÍ
BIT
1£¬µ¥ÕűíµÄ×ֶθöÊýÏÞÖÆÊÇ255
2£¬ACCESSÖÐÊÇ¡°ÊÇ/·ñ¡±ÀàÐÍ£¬SQLÖÐÊÇbitÀàÐÍ
1.ÿÕűí¿ÉÒÔ½¨Á¢¶àÉÙ¸ö×Ö¶Î
±íÖÐ×ֶεĸöÊý 255
2.Ôõôдһ¸ösqlÓï¾ä½«Ä³¸ö×ֶζ¨ÒåΪ£¬¡°ÊÇ¡±£¬¡°·ñ¡±ÀàÐÍ
isFinished yesno
Â¥ÉϵĿ϶¨ÊÇVBÅ£ÈË¡£ÏñÄãѧϰ¡£··
×Ö¶ÎÊýÁ¿ÓÐÏÞ£¬µ«¾ßÌå¶àÉÙ¸ö£¬ÎÒ»¹Õæ²»ÖªµÀ
¶¨ÒåÒ»¸ö²¼¶ûÐεļ´¿É
Ïà¹ØÎÊ´ð£º
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......
ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£
²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°
Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
vbÖÐ ÏÖÔÚÎÒÒª°ÑÊý¾Ý¿âÀï´æ´¢µÄÒ»¸ö¸½¼þµÄÄÚÈÝÌæ»»ÁË£¬Ôõô×ö£¬Ö»ÊÇÌæ»»ÎÒÖ¸¶¨µÄλÖ㬲»ÊÇÈ«²¿Ìæ»»
Ç뽫ÎÊÌâ˵Ã÷°×£¬´æ´¢×ֶθñʽ£¬Èç¹ûÊÇBinary¸ñʽµÄ±È½ÏÂé·³£¬Èç¹ûÊÇ×Ö´®£¬Ö±½ÓÌæ»»¡£×îºÃ²»Òª½øÐÐÖ¸¶¨Î»ÖÃÌæ»»¡ ......
ÎÒÁ¬½ÓaccessÊý¾Ý¿â£¬ÒÔǰһֱºÜºÃ£¬×î½üÈ´×ÜÊdzö´í£¨Êý¾Ý¿âÁ¬½Ó³ö´í!£¡£©£¬´úÂëÈçÏ£º
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&" ......