ÇóÖúaccessÎÊÌâ
ÒòΪϵͳÉý¼¶£¬ÐèÒª°Ñaccess²éѯÓï¾äÀïµÄA±íÌæ»»³ÉB±í£¬µ«ÊÇÓкܶàaccess³ÌÐò£¬Ã¿¸öaccessÀïÃæ²éѯ¶¼ÓÐ100¶à¸ö£¬ÎÒÏë°ÑÕâ100¶à¸ö²éѯµ¼³öÀ´£¬È»ºóÓòéÕÒÌæ»»¹¦ÄܰÑA±íÌæ»»³ÉB±í£¬ÇëÎÊÔõôʵÏÖ£¿»òÕß´ó¼ÒÓÐûÓÐÆäËüºÃµÄ·½·¨¡£Ã¿Ò»¸ö²éѯµã¿ª½øÐÐÌæ»»£¬ÊDz»¿ÉÄÜÍê³ÉµÄÈÎÎñ
ÕæµÄºÜ¼±°¡£¬ÇóÖúÄÄλºÃÐÄÈ˰ï°ïæ°¡
²»¶®,°ï¶¥.
ÀûÓÃÕâ¶Î´úÂ룬Äã¿ÉÒÔÌæ»»ËùÓеÄtable1 Ϊtable2
VB code:
Public Sub t()
Dim q As QueryDef
For Each q In CurrentDb.QueryDefs
q.SQL = Replace(q.SQL, "table1", "table2")
Next
End Sub
ÕâÁ½¶Î´úÂë¼Óµ½access³ÌÐòʲôλÖã¿
Ä£¿éÖС£
лл£¬²»¹ýºÃÏñÔÚÁ¢¼´´°¿ÚÖÐÏÔʾµÄ²»ÊÇËùÓвéѯ£¬Ö»Óв¿·Ö°¡
ÊDz»ÊÇÎҵIJéѯÓï¾äÌ«¶àÁË£¬Ò»¸ö´°¿ÚÏÔʾ²»¿ª£¿
Public Sub t()
Dim q As QueryDef
For Each q In CurrentDb.QueryDefs
q.SQL = Replace(q.SQL, "table1", "table2")
Next
End Sub
ÎÒÖ´ÐÐÕâ¸öº¯ÊýûÓÐÆä×÷Óð¡
Replace(q.SQL, "table1", "table2")
ÄãµÄ±íÃû¾ÍÊÇÕâ¸ö£¿
²»ÊÇ£¬Replace(q.SQL, "LEANV3_SAL_ORDERROW", "LEANVIEW_SAL_ORDERROW"£©£¬ÆäʵֻÐèÒªÌæ»»LEANV3ΪLEANVIEW¾Í¿ÉÒÔ£¬µ«ÊÇÎÒд³ÉReplace(q.SQL, "LEANV3", "
Ïà¹ØÎÊ´ð£º
ÕâÁ½Ììѧϰ¡¶Delphi¼¼Êõ·½°¸±¦µä¡·Ò»ÊéÖеÚÈýÕ¹ØÓÚÓû§µÇ¼·½°¸µÄÀý×Ó£¬ÀûÓõÄÊÇSQl ServerÊý¾Ý¿âʵÏÖÓû§µÇ¼£¬±àÒëÔËÐж¼Ã»ÎÊÌ⣬¸ÃʵÏֵŦÄÜÒ²¶¼ÊµÏֵĺܺ㬵«ÊÇÆæ¹ÖµÄÊÇ£¬·´¸´ÔËÐÐÒ»¶Îʱ¼äºó£¬ÓÐʱÔڹرÕÕû¸ö ......
ÔÚMSSQLÖУ¬ÎÒÃÇ¿ÉÒÔÒ»´Î²éѯ¶à¸öÊý¾Ý±í²¢¼ÓÈëµ½Êý¾Ý¼¯ÖУ¬ÖмäÖ»ÐèÓ÷ֺŸô¿ª£®È磺
£¢select * from A;select * from B;select * from C£¢,Ìî³äÊý¾Ý¼¯ºóÔÚDSÖоÍÓÐÁËÈýÕÅ±í£®
µ«ÔÚÓÃͬÑùµÄÓï¾ä·ÃÎÊACCESSÊý¾ ......
CREATE TABLE Product(model integer,
maker varchar(20),
CONSTRAINT SAND PRIMARY KEY (model),
CONSTRAINT PANDA FOREIGN KEY (model) REFERENCES PC (model)
ON DELETE CASCADE ......
ÎÊÌ⣱
ÎÒÓÃADOÁ¬½ÓÉèÁËÓû§ÃûÃÜÂëµÄÊý¾Ý¿â
µ«ÊÇÎÒ·¢ÏÖÎÒ²»ÊäÈë Óû§ÃûºÍÃÜÂë ¶¼¿ÉÒÔÁ¬½Ó³É¹¦ ¶øÇÒ»¹ÄܰÑÊý¾Ý¶Á³öÀ´
¼ôÁËÒ»¸öÃûΪtestÊý¾Ý¿â ½¨ÁËÒ»¸öÃûΪpeopleµÄ±í
¼ûÁËÒ»¸ö Óû§Ãû1234 ÃÜÂë1234 µÄ ......