sql 和ACCESS数据库查询中有那些不同

Question

sql  和ACCESS数据库查询中有那些不同以下代码在ACCESS中正常在sql 运行不正确 
 Dim rs1 As New ADODB.Recordset
             rs1.Open "select * from 原料合格品档案 where 炉号='" & Trim(Text1.Text) & "'and  垛位 ='" + Combo3.Text + "' ", cnn, adOpenKeyset, adLockOptimistic
             If rs1.RecordCount > 0 Then
             Dim snum As Integer
             snum = Val(rs1.Fields("根数")) + Val(Trim(Text4.Text))
             rs1.Update
             rs1.Fields("根数") = snum
             rs1.Update

Answer 1

Dim rs1 As New ADODB.Recordset
  rs1.Open "select * from 原料合格品档案 where 炉号='" & Trim(Text1.Text) & "'and 垛位 ='" + Combo3.Text + "' ", cnn, adOpenKeyset, adLockOptimistic
  If rs1.RecordCount > 0 Then
  Dim snum As Integer
  snum = Val(rs1.Fields("根数")) + Val(Trim(Text4.Text))
  'rs1.Update
  rs1.Fields("根数") = snum
  rs1.Update

Answer 2

哦,还有rs1.RecordCount 为什么总是-1 ,可是我的数据表中有数具

Answer 3

执行到 rs1.Fields("根数") = snum时,错误提示当前不支持更新

Answer 4

cnn或rs1需要使用客户端游标。x.CursorLocation = adUseClient

Answer 5

ADO 无法确定记录数时该属性返回 –1。错误原因也是你没有使用客户端游标。

Answer 6

设置连接对象的CursorLocation属性为 UseClient