Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

ÈçºÎÔÚ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 ÄãÄܲ»ÄÜ˵µÄ¾ßÌåµã

ÒýÓÃ
Ñ­»·²åÈë.Ñ­»·µÄÌõ¼þµÃÄã×Ô¼º¶¨
ÎÒ²»»áÑ­»·²åÈë ËùÒÔÎʵġ£¡£¡£


Ïà¹ØÎÊ´ð£º

vbÖÐÈçºÎʵÏÖ¶ÔÏóÊôÐԵĶ¯Ì¬ÉèÖà - VB / »ù´¡Àà

±¾ÈËʹÓõÄÊÇVB6.0°æ±¾
¼ÙÉèÓÐÒ»¸ö¶ÔÏóA£¬AÄÚÓÐÀàÐÍΪBµÄ¶ÔÏóÊôÐÔ¡£ÏÖÔÚµÄÎÊÌâÊÇ£¬ÐèÒªÌí¼ÓÈô¸É¸öB¶ÔÏó×÷ΪA¶ÔÏóµÄÊôÐÔ¡£È磬
 A.B1,A.B2,...
µ«¾ßÌåÌí¼Ó¶àÉÙ¸öB¶ÔÏó×÷ΪA¶ÔÏóµÄÊôÐÔÔòÊÓ¾ßÌåÇé¿ö²»Í¬¶ø²»Í¬ ......

Çóvb´óϺ¿´Ò»Ï°¡£¡£¡£¡

Private Sub Form_Load()
  recs = Adodc1.Recordset.RecordCount 'Çóµ±Ç°¼Ç¼Êý
  If recs > 0 Then 'ÒÑÓп¼Éú
  Adodc1.Recordset.MoveLast 'ÒÆµ½×îºóÒ»Ìõ¼Ç¼
  num = V ......

ÓйØvbµÄÎÊÌâ - VB / »ù´¡Àà

Êý¾Ý¿âÃ²ËÆÒѾ­Á¬½ÓÉÏÁËvb£¬£¬¿ÉÊÇΪʲôÊý¾Ý¿âÉϵÄÊý¾Ý²»ÄÜÏÔʾÔÚ¿ò±íÖÐÄ󣿣¿£¿
¾ßÌåµÄ´úÂ룿

ÎÞÂëÎÞÕæÏ࣡

Äã°ÑÀºÇò±§ÔÚ»³À¾ÍÄÜԶͶµÃ3·Ö£¿

Âé·³¸÷λ´óϺÁ˰¡¡£¡£¡£
Private Sub Comm1_Click()
& ......

VB µ÷Óà vc ±àдµÄdll - C/C++ / C++ ÓïÑÔ

ÓÃvc±àдµÄdllÔÚdebugģʽºÍreleaseģʽÏÂÆô¶¯vbµÄexe³ÌÐòµ÷ÓÃvcµÄdll¿ÉÒԵõ½ÕýÈ·½á¹û£¬µ«ÊÇÈç¹ûÖ±½ÓË«»÷vbµÄexe³ÌÐòµ÷ÓÃdll±¨´í£¬ÔÚdllÄÚ²¿Ìí¼Ómessageboxºó·¢ÏÖÖ»ÒªÔÚº¯ÊýÄÚ²¿ÉùÃ÷std::stringÀàÐ͵ıäÁ¿¾Í»á³öÏÖÄ ......

vb×Ô¶¯·¢ËÍÓʼþ - VB / »ù´¡Àà

ΪʲôÎÒÏëÑ­»·×Ô¶¯·¢ËÍÓʼþµÄʱºò,¾ÍÖ»ÓеÚÒ»·âÄÜ×Ô¶¯·¢ËÍ,ÆäËüºóÃæµÄÓʼþ¶¼Ö»ÄÜ´´½¨,²»ÄÜ×Ô¶¯·¢ËÍ
Private Sub send_mail_Click() '·¢ËÍÓʼþ֪ͨ
  Do While Not TDBG_Dept.EOF
  If A> ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ