请教批量入库的问题
我想将 喷标号Text4和Text5之间的数出库,请问以下代码哪错了,为什么当Text4 Text5分别输入1,2时 ,喷标号为12 , 14等数据也添加成功
Dim se As New ADODB.Recordset
se.Open "select * from 成品档案 where 炉批号='" + Trim(Text1.Text) + "'and 喷标号 >= '" & Val(Trim(Text4.Text)) & "' and 喷标号<= '" & Val(Trim(Text5.Text)) & "'and 发货否='" + Trim(Text7.Text) + "'and 借出否='" + Trim(Text7.Text) + "'and 报废否='" + Trim(Text7.Text) + "'", cnn, adOpenKeyset, adLockOptimistic
If se.RecordCount > 0 Then
cnn.Execute ("update 成品档案 set 发货否='" & Text6 & "',客户单位='" & Text2 & "',发货日期='" & DTPicker1.Value & "',经办人='" & Text3 & "' where 炉批号='" & Text1 & "'and 喷标号 >= '" & Val(Trim(Text4.Text)) & "' and 喷标号<= '" & Val(Trim(Text5.Text)) & "'")
se.Update
MsgBox "记录添加成功！", , "成品管理系统"
Adodc1.Refresh
Else
MsgBox "信息不符！", , "成品管理系统"
Exit Sub
End If
我数据库中喷标号数据类型为文本改成数字也不行
[解决办法]
楼主，你的代码让人看着头晕呀，建议你把一些经常用到的函数放在一个类里，以后通过新建类调用吧
[解决办法]
http://download.csdn.net/detail/veron_04/3827200
[解决办法]
and 喷标号 >= '" & Val(Trim(Text4.Text)) & "' and 喷标号<= '" & Val(Trim(Text5.Text)) & "'
这段有问题，你把喷标号进行的是字符串比较。
数字型比较时：12<13<14
字符串比较时: 12<14<2
