ÈçºÎÔÚ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 ÄãÄܲ»ÄÜ˵µÄ¾ßÌåµãÒýÓà ѻ·²åÈë.Ñ»·µÄÌõ¼þµÃÄã×Ô¼º¶¨ ÎÒ²»»áÑ»·²åÈë ËùÒÔÎʵġ£¡£¡£
Ïà¹ØÎÊ´ð£º
±¾ÈËʹÓõÄÊÇVB6.0°æ±¾ ¼ÙÉèÓÐÒ»¸ö¶ÔÏóA£¬AÄÚÓÐÀàÐÍΪBµÄ¶ÔÏóÊôÐÔ¡£ÏÖÔÚµÄÎÊÌâÊÇ£¬ÐèÒªÌí¼ÓÈô¸É¸öB¶ÔÏó×÷ΪA¶ÔÏóµÄÊôÐÔ¡£È磬 A.B1,A.B2,... µ«¾ßÌåÌí¼Ó¶àÉÙ¸öB¶ÔÏó×÷ΪA¶ÔÏóµÄÊôÐÔÔòÊÓ¾ßÌåÇé¿ö²»Í¬¶ø²»Í¬ ......
Private Sub Form_Load() recs = Adodc1.Recordset.RecordCount 'Çóµ±Ç°¼Ç¼Êý If recs > 0 Then 'ÒÑÓп¼Éú Adodc1.Recordset.MoveLast 'ÒÆµ½×îºóÒ»Ìõ¼Ç¼ num = V ......
Êý¾Ý¿âÃ²ËÆÒѾÁ¬½ÓÉÏÁËvb£¬£¬¿ÉÊÇΪʲôÊý¾Ý¿âÉϵÄÊý¾Ý²»ÄÜÏÔʾÔÚ¿ò±íÖÐÄ󣿣¿£¿ ¾ßÌåµÄ´úÂ룿 ÎÞÂëÎÞÕæÏ࣡ Äã°ÑÀºÇò±§ÔÚ»³À¾ÍÄÜԶͶµÃ3·Ö£¿ Âé·³¸÷λ´óϺÁ˰¡¡£¡£¡£ Private Sub Comm1_Click() & ......
ÓÃvc±àдµÄdllÔÚdebugģʽºÍreleaseģʽÏÂÆô¶¯vbµÄexe³ÌÐòµ÷ÓÃvcµÄdll¿ÉÒԵõ½ÕýÈ·½á¹û£¬µ«ÊÇÈç¹ûÖ±½ÓË«»÷vbµÄexe³ÌÐòµ÷ÓÃdll±¨´í£¬ÔÚdllÄÚ²¿Ìí¼Ómessageboxºó·¢ÏÖÖ»ÒªÔÚº¯ÊýÄÚ²¿ÉùÃ÷std::stringÀàÐ͵ıäÁ¿¾Í»á³öÏÖÄ ......
ΪʲôÎÒÏëÑ»·×Ô¶¯·¢ËÍÓʼþµÄʱºò,¾ÍÖ»ÓеÚÒ»·âÄÜ×Ô¶¯·¢ËÍ,ÆäËüºóÃæµÄÓʼþ¶¼Ö»ÄÜ´´½¨,²»ÄÜ×Ô¶¯·¢ËÍ Private Sub send_mail_Click() '·¢ËÍÓʼþ֪ͨ Do While Not TDBG_Dept.EOF If A> ......