»¹ÊÇVBºÍSQLµÄÎÊÌâ
ÎÒÓÃVB¶ÁÈ¡WinCCµÄ¹ý³Ì±äÁ¿A£¨¶þ½øÖÆ£©µ½text16 ÖÐ £¬Ö»Òªtext6ÖÐΪ1£¬¾ÍÏòSQLÊý¾Ý¿â×öÒ»Ìõ¼Ç¼¡£
ÏÂÃæµÄ´úÂëÊǵ±Ìõ¼þÂú×ãʱ£¬Óð´Å¥command1Ìí¼Ó¼Ç¼µÄ£¨Õâ¸öÒѾʵÏÖ£©¡£
Private Sub command1_click()
If Text16.Text = "1" Then
Adodc1.Recordset.MoveLast
Adodc1.Recordset.AddNew
Text1.Text = Text19.Text ¡®SQL×Ö¶Î1
Text2.Text = Text5.Text ¡®SQL×Ö¶Î2
Text3.Text = Text17.Text ¡®SQL×Ö¶Î3
Text20.Text = Date ¡®SQL×Ö¶Î4
Text4.Text = Time ¡®SQL×Ö¶Î5
Adodc1.Recordset.UpdateBatch
Else
End If
End Sub
ÎÒµÄÎÊÌâÊÇ£¬ÔõÑùд£¬¿ÉÒÔÈÃVB¸ù¾Ý±äÁ¿AΪ1ʱ×Ô¶¯×öÒ»Ìõ¼Ç¼¡£ÉÏÃæµÄÌõ¼þÓï¾ä·Åµ½Ê²Ã´ÑùµÄ¹ý³Ì»ò·½·¨ÖÐÈ¥£¿
Ìí¼Ótimer¿Ø¼þ£¬È»ºóÈçÏ£º
VB code:
Private Sub Form_Load()
Timer1.Enabled = 1000
End Sub
Private Sub Timer1_Timer()
Timer1.Enabled = False
If Text16.Text = "1" Then
Adodc1.Recordset.MoveLast
Adodc1.Recordset.AddNew
Text1.Text = Text19.Text 'SQL×Ö¶Î1
Text2.Text = Text5.Text 'SQL×Ö¶Î2
Text3.Text = Text17.Text 'SQL×Ö¶Î3
Text20.Text = Date 'SQL×Ö¶Î4
Text4.Text = Time 'SQL×Ö¶Î5
Adodc1.Recordset.UpdateBatch
Else
End If
Timer1.Enabled = True
E
Ïà¹ØÎÊ´ð£º
ÎÒÓг§¼Ò×öµÄASPµÄ¼à¿ØÂ¼Ïñ£¨DVR£©µÄ¾ÖÓòÍø²¥·ÅµÄÔ´³ÌÐòÓë¿Ø¼þ£¬ÏëÒªÓÃASP.net×öÒ»¸öÊÓÆµ»Ø·ÅµÄ³ÌÐò£¨ÀûÓÃËûµÄ¿Ø¼þ£©µ«²»ÖªÈçÏÂÈ¥×ö£¬Íû¸÷λָµã¡£
ÏȸãÇå³þËûÃǵĿؼþÊÇÔõôÓõÄ,
È»ºó¾ÍÖ±½ÓÓúÃÁË.
²»¹ý,Èç ......
ÎÒÓжà¸ö±íA B C ½á¹¹ÊÇÒ»ÑùµÄ£¬¶¼ÓÐ2¸ö×Ö¶ÎnameºÍcontent,ÎÒÒªËÑË÷ËùÒÔ±íËùÓÐ×Ö¶ÎÖаüº¬¡°Öйú¡±µÄÄÚÈÝ Õâ¸öSQLÓï¾äÔõôд
ÈçºÎ½«¶à¸ö±íµÄ²éѯ½á¹ûÁ¬³ÉÒ»¸ö±í Õâ¸öSQLÓï¾äÔõôд ±íµÄ½á¹¹ÊÇÒ»ÑùµÄ
ÀýÈç£ ......
±íÈçÏÂ
½ÌÊÒID ×ùλÊý ¿ªÊ¼Ê±¼ä ½áÊøÊ±¼ä 2009Äê1ÔÂ1ÈÕ 2009Äê1ÔÂ2ÈÕ 2009Äê1ÔÂ3ÈÕ
101 50 08£º00 08£º30 30 40 50
101 50 09£º00 ......
СµÜÕý×¼±¸×Ô¼ºÌáǰѧϰÊý¾Ý¿â£¬µ«ÊÇÏÖÔÚÓиöÎÊÌ⣬²»ÖªµÀ¸ÃÑ¡Ôñʲô°æ±¾µÄSQL
ѧУÒÔºóµÄÊéºÃÏñ½²SQLÓõÄÊÇSQL 2000£¬µ«ÊÇÎÒµÄϵͳÊÇWindows 7£¬Ã²ËƲ»ÄÜ×°£¬Ò²²»Ïë»»»ØXP£¨07Äê¾Í²»ÓÃXPÀ²£©£¬ËùÒÔÔÚÏ룬ÄÜ· ......
type Exception report
message
description The server encountered an internal error () that prevented it from fulfilling this request.
exception
org.apache.jas ......