½ñÌì¸ÕÄõ½Ò»¸ùusb-comµÄÊý¾ÝÏߣ¬»¹Ã»¿´Ê²Ã´ÅÆ×Ó¡£ÏÈÀ´±¨¸öµ½¡£
¹«Ë¾¼Æ»®ÔÚδÀ´¼¸¸öÔÂÄÚ¿ª·¢Ð²úÆ·£¬´òËãÓõçÄÔ¿ØÖÆusbÁ¬½Óµ½»ų́COM¿ÚÉÏ£¬ÓõçÄÔ¿ØÖÆ»ų́ÔËת¡£
Ö÷ÒªÊÇʵÏÖUSBµ½comͨÐÅ¡£Ò»Çж¼ÓÃVB×ö£¬ÒÔǰ´Óû×ö¹ý£¬Ï£Íû´ó¼Ò¸øÐ©Ìáʾ£¡¶¼ÒªÕÒЩʲô×ÊÁÏÄØ£¿
ÕâÀïллÁË£¡
¶àÇë½ÌÀÏÂímyjian
É豸Ūһ¸öCP210 ......
ÈçÌ⣬»¹ÓÐÈçºÎÌí¼ÓÒ»ÁÐÄØ£¿ÈçÌí¼ÓÐòºÅÁУ¨1¡¢2¡¢3......)
лл¡£
Ö±½ÓÓÃconnection¶ÔÏóÀ´Ö´ÐвåÈë ,ɾ³ý
ÒòΪ¸ÕѧVBËùÒÔ²»ÊǺÜÊìϤ£¬»¹ÍûÂ¥ÉÏÃ÷ʾ°¡£¬¸Ð¼¤²»¾¡¡£
ÎÒÏë×öÒ»¸ödatagridµÄÒ³Ãæ£¬ÉÏÓÐÓÐ ÐÂÔö ÐÞ¸Ä É¾³ý °´Å¥£¬µãÏàÓ¦µÄ°´Å¥£¬datagrid´¦ÀíÏàÓ¦µÄ¹¦ÄÜ¡£¸÷λÄÜ·ñ¸ø¸öʵÀý°¡¡£Thanks
½ñÌìÂÛ̳ÉÏ´«²»ÁË×Ê ......
VB code:
Public Function openrecord(str1 As String, record As ADODB.Recordset)
Set record = New ADODB.Recordset
record.Open str1, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
End Function
Çë´ó¼Ò°ïÎÒ¿´Ï£¬ÎÒÊÇÒ»¸öÐÂÊÖ£¬Ö»ÊÇÐèҪͨ¹ýAccess×öÒ»¸ö¹ÜÀíϵͳ£¬Óöµ½Õâ¸öÎÊÌâÎÒ×Ô¼ºÒ»µãÍ·Ð ......
±ÈÈçÏÂÃæÕâ¸öÀý×Ó£¬ÔÚ¸üп¼ÊԳɼ¨µÄʱºò£¬ÏëÉèÖÃREAD COMMITTEDÓ¦¸ÃÔõôд
Sub changeExamResult()
Dim str As String
'Dim frmName As String = "»¶ÓÄú"
str = "Data Source=localhost ......
vbÖÐÈçºÎÑÓ³Ùʱ¼ä£¬³ÌÐòÔËÐе½Ò»¶Î´úÂ룬ͣ¶Ù5Ã룬Ȼºó¼ÌÐøÍùÏÂÔËÐÐ
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
DoEvents
Sleep 5000
Option Explicit
Private Declare Function GetTickCount Lib "kernel32" () As Long
Dim StartTm& ......
vbÈçºÎдһ¸öÄܹ¥»÷±ðÈËÍøÕ¾µÄ³ÌÐò°¡£¬±ÈÈçÎÒ¹¥»÷±ðÈËÍøÕ¾µÄÒ»¸ö×¢²áÒ³Ãæ£¬Ê¹ËûµÄ×¢²áÒ³ÃæÎÞ·¨´ò¿ª£¬ÈçºÎ×ö°¡£¬×îºÃ¸ø³ö˼·ºÍ´úÂë
À¼ÖÝÉÕ±ý¡¡
½¨ÒéÕâÖÖÌù×ÓÖ±½ÓºÍгµô£¡£¡
дëµÄ³ÌÐò£¬ÍøÉÏÒ»´ó¶ÑÏֳɹ¤¾ßÄØ¡£
ÓÐÈË»áÂð
...
¶¥
¡
ÄãÈ¥¼ÓÈëbotÍøÂ磬²»¹ýÈ˼Ҳ»»áÒªÄ㣬Äãû¼¼Êõ¡£
³ý·ÇÄãÓÐÉÏ ......