ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] VBA¨Ï¥Î SQL «ü¥O¡AUser Defined Function(¨Ï¥ÎªÌ¦Û­q¨ç¼Æ)¡A¦p¦ó¿é¤J2­Ó°Ñ¼Æ¡C

¦^´_ 7# Baracuda

¯ÂÄÝ°Q½×¤Î­Ó¤H¬Ýªk

VBA ADO SQL ¦n¹³¨Ã¤£¤ä´©ÅܼƹBºâ¡A
UDF¤]¥u¬O¦bµ²ªGÄæ¦ì©ñ¤J­pºâ¦¡¦Ó¤£¬OADO·|ª½±µ­pºâ
³o­ÓÃD¥Ø¡A­Ó¤Hªº¬Ýªk¬OADOªº¤ä´©¯à¤O°ÝÃD¦Ó¤£¬O UDF ¸Ì¦³´X­Ó°Ñ¼Æ

¥DÄæ¦ì¤]¤@¼Ë¤£¯à¥ÎÅܼƭpºâ¡G
ÀH·NÁ|¨Ò "®Ö©w¥»Á~"
Const aa=2

¥i¥H­pºâ¡F ®Ö©w¥»Á~ * ª½±µ±`¼Æ 2
lcCommandText = "SELECT §Ç¸¹, ©m¦W,  ®Ö©w¥»Á~ * 2 as bb,  ®Ö©wÁZ®Ä , Á~¸êÁ`ÃB , ³Ò«OÁ~¸ê , ³Ò°hÁ~¸ê , °·«OÁ~¸ê, " & _
                " ³Ò°h , ¾¨a, ´¶³q¨Æ¬G, ´N·~«OÀI, ¤u¸ê¹ÔÀv, ¥þ¥Á°·«O, ¥þ¥Á°·«OÂÂ, " & _
                "  '=Multiply_2_No_Round_Down_4_Up_5(' + trim(str(³Ò°h)) + ',' +  trim(str(0.1)) + ')'  as ³Ò°h­Ó¤H " & _
                "FROM " & "[" & Input_Sht & "$" & "A1:P32]"

¥i¥H­pºâ¡F ®Ö©w¥»Á~ *  " &  aa  & " ¡AÅܼƤw¦b¦¨¥ß  lcCommandText ¦r¦ê®ÉÂà¤Æ¤F aa ¬° 2¡A2 ¬O±`¼Æ¤£¬OÅܼÆ
lcCommandText = "SELECT §Ç¸¹, ©m¦W,  ®Ö©w¥»Á~ *  " &  aa  & " as bb,  ®Ö©wÁZ®Ä , Á~¸êÁ`ÃB , ³Ò«OÁ~¸ê , ³Ò°hÁ~¸ê , °·«OÁ~¸ê, " & _
                " ³Ò°h , ¾¨a, ´¶³q¨Æ¬G, ´N·~«OÀI, ¤u¸ê¹ÔÀv, ¥þ¥Á°·«O, ¥þ¥Á°·«OÂÂ, " & _
                "  '=Multiply_2_No_Round_Down_4_Up_5(' + trim(str(³Ò°h)) + ',' +  trim(str(0.1)) + ')'  as ³Ò°h­Ó¤H " & _
                "FROM " & "[" & Input_Sht & "$" & "A1:P32]"

¤£·|­pºâ¡F ®Ö©w¥»Á~ * aa  ªºÅÜ¼Æ aa ¬O lcCommandText ¦r¦êªº¤@³¡¤À¡A ADO¨S¤ä´©¦r¦ê¤ºªºÅܼÆ
lcCommandText = "SELECT §Ç¸¹, ©m¦W,  ®Ö©w¥»Á~ * aa as bb,  ®Ö©wÁZ®Ä , Á~¸êÁ`ÃB , ³Ò«OÁ~¸ê , ³Ò°hÁ~¸ê , °·«OÁ~¸ê, " & _
                " ³Ò°h , ¾¨a, ´¶³q¨Æ¬G, ´N·~«OÀI, ¤u¸ê¹ÔÀv, ¥þ¥Á°·«O, ¥þ¥Á°·«OÂÂ, " & _
                "  '=Multiply_2_No_Round_Down_4_Up_5(' + trim(str(³Ò°h)) + ',' +  trim(str(0.1)) + ')'  as ³Ò°h­Ó¤H " & _
                "FROM " & "[" & Input_Sht & "$" & "A1:P32]"

TOP

¦^´_ 7# Baracuda


    °²³]¡A
1. Excel VBA ADOSQL ¨Ã¤£¤ä´© ÅܼÆ
2. SQL¥u¬O¥i¥H§Þ¥©©Êªº¦b¥Í¦¨ªºÄæ¦ì©ñ¤J­pºâ¦¡¡A¦¹­pºâ¦¡¥i¥Hºtºâ­ì©lÄæ¦ì¸ê®Æ

¨º´N¦b Excel Àx¦s®æ ©ñ¤J­pºâ¦¡¨Ó©I¥s VBA¤ºªº UDF¡A
¦¹¦Û­q¨ç¼Æ´N¸û¦³¼e¼sªº¹B§@ªÅ¶¡¤F

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤H¤£©È¿ù¡A´N©È¤£§ï¹L¡A§ï¹L¨Ã¤£Ãø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD