VB access ʵʱ´íÎó '-2147467259 £¨80004005£©'

Adodc1.ConnectionString = login.conn

sql1 = "select format(a.logindate,'yyyy\/mm') as ny,a.logindate, MAX(a.start) as start,MAX(a.end) as end  from (" & _
      "select YD_Login_ID ,format(YD_Login_DT,'yyyy\/mm\/dd') as logindate,MIN(format(YD_Login_DT,'hh:mm:ss')) as start,null as end from [YD_LoginLog] where YD_Login_Type ='IN' GROUP BY YD_Login_ID ,format(YD_Login_DT,'yyyy\/mm\/dd')" & _
      " union select YD_Login_ID,format(YD_Login_DT,'yyyy\/mm\/dd') as logindate,null as start,MAX(format(YD_Login_DT,'hh:mm:ss'))  as end from [YD_LoginLog] where YD_Login_Type ='OUT' GROUP BY YD_Login_ID,format(YD_Login_DT,'yyyy\/mm\/dd') ) a" & _
    " where a.YD_Login_ID ='" & login.gobal_userid & "' " & _
    " GROUP BY format(a.logindate,'yyyy\/mm'),a.logindate ORDER BY a.logindate"               
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = sql1
Adodc1.Refresh

ÆäÖÐsql1 ÔÚMS ACCESSµÄ²éѯÖÐÖ´ÐÐÕýÈ·£¬ÔÚVB ADODC1.refresh ʱÌáʾδ֪´íÎó£¬ÊµÊ±´íÎó '-2147467259 £¨80004005£©'
ÒÔÉ϶¼ÊÇÔÚ±¾µØÔËÐеġ£

---

Çë²é¿´Adodc1µÄÏà¹ØÊôÐÔ£¡ÒÔ¼°Á¬½Ó login.conn ״̬¡£

---

Ó¦¸Ã»¹ÓÐÆäËû´íÎóÐÅÏ¢µÄ¡£°ÑÐÅÏ¢Ìù³öÁË¿´¿´¡£

---

ÏñÏÂÃ