³ÌÐòÖдò¿ªAccessÎļþÅ×Òì³££¡ - .NET¼¼Êõ / VB.NET
Dim appAccess As Access.Application '´ò¿ªD:DB1.MDBÎļþ²¢´´½¨Ò»¸ö´°ÌåÖ®ºó¹Ø±Õ Const strConPathToSamples = "D:" Dim frm As Form, strDB As String '°ÑÎļþ·¾¶¸³¸ø±äÁ¿ strDB = strConPathToSamples & "\db1.mdb" ' ´´½¨Ò»¸öеÄAccess¶ÔÏó appAccess = CreateObject("Access.Application") ' ´ò¿ªÖ¸¶¨µÄAccessÎļþ appAccess.OpenCurrentDatabase(strDB) ---- Ö´Ðе½Õâ¾äÊdzöÏÖÒì³££º ¸ÃÎļþ±»±£»¤£¬ ²»ÄܽøÐжÁд²Ù×÷£¡
ÊDz»ÊÇÄãÒѾÓÃoffice ´ò¿ªÁËaccess? ²»¿ÉÄܰ¡£¬ ûÓÐÒýÓà ÊDz»ÊÇÄãÒѾÓÃoffice ´ò¿ªÁËaccess? Ó¦¸ÃÊÇAccessÊý¾Ý¿â±»´ò¿ªÁË£¬¹Ø±ÕAccess¾Í¿ÉÒÔÁË¡£ {{
Ïà¹ØÎÊ´ð£º
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......
vbÖÐ ÏÖÔÚÎÒÒª°ÑÊý¾Ý¿âÀï´æ´¢µÄÒ»¸ö¸½¼þµÄÄÚÈÝÌæ»»ÁË£¬Ôõô×ö£¬Ö»ÊÇÌæ»»ÎÒÖ¸¶¨µÄλÖ㬲»ÊÇÈ«²¿Ìæ»» Ç뽫ÎÊÌâ˵Ã÷°×£¬´æ´¢×ֶθñʽ£¬Èç¹ûÊÇBinary¸ñʽµÄ±È½ÏÂé·³£¬Èç¹ûÊÇ×Ö´®£¬Ö±½ÓÌæ»»¡£×îºÃ²»Òª½øÐÐÖ¸¶¨Î»ÖÃÌæ»»¡ ......
¸Õ½¨ÁËÒ»¸öȺ:ÖÐɽVB±à³Ì(105787219) ÓÐÔÚÖÐɽ¼°ÖÐɽÖܱߵijÌÐòÔ±Çë¼ÓÈë.´ó¼ÒÒ»Æð̽ÌÖÎÊÌâ.ºÏ×÷ÏîÄ¿. ¾¡¹Ü°³²»ÊÇÖÐɽµÄ£¬Ò²½øÀ´²ä·Ö¡¡ ·ðɽµÄÐÐÂð,¹ãÖݵÄÐÐÂð? ÓÑÇéÖ§³Ö »Ø¸´ÄÚÈÝÌ«¶ÌÁË£¡ °ï¶¥ ......
ËÄܰïÎÒ°ÑÏÂÃæÕâЩ´úÂë¸Ä³ÉVBÐÎʽµÄ£¬¶àлÁË£¬¼±ÓÃ~~ #include "stdlib.h" #include "math.h" #include "stdio.h" float objfx(float x[]); void constraint(float x[],float g ......
ͦ·±Ëö£¬Ö®Ç°·¢µÄÌû×Ó£¬·Öֵ̫µÍÏÖÔÚÖØ·¢Ò»¸ö¡£»¶Ó¸÷λ´óÏÀ~~ #include "stdlib.h" #include "math.h" #include "stdio.h" float objfx(float x[]); void constraint(float x[] ......