ÎÒ±àдµÄÈçÏ´úÂ룺
Private Sub Check2_Click(Index As Integer)
If Check2.Value = 1 Then
Text1.FontBold = True
Else
Text1.FontBold = False
End If
End Sub
µ«ÊDZàдÍê³ÉºóÔËÐÐÈ´µ¯³öÈçÏÂÌáʾ
ÁíÍâ,ÔÚ±àд´úÂëµÄ¹ý³ÌÖÐ,Ìáʾ´úÂëҲûÓз¢ÏÖcheck2¿Ø¼þÓÐvalueÊôÐÔ,ÈçÏÂͼËù ......
ÔõôÓÃVBд´úÂëÅжÏÊý¾Ý¿âÊDz»ÊÇÒѾ´ò¿ª£¿
if cn.State = adStateOpen then
UP£¡
±»Ò»Â¥ÇÀÏÈÁË¡£
д¹Ø±ÕÃüÁÈç¹û´ò¿ª¾ÍÄÜÕý³£¹Ø±Õ¡£Èç¹ûû´ò¿ª»á±¨´í¡£
ÒýÓÃ
д¹Ø±ÕÃüÁÈç¹û´ò¿ª¾ÍÄÜÕý³£¹Ø±Õ¡£Èç¹ûû´ò¿ª»á±¨´í¡£
Õâ¸ö²»¿ÉÈ¡£¬Äã¹Ø±ÕÁË¿ÉÄÜÓ°Ïì´ò¿ªËüµÄÈÎÎñµÄÖ´ÐÐ
......
ÈçÌ⣬Óм¸¸öÎļþ£¬ËæÊ±ÓпÉÄܱ»Ð޸ģ¬Ò²ÓпÉÄÜÒ»Á½Ìì¶¼²»»á±»Ð޸ģ¬ÎÒÏëʵʱ¼ì²âºÎʱ±»Ð޸ģ¬
²»ÏëÓÃtimer£¬¸Ð¾õÓеãºÄÄڴ棬
ÏëʵÏÖÀàËÆÑÆ°ÍÎļþ¼àÊÓÆ÷£¬avafindÄÇÖÖЧ¹û£¬ÔõôŪ
ÒýÓÃ
Äã¿ÉÒÔʹÓÃFindFirstChangeNotification,ÔÙ½áºÏWaitForMultipleObjects,ºÍFindNextChangeNotification ʵÏÖ¡£
Ò²¿ÉÒÔʹ ......
ÈçÌ⣺
ÇóvbʹÓÃODBCÁ¬½ÓDBFÊý¾Ý¿âµÄ´úÂë
VB code:
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=jwl_dbf"
Adodc1.RecordSource = "select * from JWCK_BM"
Adodc1.Refresh
End Sub
jwl_db ......
ÈçÌâ
¾ÍÊÇÅжÏÏÖÔÚÏÔʾµÄÊÇxp×ÀÃæ£¬ÈçºÎ²Ù×÷£¬Ð»Ð»
£¨²»ÊÇÅжϻ´°¿Ú¹þ£©
XP×ÀÃæµÄ¾ä±úÊÇ¿ÉÒÔÕÒµ½µÄ.
ÓÃÀàÃûÒ²¿ÉÒÔ.
ÒýÓÃ
ÓÃÀàÃûÒ²¿ÉÒÔ.
ÎÒÓÃÀàÃû²»Í¬µÄÇé¿öµÃµ½µÄ»î¶¯´°Ìå¾ä±ú²»Ò»Ö°¡£¬°ïÎÒ¿´Ï£¬Ôõô»ØÊ£¬
°´Ï¿ìËÙÆô¶¯ÏÔʾ×ÀÃæ£¬»òÕßÔÚµã»÷Ò»ÏÂÒѾ´ò¿ªµÄÎļþ¼Ð£¬ÔÚµã»÷¿ìËÙÆô¶¯µÄÏÔʾ×Àà ......
ÄÄλ¸ßÈË×ö¹ýÓÃvb ·â×°ADOµÄ×Ô¶¨ÒåÀࣿ
¸ø¸öʵÓõÄÀý×Ó£¬ÎÒÂíÉϸø·Ö
Public Function ExecRS(ByVal pCmd As String, pDCN As ADODB.Connection, Optional pAsync As Boolean = False) As ADODB.Recordset
Dim tmpRs As ADODB.Recordset
Set tmpRs = New AD ......