'=============================================================================== '¤@¡GÃö©ó cmadox.dll ªº¤Þ¥Î '¨Ï¥Î¥»½d¨Ò,¥²¶·¥ýµù¥U cmadox.dll ,¦A¤Þ¥Î¶i¨Ó¨Ï¥Î '¨Ò¦p±N cmadox.dll ½Æ»s¨ì±zªº Windows\SysWOW64 ¥Ø¿ý¤U '¨Ã±N¸ÓdllÀÉ®×µù¥U :¨Ò¦p©ó ¶}©lªº°õ¦æ... Áä¤J regsvr32 C:\Windows\SysWOW64\cmadox.dll «á«ö½T©w°õ¦æ '©Î¨ì¤¸¥óªA°È¤¤µù¥U '¹ê»Úªºµ{¦¡½X¤¤ ±z¥i¥H ¨Ï¥Î ª«¥ó CMADODB.CMConnection 'CMADODB.CMConnection ´£¨Ñ¤èªkCMExecute ¥i¦^¶Ç ADODB.recordset ' '=============================================================================== '¤G¡GÃö©óCMADODB.CMConnectionªº CMExecute ¤èªk '¦^¶Ç¤@­Ó adodbªºrecordset 'CMConn ¬O¤@­ÓCMADODB.CMConnection ª«¥ó 'SQL : ·Q­n°õ¦æªº SQL ³¯­z¦¡ ' '½d¨Ò»yªk: ' '1.¿é¥X°ò¥»ªí¸ê®Æ 'CMConn.Execute "5", SQL 'table ¦WºÙª½±µ¨Ï¥ÎCMoney¤W¬Ý¨ìªºªí¦W§Y¥i¡A¨Ò¦p SQL="SELECT * FROM ¤é¦¬½Lªí±Æ¦æ WHERE (¤é´Á = '20041110') ORDER BY ªÑ²¼¥N¸¹" ' '2.¿é¥X¦Û­q³øªí¸ê®Æ 'CMConn.Execute "2", SQL 'table ¦WºÙª½±µ¨Ï¥Î±z¦bª¾ÃѺ޲z®w¤¤¡A¦Û­q³øªíùؤw¸g³]¦nÀx¦sªºªí¦W¡A '¨Ò¦p SQL = "SELECT * FROM §Þ³N»PÄw½X­±³tÄý" ' '3.¿é¥X¦Û­q¿z¿ï±ø¥ó¸ê®Æ 'CMConn.Execute "3", "°ò¥»­±¿z¿ï/¤ëÀ禬°Ê¯à¦V¤W/20060207",true '°ò¥»­±¿z¿ï:ª½±µ¨Ï¥Î±z¦bª¾ÃѺ޲z®w¤¤¡A¬Ý¨ìªº¿z¿ïºØÃþ¼ÐÃD¦WºÙ¡A '¤ëÀ禬°Ê¯à¦V¤W:ª½±µ¨Ï¥Î±z¦bª¾ÃѺ޲z®w¤¤¡A¤w¸g³]¦nÀx¦sªº¿z¿ï±ø¥ó¦WºÙ¡A '20060207:¥Î¨Ó¿z¿ïªº°ò·Ç¤é´Á¡A­Y¥¼µ¹©wªí¥Ü¨Ï¥Î³Ì·s£¸¤Ñªº¤é´Á¨Ó¿z¿ï¸ê®Æ 'true:¿ï¾Ü©Ê°Ñ¼Æ,¥Î¨Ó¨M©w¬O§_Åã¥ÜªÑ²¼¦WºÙÄæ¦ì,¹w³]­È¬° false '=============================================================================== ¤T¡Gµ{¦¡½d¨Ò Dim Conn_CMado As New CMADODB.CMConnection Dim Rs As New ADODB.Recordset Dim Str_SQL As String Str_SQL = "SELECT * FROM ¤é¦¬½Lªí±Æ¦æ WHERE (¤é´Á = '20041110') ORDER BY ªÑ²¼¥N¸¹" Set Rs = Conn_CMado.CMExecute("5", Str_SQL) =============================================================================== ¥|¡GÃö©ó°ÊºA³sµ²¥N¸¹¡V¥xªÑ(¥i¥Î©ó¤@¯ëªí®æ»P¦Û­q³øªí) ¼ÐÅÒ¡G¨Ï¥Î ¨Ó¨M©w­n³]©wªº°ÊºA³sµ²¥N¸¹¡A¼ÐÅÒ¤º¥Î³r¸¹¨Ó¤À¹j°Ñ¼Æ ¡G°Ñ¼Æ1¬O°ÊºA³sµ²ªººØÃþ¡A°Ñ¼Æ2¬O°ÊºA³sµ²ªº¥N¸¹ 1¡B¥xªÑ¡V¥æ©ö©Ò¥N¸¹¡G ¨Ò¡GSELECT * FROM [©u°]³ø(²{ª÷¬y¶q³æ©u)] WHERE ¦~©u='201003' AND ªÑ²¼¥N¸¹ IN 2¡B¥xªÑ¡V²Ó²£·~¤ÀÃþ¡G ¨Ò¡GSELECT * FROM [©u°]³ø(²{ª÷¬y¶q³æ©u)] WHERE ¦~©u='201003' AND ªÑ²¼¥N¸¹ IN 3¡B¥xªÑ¡V­ÓªÑ¯S®í¤ÀÃþ(¤£§t«ü¼Æ·J½s)¡G ¨Ò¡GSELECT * FROM [©u°]³ø(²{ª÷¬y¶q³æ©u)] WHERE ¦~©u='201003' AND ªÑ²¼¥N¸¹ IN 4¡B¦h­Ó¥N¸¹¼gªk¡G¤ñ¦p·Q§ì¨ú¦¬½L»ù¡A¼Ë¥»¬°¤W¥«¡B¤WÂd¡B³Ð·sªO¡BETF ¨Ò¡GSELECT ªÑ²¼¥N¸¹,¦¬½L»ù FROM [¤é¦¬½Lªí±Æ¦æ] WHERE (ªÑ²¼¥N¸¹ IN OR ªÑ²¼¥N¸¹ IN OR ªÑ²¼¥N¸¹ IN OR ªÑ²¼¥N¸¹ IN ) AND ¤é´Á='20231110' 5¡BÄæ¦ì¦WºÙ¦³()¡A«Øij¥H¤¤¬A¸¹[]¥]°_¨Ó¡A¸ê®Æªí¦W«Øij³£­n¥Î[]¥]°_¨Ó¡G ¨Ò¡GSELECT ªÑ²¼¥N¸¹,[Á`¥«­È(»õ)] FROM [¤é¦¬½Lªí±Æ¦æ] WHERE (ªÑ²¼¥N¸¹ IN OR ªÑ²¼¥N¸¹ IN ) AND ¤é´Á='20231110' ¤­¡GÃö©ó°ÊºA³sµ²¥N¸¹¡V«D¥xªÑ ¼ÐÅÒ¡G¨Ï¥Î ¨Ó¨M©w­n³]©wªº°ÊºA³sµ²¥N¸¹¡A¼ÐÅÒ¤º¥Î³r¸¹¨Ó¤À¹j°Ñ¼Æ ¡G°Ñ¼Æ1¬O°ÊºA³sµ²ªººØÃþ¡A°Ñ¼Æ2¬O°ÊºA³sµ²ªº¥N¸¹¡A°Ñ¼Æ3¬O¸ê®Æªí¦WºÙ¡A°Ñ¼Æ4¬O¦¸¼Ë¥»¦WºÙ 1¡B«D¥xªÑ¡G ¨Ò¡GSELECT * FROM [­«­n°ê»Ú«ü¼Æ] WHERE ¤é´Á='20110120' AND ¥N¸¹ IN ¨Ò¡GSELECT * FROM [ÅvÃÒ°ò¥»¸ê®Æªí] WHERE ¦~«×='2011' AND ¥N¸¹ IN =============================================================================== µù¡G¸ê®Æªí«e«á½Ð¯dªÅ¥Õ,­Yªí®æ¦WºÙ¤º§t¦³¤¤¬A¸¹,«hªí®æ¦WºÙ½Ð¤£­n¦A¥Î¤¤¬A¸¹¥]¦í