ÈçºÎÔÚ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ÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£ ´úÂëÈçÏ£º VB code: Private Function getFile_CMD(filename, filepath) As Bo ......
¸÷λ´óϺ£º ÎÒÊǸÕѧVB£¬ÏÖÔÚÏëÓÃVBµ÷ÓÃÒ»¸ö¶¯Ì¬¿â£¬¶¯Ì¬¿âÀïÃæÓкܶຯÊý¡£ÎÒÖªµÀʹÓÃVBµ÷Óö¯Ì¬¿âµ÷Óú¯Êý£¬ÐèÒª½«Òªµ÷Óõĺ¯ÊýÔÚ³ÌÐòÖÐÉùÃ÷¼´¿É£¬µ«ÊÇÀïÃæÓкܶຯÊý£¬²»»áÿһ¸öº¯Êý¶¼ÒªÉùÃ÷°É¡£Çë¸ ......
µÚÒ»´Î½Ó´¥CrystalReport ¼±Ñ°ÕÒVb.net Access ͨ¹ý²éѯ³öµÄÊý¾ÝÊä³öµ½CrystalReportµÄÀý×Ó. ÓеÄÅóÓÑÂé·³·¢À´Ñ§Ï°.¶àл! ¸úÄãµÄÒªÇó²î²»¶à£¬²Î¿¼Ò»Ï£º http://topic.csdn.net/u/20090823/21/87af02d3-f4ca-480 ......
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......
ÓÃvc±àдµÄdllÔÚdebugģʽºÍreleaseģʽÏÂÆô¶¯vbµÄexe³ÌÐòµ÷ÓÃvcµÄdll¿ÉÒԵõ½ÕýÈ·½á¹û£¬µ«ÊÇÈç¹ûÖ±½ÓË«»÷vbµÄexe³ÌÐòµ÷ÓÃdll±¨´í£¬ÔÚdllÄÚ²¿Ìí¼Ómessageboxºó·¢ÏÖÖ»ÒªÔÚº¯ÊýÄÚ²¿ÉùÃ÷std::stringÀàÐ͵ıäÁ¿¾Í»á³öÏÖÄ ......