ÈçºÎÔÚVB³ÌÐòÀï Ò»´ÎÊäÈë¶à×éÊý¾Ýµ½Êý¾Ý¿âÀï

    Call ConnectDB1
    If connect = True Then
                strsql = vbNullString
                strsql = strsql & "INSERT INTO TB_Event(dsEventTime, dsRecordTime,dschild,dsparent, DSBS, DSDIS, DSRP, DSBL,  DSACT_O, DSACT_A, DSACT_T) values ('" & EventTime & "', sysdate,17140,17140, 1, 1, 1,1,2,1,3 )"
             
DBCon.Execute strsql
DBRec0.Close

Else
        MsgBox "DB ¿¬°á ½ÇÆÐ !!!", 16, "È®ÀÎâ"
        Exit Sub
    End If
   
    DBCon.Close¡£
ÎÊÌâÈçÌâÄ¿£¬£¨MSGBOXµÄÂÒÂë²»Óùܣ¬VALUEµÄֵûÓдíÎó£©
³ÌÐòµÄÎÊÌâ 1 ÔËÐеÄʱºò ³ö´í£¬ÔÚDBCon.Execute strsqlÕâ¸öµØ·½
2.ÎÒÖ±½ÓÔÚÊý¾Ý¿âÀï²åÈëµÄʱºò ÿ´ÎÖ»ÄܲåÁËÒ»×飬ÎÒÏëÒ»´Î²åÈë3000×é Ôõô½â¾ö

---

1, EventTime ÊÇʲôÊôÐÔ£¿
2£¬ informixÀïÓà ¡®£»¡¯·Ö¿ª¡£

---

Ñ­»·²åÈë.Ñ­»·µÄÌõ¼þµÃÄã×Ô¼º¶¨

---

ÒýÓÃ

1, EventTime ÊÇʲôÊôÐÔ£¿
2£¬ informixÀïÓà ¡®£»¡¯·Ö¿ª¡£

EventTime = Format(Now, "yyyy-mm-dd hh:nn:ss")  ,2 ÄãÄܲ»ÄÜ˵µÄ¾ßÌåµã

---

ÒýÓÃ

Ñ­»·²åÈë.Ñ­»·µÄÌõ¼þµÃÄã×Ô¼º¶¨

ÎÒ²»»áÑ­»·²åÈë ËùÒÔÎʵġ£¡£¡£