ÈçºÎÓ¦ÓÃaccessÔÚ±à³ÌģʽÖд´½¨²éѯ?
ÈçºÎÓ¦ÓÃaccessÔÚ±à³ÌģʽÖд´½¨²éѯ?
Dim acApp As New Microsoft.Office.Interop.Access.Application
Dim connectionString As String
acApp.OpenCurrentDatabase(DataSu, False)
acApp.CreateForm() '´´½¨´°Ìå
connectionString = "select * form bg"
acApp.DoCmd.RunSQL(connectionString)
ÈçºÎ´´½¨²éѯ?
¿ÉÒÔ,·Ç³£¸Ðл!
ÔÚ2003ÒÔÉÏ¿ÉÒÔÓÃADOÀ´´´½¨£¬ÒÔÏ¿ÉÒÔ´´½¨µ«²»¿É¼û£¬ÓÃVBA
Dim er As QueryDef
Set er = CurrentDb.CreateQueryDef("jk", "SELECT * from TT")
Ïà¹ØÎÊ´ð£º
ÔÚMSSQLÖУ¬ÎÒÃÇ¿ÉÒÔÒ»´Î²éѯ¶à¸öÊý¾Ý±í²¢¼ÓÈëµ½Êý¾Ý¼¯ÖУ¬ÖмäÖ»ÐèÓ÷ֺŸô¿ª£®È磺
£¢select * from A;select * from B;select * from C£¢,Ìî³äÊý¾Ý¼¯ºóÔÚDSÖоÍÓÐÁËÈýÕÅ±í£®
µ«ÔÚÓÃͬÑùµÄÓï¾ä·ÃÎÊACCESSÊý¾ ......
Âé·³¸÷λ°ïæ¿´¿´°¡
´úÂëÈçÏ£º
CoInitialize(NULL);
_ConnectionPtr pConn(__uuidof(Connection));
_RecordsetPtr pRst(__uuidof(Recordset));
pConn->ConnectionString="Provider ......
ÎÒдÁËÒ»¸öÈí¼þ£¬ÒªÓõ½ACCESSÊý¾Ý¿â£¬ÎÒÔÙ·ÃÎÊACCESSµÄʱºò£¬ÎÒÐèÒª´Ó±íÀï¶Á³öÒ»ÐÐÊý¾Ý£¬ÎҵijÌÐòÊÇÕâÑùдµÄ£¬SQLSTRING="SELECT * from '" &ME.TEXTBOX1.TEXT &"' WHERE ID = '"& ......
ÎÒÔÚÇ°Ì¨Ò³ÃæÊäÈë¿òÊäÈë 20091208 µã»÷Ìá½»Ö®ºó±¨´í,˵ÀàÐͲ»Æ¥Åä.
Êý¾Ý¿âÀï Õâ¸ö×ֶεĸñʽӦ¸ÃÊÇ 2009-12-8 14:27:40
ÊDz»ÊÇÒª°Ñ 20091208 ת»»³É¸ñʽ 2009-12-8 14:27:40
ÇëÎÊÎ ......
ÎÒ»ú×ÓÀïÃæÃ»ÓÐACCESS,ÇëÎÊÔÚ²»ÖØ×°ÏµÍ³µÄÇé¿öϸÃÈçºÎ°ÑËü×°ÉÏ,֮ǰÎÒÊÔ×°¹ýÆäËü°æ±¾µÄSP3 OFFICE,µ«»¹ÊÇ×°²»ÉÏ,
ÇëÎÊÓÐʲôºÃ°ì·¨Âð?
°²×°OFFICE £¬Ñ¡Ôñ°²×°ACCESS¾Í¿ÉÒÔѽ ¡£
ÒýÓÃ
°²×°OFFICE £¬Ñ¡Ôñ°²×° ......