VB6----模拟条形码扫描----速度的提高
如题敬请
程序大牛
关注一下
谢谢
附件中，程序是可运行的
窗体名：Form1 为条形码---模拟输入界面
在
文本框---Text1 输入具体的条形码字符
输入完毕后
按回车键即可
可以用快捷键Ctrl+C进行复制、Ctrl+V进行粘贴输入
但
进行复制、粘贴输入时
速度不够快-------(与工作单位上的程序相比，最少慢半拍)
故
在此求教
恳请解答
谢谢！！！
具体代码如下：
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim Cnn As New ADODB.Connection
Dim Rst As New ADODB.Recordset
Dim Sq As String
If KeyAscii = 13 Then
Cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & _
"\数据库.mdb;Jet OLEDB:Database Password=" & 123
Sq = "SELECT * FROM 条形码数据 "
Rst.Open Sq, Cnn, adOpenKeyset, adLockPessimistic
With Rst
.AddNew
.Fields("条形码") = Text1.Text
.Fields("数量") = Val(Text2.Text)
.Update
End With
Rst.Close
Cnn.Close
Set Rst = Nothing
Set Cnn = Nothing
Text1 = ""
Text1.SetFocus
Else
Exit Sub
End If
Call 将数据引入ListView1
End Sub
