¹ØÓÚ²Ù×ÝaccessÊý¾Ý¿â
ÊDz»ÊÇÄÜÏñ²Ù×÷sqlÊý¾Ý¿âÒ»Ñù²Ù×Ýaccess £¿
SQL code:
A£ºÐèÅäODBCÊý¾ÝÊý¾ÝÔ´
*---------------------------
&&ODBCµÄÅäÖÆ·½·¨ÔÚÕâÀï²»ÔÙ½éÉÜ£¬ÒÔÏÂfinger3ΪÊý¾ÝÔ´Ãû
nhandle=SQLConnect("finger3",'','ÃÜÂë')
If nhandle<0
Messagebox("Êý¾Ý¿âÁ¬½Óʧ°Ü£¡£¡£¡",16, '´íÎóÐÅÏ¢')
Return
Else
Ac=SQLExec(nhandle,"Select * from worker_info","Temp1")
If Ac<0
Messagebox("¶ÁÈ¡Êý¾Ý´íÎó£¡",16, '´íÎóÐÅÏ¢')
Return
Endif
Select Temp1
Browse
Endif
B£ºÎÞÐèÅäODBCÊý¾ÝÊý¾ÝÔ´£¬¼´ÓÃ×Ö·û´®·½Ê½Á¬½Ó
*-------------------------------
nhandle=Sqlstringconnect("Driver={Microsoft Access Driver (*.mdb)};dbq=c:\test.mdb;pwd=") &&pwdΪÊý¾Ý¿âÃÜÂëÏî
If nhandle<=0
Messagebox("Êý¾Ý¿âÁ¬½Óʧ°Ü£¡£¡£¡",16, '´íÎóÐÅÏ¢')
Return
Else
Ac=SQLExec(nhandle,"Select * from worker_info","Temp1")
If Ac<0
Messagebox("¶ÁÈ¡Êý¾Ý´íÎó£¡",16, '´íÎóÐÅÏ¢')
Return
Endif
Select Temp1
Browse
Endif
Õâ¸öºÃ
ÎÒÒ²ÊÔÊÔ
Ïà¹ØÎÊ´ð£º
CREATE TABLE Product(model integer,
maker varchar(20),
CONSTRAINT SAND PRIMARY KEY (model),
CONSTRAINT PANDA FOREIGN KEY (model) REFERENCES PC (model)
ON DELETE CASCADE ......
Çë´óÏÀÖ¸µã£¬¹òлÁË£¬×îºÃÓдúÂë
ÒªÓõ½ADOX¶ÔÏ󣬲éϰïÖúÎĵµ£¬
http://hyadliujing.blog.163.com/blog/static/4484507420091020969233/?mode=edit
ûÓÐÕÒµ½°¡ ¿´ÁËÄãµÄ²©¿ÍÁË£¬ÎÒÊÇÏ뽫accessÀïÃæµÄ¸½¼þ±£´æ ......
ÎÊÌ⣱
ÎÒÓÃADOÁ¬½ÓÉèÁËÓû§ÃûÃÜÂëµÄÊý¾Ý¿â
µ«ÊÇÎÒ·¢ÏÖÎÒ²»ÊäÈë Óû§ÃûºÍÃÜÂë ¶¼¿ÉÒÔÁ¬½Ó³É¹¦ ¶øÇÒ»¹ÄܰÑÊý¾Ý¶Á³öÀ´
¼ôÁËÒ»¸öÃûΪtestÊý¾Ý¿â ½¨ÁËÒ»¸öÃûΪpeopleµÄ±í
¼ûÁËÒ»¸ö Óû§Ãû1234 ÃÜÂë1234 µÄ ......
±í½á¹¹:
table1
Ö¤¼þºÅ ʱ¼ä
X31 2010-01-11
3BC 2010-02-03
3AD 2010-02-03
F23 2010-02-09
......
ÏÖÔÚҪͳ¼ÆÒ»¸öʱ¼ä¶ÎÈç 2010-01-09 µ½ 2010-02-09¼äµÄÊý¾Ý,
ÆÚ´ý½ ......
¸Õ¸Õ½Ó´¥VB.NET£¬¶Ô.NET»ù±¾Ê²Ã´Ò²²»¶®£¬Çë¸ßÊÖ¸øÒ»¶Î½ÏÍêÕû´´½¨accessÊý¾Ý¿âµÄʾÀý´úÂ룬ÈÃÎÒѧϰһÏ¡£
Ëùν½ÏÍêÕû´´½¨Êý¾Ý¿âʱ¶¨Òå¸÷¸ö×Ö¶ÎÀàÐ͵ıíʾ·½·¨£¬ÈçÕûÊýÐÍ£¬¸¡µãÐÍ£¬×Ö·ûÐÍ£¨¶¨Ò峤¶ÈÈçºÎ±íʾ£©¡£Ð»Ð» ......