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

[µo°Ý] ¿z¿ï°ÝÃD

[µo°Ý] ¿z¿ï°ÝÃD

½Ð±Ð¦U¦ì¥ý¶i2­Ó°ÝÃD
1.·í°õ¦æ¦¹µ{¦¡·|µo¥Í"°õ¦æ¶¥¬q¿ù»~'3704':·íª«¥óÃö³¬®É,¤£¤¹³\¾Þ§@",½Ð°Ý­n¦p¦ó­×¥¿
2.¨Ï¥ÎBlade(¼Æ­È)°µ¿z¿ï,¥i¿z¿ï¥X·Q­nªº¸ê®Æ,¦ý§ï¥Îentrydate(¤é´Á)¿z¿ï,µ{¦¡§ï¬°~FROM CFData where entrydate>2012/12/1,«oµLªk¿z¿ï¥X·Q­nªº¸ê®Æ
    ½Ð°Ý¬O§_­n¥t¥~«Å§i°Ñ¼Æ±ø¥ó

Sub aa()
   Dim cnn As New ADODB.Connection
   Dim rst As New ADODB.Recordset
    cnn.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & ThisWorkbook.Path & "/Motion.mdb"   
    Sql = "SELECT entrydate,blade INTO [Excel 8.0;DATABASE=c:\test1.XLS].[main] FROM CFData where blade =1"         
    [a2].CopyFromRecordset cnn.Execute(Sql)    -->·|µo¥Í°õ¦æ¶¥¬q¿ù»~'3704':·íª«¥óÃö³¬®É,¤£¤¹³\¾Þ§@    cnn.Close
    cnn.Close
    Set cnn = Nothing
End Sub
¨Ï¥ÎBlade=1¥i±NBlade¬°1ªº¸ê®Æ¿z¿ï¥X¨Ó
blade¿z¿ï.jpg
2013-1-15 11:14

¨Ï¥ÎentryDate>2012/12/1,µLªk¿z¿ï2012/12/1¥H«áªº¸ê®Æ

entrydate¿z¿ï

entrydate¿z¿ï.jpg
2013-1-15 11:14

1.¨Ï¥Î¥ý¶iªº§@ªk¥i¸Ñ¨M"·íª«¥óÃö³¬®É,¤£¤¹³\¾Þ§@"ªº°ÝÃD
¦ýExeclÀɮפº¦U¸ê®Æªº¼ÐÃD¨S¦³³Q½Æ»s¥X¨Ó,¬O§_¦³¸Ñ¨M¿ìªk
blade¿z¿ï1.jpg
2013-1-15 16:37


2.¤é´Á«e«á¥[¤J#¥i¥H§ì¨ì¸ê®Æ
¥t¥~½Ð±Ð­Ó°ÝÃD,¦pªG¤é´Á­n¨Ï¥ÎInputBox¿é¤J
Dim myDate
  Do Until IsDate(myDate)
   myDate = Trim(InputBox("½Ð¿é¤J¬d¸ß°_©l¤é´Á", "¤é´Á", "YYYY/MM/DD"))
  Loop

where entrydate>myDate -->µLªk°õ¦æ,½Ð°Ý»yªk­n¦p¦ó­×¥¿

TOP

ÁÂÁ«ü¾É,¥Ø«e°ÝÃD¤w¸Ñ¨M

TOP

        ÀR«ä¦Û¦b : ½_ÁJµ²±o¶V¹¡º¡¡A¶V·|©¹¤U««¡A¤@­Ó¤H¶V¦³¦¨´N¡A´N­n¶V¦³Á¾¨Rªº¯ÝÃÌ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD