各位高手大侠们帮忙看看!!为什么我运行点保存会提示"当前记录集不支持更新.这可能是提供程序的限制,也可能是选定锁定类型的限制"
这个是我的程序代码Dim conn As ADODB.Connection
Dim sql As String
Set conn = New ADODB.Connection
conn.ConnectionString = ConnectString
conn.Open '连接数据库
sql = "select * from clkc where 材料名称='" & Trim(txtfields(0).Text) & "' "
Set rs1 = conn.Execute(sql)
If rs1.EOF = True Then '如果没有的话就添加
rs1.Close
sql = "select * from clkc"
Set rs1 = conn.Execute(sql)
rs1.AddNew
rs1.Fields(0) = Trim(txtfields(0).Text)
For i = 1 To 2
If Trim(txtfields(i).Text & "") = "" Then
rs1.Fields(i) = Null
Else
rs1.Fields(i) = Trim(txtfields(i).Text)
End If
Next i
Else
rs1.Edit '如果有的话就更新物资库存表中的信息(数量,金额)
rs1![重量] = Val(rs1![重量]) + Val(Trim(txtfields(1).Text))
rs1.Update
rs1.Close
End If
'保存adodc1的记录集的修改
Adodc1.Recordset.UpdateBatch adAffectAll
'保存后,设置按钮状态
SetButtons True
'显示操作信息
MsgBox "保存成功!", vbExclamation + vbOKOnly, "材料入库"
Exit Sub
UpdateErr:
MsgBox Err.Description
End Sub补充:VB , 数据库(包含打印,安装,报表)
请访问www.zzzyk.com 试试
部份技术文章来自网络,